Lenguaje de programación Borland Delphi
Función realizada en Borland (ahora Codegear) Delphi que permite obtener a partir de una fecha gregoriana (dd/mm/aaaa) la fecha juliana (número de días transcurridos desde inicio de año).
function fechaJuliana (fechaGregoriana : TDateTime) : Integer;
var
dia, mes, ano : Word;
begin
fechaGregoriana := Trunc(fechaGregoriana );
DecodeDate(fechaGregoriana, ano, mes, dia);
Result := Trunc(fechaGregoriana - EncodeDate(ano , 1 , 1)+1);
end;
Ejemplo de llamada:
showmessage('El número de día de hoy en el año es: ' + IntToStr(fechaJuliana (date)));
Publicado el: 2003-09-27