Data em formato Juliano

Delphi

13/03/2003

Alguém tem um algorítimo, ou uma função já pronta que transforme a data em formato Juliano para o formato DD/MM/AAAA

Ex de formato Juliano

103001 = 01/01/2003

Muito obrigado


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

13/03/2003

function DataJuliano(DT: tDateTime):Integer;
var
Data: tDateTime;
Soma: variant;
begin
data:=strdata(´01/01/´+inttostr(year(dt)));
soma:=dt-data;
datajuliano:=soma+1;
end;


GOSTEI 0
Anonymous

Anonymous

13/03/2003

Obrigado Izaias,

Mas o que eu preciso é transformar uma data que está em Juliano para o formato gregoriano dd/mm/aaaa

Valeu


GOSTEI 0
Carnette

Carnette

13/03/2003

Obrigado Izaias, Mas o que eu preciso é transformar uma data que está em Juliano para o formato gregoriano dd/mm/aaaa Valeu


Baixa esta UNIT e acrescenta em teu projeto...está com o código fonte aberto...Possui todas as funções de conversão de data e horas

http://www.carnette.kit.net/D5/esbdates.zip


GOSTEI 0
Anonymous

Anonymous

13/03/2003

Valeu!!! 8)


GOSTEI 0
POSTAR