ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤é´ÁÅã¥Ü

[µo°Ý] ¤é´ÁÅã¥Ü

·Q­n¦bµ{¦¡µ²§ô«áÅã¥Ü·í¤Ñ¤é´Á,Åã¥Ü®æ¦¡¬°20130125
¦ý¦pªG¹J¨ì¥u¦³­Ó¦ì¼Æªº¤ë¸ò¤é·|¾É­PÅã¥Ü²§±`
¦p¦ó¤~¯à±N¤Q¦ì¼Æ¸É¤W0¨ÓÅã¥Ü

Sub ¤é´Á()
    Dim mydate
    mydate = CStr(CInt(Left(Date, 4)) & Mid(Date, 6, 2) & Mid(Date, 9, 2)) 'Cells(1, 2)
    MsgBox "" & mydate, 0, "¤é´Á"
End Sub

µLªk¥¿½TÅã¥Ü20130125

µLªk¥¿½TÅã¥Ü20130125

¤é´ÁÅã¥Ü.JPG
2013-1-25 12:00

¦^´_ 1# jcchiang
Sub ¤é´Á()
MsgBox Format(Date, "yyyymmdd")
End Sub

TOP

¦^´_ 2# stillfish00


    °ÝÃD¤w¸Ñ¨M,ÁÂÁ«ü¾É

TOP

Sub ttt()
A = Format(Date, "yyyy")
B = Format(Date, "mm")
C = Format(Date, "dd")
MsgBox A & B & C
End Sub
lmh

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD