Fórum Pegar o Dia e Mes de uma data e jogar numa outra var #244358
26/07/2004
0
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]
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
Curtir tópico
+ 0
Responder
Posts
26/07/2004
Lucas Silva
usa a função decodeDate.
Nela dá pra vc extrair tudo!
Nela dá pra vc extrair tudo!
Responder
Gostei + 0
26/07/2004
Reginaldo174
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)