Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Calcular el número de día de una fecha en el año - fecha juliana - Método 2 - Delphi
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A