Saber la semana dentro del año
Artículo por Club Developers · 31 diciembre 2005
4879 vistas
Sólo hay que usar la función WeekOfTheYear() de la unidad DateUtils.
delphi
uses DateUtils; var Date1 : TDateTime; NumSem : Word; begin Date1 := EncodeDate(2002, 11, 1); NumSem := WeekOfTheYear(Date1); end;