Format Week Number two digits 2

[ensorg]

Hi All,

I have a bit of VBA code to format a date into a year and week number format...

intweekstartn = Format(datestart, "yyyyww", 2)

So today would be 200627

The problem is if the week number is a single digit then it drops the leading zero, so it is returned as 20061 and not 200601. This causes a problem later in my code.

I "fixed" this with a few lines of code where I checked the length of what had been returned and if it was only 5 digits I added in the zero. But, I was wondering if there was a way to get format to always return the week number as 2 digits?

Thanks

 

[PHV]

And what about this ?
intweekstartn = Format(datestart, "yyyy") * 100 + Format(datestart, "ww", 2)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[taupirho]

This works for me

intweekstartn = Format(datestart, "yyyy0ww", 2)

 

[taupirho]

Oh no it doesn't - puts in the zero even if week is > 9 - sorry 'bout that

 

[SkipVought]

"So today would be 200627" Where's the ZERO???

"...always return the week number as 2 digits?"

Where did YOU get this [red]ZERO[/red]???
[tt]
intweekstartn = Format(datestart, "yyyy[red]0[/red]ww", 2)[/tt]
Sorry?

Sorry for what?


Skip,
[sub]
[red][/red]
[/sub]

 

[GlennUK]

Skip, take your medication and lie down for a bit.

The original poster claimed that week numbers of less than 10 were single digit week number, instead of double digit ( i.e. with a leadingzero ) ... so today would be 200627 ( correct ).

Then taupirho tried a number format with an embedded zero, which was incorrect ( which you spotted ), which is why taupirho said sorry ... for creating an incorrect bit code. That's what the sorry bit was about. Have you been under a bit of stress lately?????? ;-)

:-D


Cheers, Glenn.

Did you hear about the literalist show-jumper? He broke his nose jumping against the clock.

 

[strongm]

intweekstartn = Year(adate) & Format(Format(adate, "ww"), "00")

 

[ensorg]

Stongm, That works perfectly. Thank you.

 

[PHV]

ensorg, you didn't try my suggestion posted 4 Jul 06 5:58 ?

 

[ensorg]

PHV, apologies, I looked at it quickly and thought it didn't work, but after taking my time and looking at it again it does work perfectly. Thank you.