Two digit week numbers in VB
Hi everyone.
I am currently using the following code to obtain two digit week numbers in
excel. Is there an easier or cleaner way of doing it?
If Len(DatePart("WW", Now())) < 2 Then _
maxDate = DatePart("YYYY", Now()) & " 0" & _
DatePart("WW", Now()) _
Else maxDate = DatePart("YYYY", Now()) & " " & _
DatePart("WW", Now()) _
Thanks,
John
|