Dia Juliano a Fecha

[trex2000]

Saludos a todos, mi pregunta es dado un num. entre 1 al 365 como me podria regresar el dia de la fecha?

Osea si yo le doy el num. 1 que me regrese 01/01/2012 o del año en curso.

Espero haberme explicado.

De antemano muchas gracias.

[marcoszorrilla]

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
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;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('El número de día de hoy en el año es: ' + IntToStr(fechaJuliana (date)));
end;

end.

Un Saludo.

[roman]

Yo entendí que era alrevés: a partir del número de día obtener la fecha (del año actual). Podria hacerse así:

Código Delphi [-]
uses DateUtils;

function DayNumberToDate(DayNumber: Integer): TDate;
begin
  Result := EncodeDate(YearOf(Today()), 1, 1) + DayNumber - 1;
end;

Lo que sí, es que este número de día, según entiendo, no corresponde al llamado día juliano.

// Saludos

[trex2000]

Les explico un poco mas, en el software que estoy haciendo hay una parte que me va a pedir un num de lote que va ser el dia juliano pero ese dia ya fue empacado dias antes, entonces para saber la fecha de caducidad los productos tienen dias de vida y por eso es que al darle el num que me pide me saque la fecha del dia que fue empacado para poder determinar la caducidad.


Espero haberme dado a entender.

De antemano muchas gracias.

[trex2000]

Muchas gracias ya quedo solucionado.