Calcular el número de día del año (fecha juliana)

5399 vistas

Obtener el día juliano (o el día del año) es tan fácil como usar la función DayOfTheYear() definida en la unidad DataUtils



delphi
  1. uses
  2.   DateUtils;
  3. var
  4.   Date1 : TDateTime;
  5.   NumeroJ : Integer;
  6. begin
  7.   Date1 := Now; {Date système}
  8.   NumeroJ := DayOfTheYear(Date1);
  9. end;