Esta web utiliza 'cookies' propias y de terceros. Al navegar por nuestra web entendemos que aceptas el uso que hacemos de ellas. Más información.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Descargas
· Enciclopedia
· Estadísticas
· Foros
· Manuales, Artículos
· Nuestra historia
· Política de Cookies
· Quiénes somos
· Recomiéndanos
· Temas
· Top 10
· Trucos Delphi, PHP, Java, Visual Studio
· Tu cuenta


Código usuario (nick)

Contraseña

Nuevo usuario

English
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+