FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
||||
|
||||
Truco 78 del trucomania (espero que te sirva):
Hallar el numero de semana del año de una fecha Código:
procedure TForm1.Button1Click(Sender: TObject); var frstDay,toDay : TDateTime; week : Integer; begin frstDay := StrToDate('1/1/96'); toDay := StrToDate(Edit1.Text); week := Trunc((toDay - frstDay) / 7) + 1; Label1.Caption := IntToStr(week); end;
__________________
Saludos, Peter Investment |
|
|
|