標題: [發問] 日期顯示 [打印本頁]

---

作者: jcchiang    時間: 2013-1-25 12:03     標題: 日期顯示

想要在程式結束後顯示當天日期,顯示格式為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
[attach]14064[/attach]

---

作者: stillfish00    時間: 2013-1-25 13:52

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

---

作者: jcchiang    時間: 2013-1-25 15:37

回復 2# stillfish00


    問題已解決,謝謝指導

---

作者: mhl9mhl9    時間: 2013-8-1 23:19

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)