Saber la semana dentro del año

4879 vistas

Sólo hay que usar la función WeekOfTheYear() de la unidad DateUtils.



delphi
  1. uses
  2.   DateUtils;
  3. var
  4.   Date1 : TDateTime;
  5.   NumSem : Word;
  6. begin
  7.   Date1 := EncodeDate(2002, 11, 1);
  8.   NumSem := WeekOfTheYear(Date1);
  9. end;