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

Artículo por Club Developers · 31 diciembre 2005

5831 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;