- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-5-18 08:21 ½s¿è
¦^´_ 5# j1221
ÁÙ¯uªº¼g¿ù¤Fò~
If iYear_s = iYear_e Then
Z = iYear_s
For J = iMonth_s To iMonth_e
If J = iMonth_s Then
For K = iDay_s To 31
NEXT K
Else
For K = 1 To iDay_e
next K
End If
next J
End If
«ö±zì©lªº¼gªk~ °õ¦æ¨ìFor J = iMonth_s To iMonth_e ³o¤@¥y~
¦p¦ó¸õ¨ìnext J©O~ ¤£¥i¯àò~ ¤¤¶¡¦³END IF
¦bµ{¦¡°õ¦æ®É~ ´N·|¿ù»~¤F~
§A¥i¥H¦bIF ..... END IF ¤¤¶¡©ñ¦bFor ... Next
¦ý¤£¯à§â next ©ñ¦b end if«á±~ |
|