Data em formato Juliano
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
Ex de formato Juliano
103001 = 01/01/2003
Muito obrigado
Anonymous
Curtidas 0
Respostas
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;
var
Data: tDateTime;
Soma: variant;
begin
data:=strdata(´01/01/´+inttostr(year(dt)));
soma:=dt-data;
datajuliano:=soma+1;
end;
GOSTEI 0
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
Mas o que eu preciso é transformar uma data que está em Juliano para o formato gregoriano dd/mm/aaaa
Valeu
GOSTEI 0
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
13/03/2003
Valeu!!! 8)
GOSTEI 0