ISOweekNumber

[Evertjan.]

ISOweekNumber = DatePart("ww", theDate, vbMonday, vbFirstFourDays)

That took me a week.

[Auric__]

Post by Evertjan.
ISOweekNumber = DatePart("ww", theDate, vbMonday, vbFirstFourDays)
That took me a week.

Neat. Into ye olde book of tricks it goes.

[Evertjan.]

Post by Auric__

Post by Evertjan.
ISOweekNumber = DatePart("ww", theDate, vbMonday, vbFirstFourDays)
That took me a week.

Neat. Into ye olde book of tricks it goes.

Well, the reverce is not that simple,
the best I can do is this:

function ISOweekNumber(theDate)
ISOweekNumber = DatePart("ww", theDate, vbMonday, vbFirstFourDays)
end function

function dateFromISOweekNumber( theYear, IsoWkNr, Wkday ) ''' monday = 1
firstDayY = dateserial(theYear, 1, 1)
WeekNumberFirstDayY = ISOweekNumber(firstDayY)
WeekDayFirstDayY = weekday(firstDayY, vbMonday)
if WeekNumberFirstDayY <> 1 then firstDayY = firstDayY + 7
dateFromISOweekNumber = firstDayY - (WeekDayFirstDayY - 1) +
( 7 * (IsoWkNr -1 ) + (Wkday - 1))
end function

Anyone with a better/shorter, or more correct solution?

[Auric__]

Post by Evertjan.

Post by Auric__

Post by Evertjan.
ISOweekNumber = DatePart("ww", theDate, vbMonday, vbFirstFourDays)
That took me a week.

Neat. Into ye olde book of tricks it goes.

Well, the reverce is not that simple,
function ISOweekNumber(theDate)
ISOweekNumber = DatePart("ww", theDate, vbMonday, vbFirstFourDays)
end function
function dateFromISOweekNumber( theYear, IsoWkNr, Wkday ) ''' monday = 1
firstDayY = dateserial(theYear, 1, 1)
WeekNumberFirstDayY = ISOweekNumber(firstDayY)
WeekDayFirstDayY = weekday(firstDayY, vbMonday)
if WeekNumberFirstDayY <> 1 then firstDayY = firstDayY + 7
dateFromISOweekNumber = firstDayY - (WeekDayFirstDayY - 1) +
( 7 * (IsoWkNr -1 ) + (Wkday - 1))
end function
Anyone with a better/shorter, or more correct solution?

In 30 seconds of looking at the code, I can't think of any way to improve it.
But if it returns the correct date, I'd say it's good.

[Dave "Crash" Dummy]

Post by Evertjan.
ISOweekNumber = DatePart("ww", theDate, vbMonday, vbFirstFourDays)
That took me a week.

Cool. What is ISOweekNumber?

[Dave "Crash" Dummy]

Post by Dave "Crash" Dummy

Post by Evertjan.
ISOweekNumber = DatePart("ww", theDate, vbMonday, vbFirstFourDays)
That took me a week.

Cool. What is ISOweekNumber?

Never mind. Google is full of information about ISO weeks.