Incrementing Week number from a set date?

[satty]

hey again people,

well i guess i have yet another problem...

i have a form, in which i want to be able to insert a date, for example, 01/04/2003 in to a textbox. i now want another text box, which can calculate the week number since this date upto now, the current date.

is this possible? hope so.

Thanx guys



Satty

 

[dk]

Hello,

You could use this simple VBA function:

Public Function WeekNumber(CalcDate) As Long

'Returns the week number up to Calcdate.  Returns 0 if
'CalcDate is not a valid date

Dim dteFirstDayOfYear As Date

If IsDate(CalcDate) = False Then WeekNumber = 0: Exit Function

dteFirstDayOfYear = #1/1/2004#

WeekNumber = Int((CDate(CalcDate) - dteFirstDayOfYear) / 7) + 1

End Function

You can then update your second textbox based on the first using something like this:-

Private Sub txtTheDate_AfterUpdate()
Me.txtTheWeekNumber = WeekNumber(Me.txtTheDate)
End Sub