Ir al contenido


Foto

[TRUCO DELPHI] Calcular los numeros de Semana.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 29 agosto 2016 - 08:07

[TRUCO DELPHI] Calcular los numeros de Semana.


delphi
  1. function WeekNum(const TDT:TDateTime) : Word;
  2. var
  3. Y,M,D:Word;
  4. dtTmp:TDateTime;
  5. begin
  6. DecodeDate(TDT,Y,M,D);
  7. dtTmp := EnCodeDate(Y,1,1);
  8. Result :=
  9. (Trunc(TDT-dtTmp)+(DayOfWeek(dtTmp)-1)) DIV 7;
  10. if Result <> 0 then Result := Result - 1;
  11. end;

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.