vba - 如果符合某些条件，VBA 在变量前添加一个数字

Question

我正在尝试更新每周报告。但是对于 1 到 9 之间的日历周，我希望在前面附加 0。所以它显示“CW1-14”而不是“CW1-14”，例如我试图用 if statesmen 来做 - 到目前为止没有成功。

Dim week1 As String
week1 = Format(Date - 7, "ww")
'If week1 <= 9 Then
'week1 = Format(0, Date - 7, "ww")
'ElseIf week1 > 9 Then
'week1 = Format(Date - 7, "ww")
 'End If

 Dim long1 As String
long1 = Format(Date - 10, "yyyy")
Dim week2 As String
week2 = week1 - 4
Dim nameweek As String
nameweek = "CW" & week2 & " - " & "CW" & week1 & " " & long1

标签： vbadate

Answer 1

您可以使用Format()两次。

Dim week1 As String
week1 = Format(Format(Date - 7, "ww"), "00")
' That would produce week1 = "01" or "09"