Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Two digit week numbers in VB
John
?format(DatePart("WW", Now()),"00") NickHK "John Ortt" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Two digit week numbers in VB
Public Function IsoWeekNum(d1 As Date) As Integer
Dim d2 As Long d2 = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3) IsoWeekNum = Int((d1 - d2 + Weekday(d2) + 5) / 7) End Function Code will be: wNum = IsoWeekNum(Now()) WeekNum = wNum if wNum < 10 then WeekNum = "0" & wNum John Ortt wrote: 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Two digit week numbers in VB
Thanks Nick,
That did the trick "NickHK" wrote in message ... John ?format(DatePart("WW", Now()),"00") NickHK |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
entering 16 digit numbers - last digit turns to zero | New Users to Excel | |||
16 digit numbers | Excel Discussion (Misc queries) | |||
Store numbers starting with zero as 2 digit numbers | Excel Discussion (Misc queries) | |||
what is the minimum numbers set for 4 digit numbers from 0000 to 9 | Excel Discussion (Misc queries) | |||
16 DIGIT NUMBERS IN CELL WITHOUT LAST DIGIT BEING A ZERO | Excel Worksheet Functions |