Pegar o Dia e Mes de uma data e jogar numa outra var

Delphi

26/07/2004

bom dia galera.

como posso pegar o dia e o mês de uma data e jogar numa variavel dia e em outra variavel mes?

obrigado


:arrow: [color=red:fc34a8c62e]Título alterado pelo Moderador oTTo.[/color:fc34a8c62e]

:idea: [color=blue:fc34a8c62e]Seja mais claro no título.[/color:fc34a8c62e]
:idea: [color=blue:fc34a8c62e][url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=16976]Saiba como obter resposta rápida..[/url][/color:fc34a8c62e]
:idea: [color=blue:fc34a8c62e]Leia sempre [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta.[/url][/color:fc34a8c62e]
:idea: [color=blue:fc34a8c62e]Use sempre o Link [url=http://delphiforum.icft.com.br/forum/search.php][img:fc34a8c62e]http://delphiforum.icft.com.br/forum/templates/subSilver/images/icon_mini_search.gif[/img:fc34a8c62e] Pesquisar[/url] no topo da Página.[/color:fc34a8c62e]


Speedrob

Speedrob

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

26/07/2004

usa a função decodeDate.
Nela dá pra vc extrair tudo!


GOSTEI 0
Reginaldo174

Reginaldo174

26/07/2004

var
Data: TDateTime;
Ano, Mes, Dia: Word;
begin
Data:= Now;
DecodeDate(Data, Ano, Mes, Dia);
Edit1.text := IntToStr(Dia);
Edit2.text := IntToStr(Mes);
Edit3.text := IntToStr(Ano);
end;


GOSTEI 0
POSTAR