Fórum Data #185421
30/09/2003
0
Como pegar somente o mês de uma data. Exemplo: 19/9/2003 ?
Jeanfiamoncini
Curtir tópico
+ 0
Responder
Posts
30/09/2003
Luizfernando777
function TForm1.MesData(Data:TDate):String;
var
Dia, Mes, Ano : Word;
begin
DecodeDate(Data, Ano, Mes, Dia);
Result := IntToStr(Mes);
end;
var
Dia, Mes, Ano : Word;
begin
DecodeDate(Data, Ano, Mes, Dia);
Result := IntToStr(Mes);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)