Convertir una fecha juliana a gregoriana

4373 vistas

Para convertir una fecha de formato juliano a formato gregoriano simplemente tenemos que hacer uso de la función JulianDateToDateTime() definida en DateUtils.



delphi
  1. uses
  2.   DateUtils;
  3. var
  4.   DiaJuliano: Extended;
  5.   DateC: TDateTime;
  6. begin
  7.   DateC := JulianDateToDateTime(DiaJuliano);
  8. end;