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

22/05/2003

1

E ai galera, como retiro o dia, o mês, e o ano de uma data?

Exemplo:
Data:17/07/1986
Dia:17
Mês:07
Ano:1986


Responder

Posts

22/05/2003

Pardal3000

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


Responder

22/05/2003

Overflow

[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


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira