Function IsahDateToWeek( Date: Date): String
Description
Returns the week number of the entered date.
Parameters
Example
Sub Main()
MsgBox IsahDateToWeek( date() )
MsgBox
End Sub