返回列表 上一主題 發帖

[發問] 日期顯示

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
日期顯示.JPG
收藏 分享

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2013-1-25 15:37 | 顯示全部帖子
回復 2# stillfish00


    問題已解決,謝謝指導

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題