Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Calcular el número de día de una fecha en el año - fecha juliana - Método 1 - Delphi
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

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+