- 帖子
- 234
- 主題
- 19
- 精華
- 0
- 積分
- 276
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2021-10-7
|
想要在程式結束後顯示當天日期,顯示格式為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
|
|
發表於 2013-1-25 12:03
| 
