PETER ZHOU
any function in windev to get work week & work dates? December 27, 2008 10:41AM |
Jimbo
Re: any function in windev to get work week & work dates? December 27, 2008 11:30AM |
Moderator |
Quote
PETER ZHOU
Hi,
I need to generate report by week no. ( work week )..
eg.
Week no. 1 - from 01 to 02 JAN 2009
Week no. 2 - from 05 to 09 JAN 2009 and so on..
How to get the week number & the dates ?
Thanks in advance
Regards,
PETER ZHOU
WochenTagNum = IntegerToDay(DateToInteger(LastActiveDate)) KalenderWoche = WeekNumber(LastActiveDate) IF Middle(LastActiveDate, 5, 4) = "1229" AND WochenTagNum = 1 THEN KalenderWoche = 1 IF Middle(LastActiveDate, 5, 4) = "1230" AND (WochenTagNum = 1 OR WochenTagNum = 2) THEN KalenderWoche = 1 IF Middle(LastActiveDate, 5, 4) = "1231" AND (WochenTagNum = 1 OR WochenTagNum = 2 OR WochenTagNum = 3) THEN KalenderWoche = 1 IF Middle(LastActiveDate, 5, 4) = "0101" AND (WochenTagNum = 5 OR WochenTagNum = 6 OR WochenTagNum = 7) THEN KalenderWoche = IntegerToWeekNumber(DateToInteger(LastActiveDate)-1) IF Middle(LastActiveDate, 5, 4) = "0102" AND (WochenTagNum = 6 OR WochenTagNum = 7) THEN KalenderWoche = IntegerToWeekNumber(DateToInteger(LastActiveDate)-2) IF Middle(LastActiveDate, 5, 4) = "0103" AND WochenTagNum = 7 THEN KalenderWoche = IntegerToWeekNumber(DateToInteger(LastActiveDate)-3)