麻辣家族討論版版 » Excel程式區 » 日期顯示

返回列表下一主題上一主題發帖

[發問] 日期顯示

中學生 Rank: 2

帖子: 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

日期顯示.JPG

樓主熱帖

收藏

大學生 Rank: 4

帖子: 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

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

3^#

發表於 2013-1-25 15:37 | 只看該作者

回復 2# stillfish00

問題已解決,謝謝指導

中學生 Rank: 2

帖子: 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

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題