Data em formato Juliano
13/03/2003
0
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
Curtir tópico
+ 0
Responder
Posts
13/03/2003
Anonymous
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;
Responder
13/03/2003
Anonymous
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
Responder
13/03/2003
Carnette
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)
