Fórum Pegar mês de subtração de campo data #255410
21/10/2004
0
Gostaria de pegar o mês da subtração desse codigo abaixo alguem pode me ajudar...?
procedure TFrmGraficoMeioAcesso.BitBtn1Click(Sender: TObject);
var
Mes : TDateTime;
Msg : String;
begin
Mes := StrToDateTime(´01/´+ DataFim.Text ) - StrToDateTime(´01/´ + DataInicio.Text);
Msg := ´Parâmetros de data maiores que 12 meses,´+#13+´por favor informe novamente as datas´;
if Mes > 12 Then
begin
Application.MessageBox(pchar(Msg),pchar(application.Title),Mb_ok + Mb_iconinformation);
DataInicio.Clear;
DataFim.Clear;
DataInicio.SetFocus;
end;
end;
[b:0d7cdc9d0f]DEVO ESTRAIR O MÊS PARA FAZER O TESTE ANTES...[/b:0d7cdc9d0f]
Jonasaf
Curtir tópico
+ 0Posts
21/10/2004
Paulo_amorim
Se não me engano na Unit DateUtils existe a função MonthsBetween que pode ser usada no caso.
Mais informações, faça uma pesquisa no fórum e/ou poste ae!
Até+
Gostei + 0
21/10/2004
Jonasaf
[b:5f1c55e420]Brother estou precisando de extrair a diferença da subtração da data maior pela menor e pegar o mês p/ fazer o teste...[/b:5f1c55e420]
Gostei + 0
21/10/2004
Ipc$
Quando vc subtrai um date do outro, vc obtém a diferença em dias e não em meses.
Gostei + 0
22/10/2004
Jonasaf
Quando vc subtrai um date do outro, vc obtém a diferença em dias e não em meses.[/quote:b3d8a38b88]
Então gente boa eu quero saber como faço p/ retornar meses....
Alguem pode me ajudar....
Gostei + 0
22/10/2004
Ipc$
Gostei + 0
23/10/2004
Denis
Gostei + 0
23/10/2004
Gabriel.elessar
ae o resultado da subtração fica na variavel...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)