Retirar dia,mês e ano de uma data...

Var
Dia, Mes, Ano: Word;
Begin
DecodeDate(Date, Dia, Mes, Ano);
ShowMessage(´Dia=´+IntToStr(Dia));
ShowMessage(´Mês=´+IntToStr(Mes));
ShowMessage(´Ano=´+IntToStr(Ano));
end;


Verifique apenas se na função DecodeDate a sequência de dia, mes e ano está correta. Não me lembro com exatidão.

Espero ter ajudado,

Pardal3000

[b:4b8ae7eff0]var[/b:4b8ae7eff0]
Data,dia,mes,ano:string;
x:integer;
[b:4b8ae7eff0]begin[/b:4b8ae7eff0]
data:=´17/07/1986´;

[b:4b8ae7eff0] for[/b:4b8ae7eff0] x:=1 to 2 [b:4b8ae7eff0]do[/b:4b8ae7eff0] begin
dia:=dia+data[x];
[b:4b8ae7eff0]end;[/b:4b8ae7eff0]

[b:4b8ae7eff0]for[/b:4b8ae7eff0] x:=4 to 5[b:4b8ae7eff0] do[/b:4b8ae7eff0] begin
mes:=mes+data[x];
[b:4b8ae7eff0] end;[/b:4b8ae7eff0]

[b:4b8ae7eff0]for[/b:4b8ae7eff0] x:=7 to 10 [b:4b8ae7eff0]do[/b:4b8ae7eff0] begin
ano:=ano+data[x];
[b:4b8ae7eff0]end;[/b:4b8ae7eff0]
Label1.caption:=dia+´/´+mes+´/´+ano;

Não testei, más axo q funciona, e fica mais fácil c tu jogar pra dentro de uma função. Valew