<% ' Calculate fiscal week (GE fiscal year starts first Monday of January) Dim fwToday, fwYearStart, fwFirstMonday, fwDayOfWeek, fwDaysFromStart, fiscalWeek fwToday = Date() ' Find first Monday of current year fwYearStart = DateSerial(Year(fwToday), 1, 1) fwDayOfWeek = Weekday(fwYearStart, vbMonday) ' 1=Monday, 7=Sunday If fwDayOfWeek = 1 Then fwFirstMonday = fwYearStart Else fwFirstMonday = DateAdd("d", 8 - fwDayOfWeek, fwYearStart) End If ' If we're before the first Monday, use previous year's week count If fwToday < fwFirstMonday Then Dim fwPrevYearStart, fwPrevFirstMonday, fwPrevDayOfWeek fwPrevYearStart = DateSerial(Year(fwToday) - 1, 1, 1) fwPrevDayOfWeek = Weekday(fwPrevYearStart, vbMonday) If fwPrevDayOfWeek = 1 Then fwPrevFirstMonday = fwPrevYearStart Else fwPrevFirstMonday = DateAdd("d", 8 - fwPrevDayOfWeek, fwPrevYearStart) End If fwDaysFromStart = DateDiff("d", fwPrevFirstMonday, fwToday) fiscalWeek = Int(fwDaysFromStart / 7) + 1 Else fwDaysFromStart = DateDiff("d", fwFirstMonday, fwToday) fiscalWeek = Int(fwDaysFromStart / 7) + 1 End If %>