³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³òªº¸Ü¤Sn¦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