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
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Proponer
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

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+