Crystal Reports  

¤é´Á½d³ò (Basic ©M Crystal »yªk)

³o¨Ç¨ç¦¡©Ò²£¥Íªº¤é´Á½d³ò¬O¥H¥Ø«eªº¤é´Á¬°·Ç¡C¨Ò¦p¡A°²¦p¤µ¤Ñ¬O 2000 ¦~ 9 ¤ë 18 ¤é¡A¨º»ò LastFullMonth ´N¬O¤é´Á½d³ò­È¡G

CDate(#Aug 1, 2000#) To CDate(#Aug 31, 2000#)

³o¶µ¥\¯à«Ü±`¥Î¡A¦ý¬O¦pªG·Q¥H¸ê®Æ®wÄæ¦ì (¨Ò¦p {Orders.Order Date}) ¬°·Ç¨Ó¨M©w¤é´Á½d³òªº¸Ü¤S­n¦p¦ó¡H¥i¥H¨Ï¥Î¤é´Á/®É¶¡¨ç¦¡¨Ó¥N´À¡C

Basic »yªk½d¨Ò

Dim d As Date
d = CDate ({­q³f¥DÀÉ.­q³f¤é´Á})
Dim dr As Date Range
dr = DateSerial (Year(d), Month(d) - 1, 1) To _
DateSerial (Year(d), Month(d), 1 - 1)
'¦¹³B dr ¬°¤é´Á½d³ò­È¡A§t¦³
'{­q³f¥DÀÉ.­q³f¤é´Á} «e³Ì«á¤@¾ã­Ó¤ë

Crystal »yªk½d¨Ò

Local DateVar d := CDate ({­q³f¥DÀÉ.­q³f¤é´Á});
Local DateVar Range dr;
dr := DateSerial (Year(d), Month(d) - 1, 1) To
DateSerial (Year(d), Month(d), 1 - 1);
//¦¹³B dr ¬°¤é´Á½d³ò­È¡A§t¦³
//{­q³f¥DÀÉ.­q³f¤é´Á} «e³Ì«á¤@¾ã­Ó¤ë

¨Ï¥Î DateSerial ¨ç¦¡·|§ó®e©ö¨Ç¡A¦]¬°±z¤£¥Î¾á¤ß¯S®í±¡ªp¡A¥¦®Ú¥»¤£·|Åý±z«Ø¥ßµL®Äªº¤é´Á¡C¨Ò¦p¡ADateSerial (1999, 1 - 1, 1) ´N¬O 1998 ¦~ 12 ¤ë 1 ¤é¡C¦b¥H¤W½d¨Ò¤¤¡A{­q³f¥DÀÉ.­q³f¤é´Á} ¨Æ¹ê¤W´N¬O¤@­Ó¤é´Á®É¶¡Äæ¦ì¡A¦]¦¹ CDate ¨ç¦¡¬O¥Î¨ÓºI¨ú®É¶¡³¡¤À¡A¥HÂà´«¦¨¬°¤é´Á¡C

½Ð°Ñ¾\

½d³ò¸ê®Æ«¬§O | °õ¦æ³øªí­pºâ