返回列表 上一主題 發帖

[發問] 日期顯示

[發問] 日期顯示

想要在程式結束後顯示當天日期,顯示格式為20130125
但如果遇到只有個位數的月跟日會導致顯示異常
如何才能將十位數補上0來顯示

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

無法正確顯示20130125

無法正確顯示20130125

日期顯示.JPG
2013-1-25 12:00

回復 1# jcchiang
Sub 日期()
MsgBox Format(Date, "yyyymmdd")
End Sub

TOP

回復 2# stillfish00


    問題已解決,謝謝指導

TOP

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

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題