Calculate the week.....

How can we calculate the weeknumber from a date?
Like (eurodate : 13/3/2000 "d/m/yyyy" )

Does someone have a solution for it?

-Kayoca

[KenX]

Use the DatePart function...
for example:

***********
Dim TheDate As Date ' Declare variables.
Dim Msg

TheDate = InputBox("Enter a date:")
Msg = "Week No: " & DatePart("ww", TheDate)
MsgBox Msg
***********

Thank you its working fine. And i wont forget the function now..

-Kayoca Mortation