Data
Como pegar somente o mês de uma data. Exemplo: 19/9/2003 ?
Jeanfiamoncini
Curtidas 0
Respostas
Luizfernando777
30/09/2003
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;
GOSTEI 0