compile Function WeekNumber(inDate)

** inDate as MM-DD-YYYY

Declare Function Week_Day, WeekNumber

DayNo = Iconv(inDate,'D4-') - Iconv("01-01-": inDate[7,4],'D4-') + 1

StartDay = Week_Day(Iconv("01-01-": inDate[7,4],'D4-'))
StopDay = Week_Day(Iconv("12-31-": inDate[7,4],'D4-'))

** Number of days belonging to first calendar week
StartDays = 7 - (StartDay - 1)

** Test to see if the year will have 53 weeks or not
If StartDay = 4 Or StopDay = 4 Then ThurFlag = 1 Else ThurFlag = 0
VNumber = Int(((DayNo - StartDays - 4) / 7) + .5)

** If first week has 4 or more days, it will be calendar week 1 If first
** week has less than 4 days,it will belong to last year's last calendar week
If StartDays >= 4 Then
WeekNumber = VNumber + 2
End Else
WeekNumber = VNumber + 1
End

** Handle years whose last days will belong to coming year's first calendar week
If WeekNumber > 52 And ThurFlag = 0 Then WeekNumber = 1

** Handle years whose first days will belong to the last year's last calendar week
If WeekNumber = 0 Then
WeekNumber = WeekNumber("12-31-": inDate[7,4] - 1)
End

Return WeekNumber
*****************************************************************************8
Compile Function Week_Day(tempDate)

Mo = Oconv(tempDate,'D4-')[1,2]
Da = Oconv(tempDate,'D4-')[4,2]
Ce = Oconv(tempDate,'D4-')[7,2]
Yr = Oconv(tempDate,'D4-')[9,2]
Z = Int(2.6 * (Mo - 2 + 1 * 12 * (Mo < 3)) - 0.199)
Z += Da +Yr -1*(Mo < 3) + Int((Yr - 1*(Mo < 3))/4) + Int(Ce / 4) - 2 * Ce
Weekday = (Z-7*Int(Z/7))

Return Weekday

 out of  found this valuable. Do you find this valuable?