Lenguaje de programación Borland Delphi
Función en Delphi que calcula la fecha juliana de una fecha gregoriana (dd/mm/aaaa). La fecha juliana es el número de día del año. Por ejemplo, el 1 de enero será el día 1 juliano, el 3 de febrero será el 34 en fecha juliana, etc.
function fechaJuliana (fecha : TDate) : integer;
begin
Result := trunc(fecha - StrToDate(FormatDateTime('01/01/yyyy', fecha))) + 1;
end;
Un ejemplo de uso:
mResultado.Lines.Add('Número de días transcurridos desde inicio de año: ' +
IntToStr(fechaJuliana(txtFechaInicio.DateTime)));
Publicado el: 2003-11-07