返回列表 上一主題 發帖

[發問] 日期顯示

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
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-1-25 13:52 | 只看該作者
回復 1# jcchiang
Sub 日期()
MsgBox Format(Date, "yyyymmdd")
End Sub

TOP

jcchiang

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


    問題已解決,謝謝指導

TOP

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
4#
發表於 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
lmh

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題