☰

使用日期函數建立一個字串，日和月前面加零

tag-icon • tag-icon microsoft-excel vba date
使用日期函數建立一個字串，日和月前面加零

我正在嘗試在 VBA 中建立日期。我希望今天的日期顯示為 13.04.2018。

但是，我目前只能將其顯示為 13.4.2018

如何在帶有一位數的日期和月份中添加前面的零？

我目前必須：

stDateDay = Day(Date)
stDateMonth = Month(Date)
stDateYear = Year(Date)
stDateFull = stDateDay & "." & stDateMonth & "." & stDateYear

答案1

若要在 VBA 中格式化日期（或任何其他值），可以使用該Format函數。例如：

strDateFull = Format(Date, "dd.mm.yyyy")

第二個參數是格式字串，可以是預先定義的格式名稱（General Date、Long Date或），也可以是包含、或等符號的格式說明Medium Date符。Short Dateddmmyy

有關符號的完整列表，請參閱文件：https://msdn.microsoft.com/en-us/VBA/language-reference-vba/articles/format-function-visual-basic-for-applications

答案2

你可以試試這個：

Range("A1").Value = Format(StDateFull, "dd.mm.yyyy")

或者，您也可以在將 StDateFull 值傳遞給儲存格或儲存格範圍之前對其進行格式化，如下所示：

Range("A1").NumberFormat = "dd.mm.yyyy"

Range("A:C").Select
Format$ ("dd.mm.yyyy")

Range("A1").value = stDateFull

相關內容