Pegar mês de subtração de campo data
Pessoal,
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]
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
Curtidas 0
Respostas
Paulo_amorim
21/10/2004
Olá
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é+
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
Jonasaf
21/10/2004
Olá
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é+
[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
Ipc$
21/10/2004
O tipo TDatetime é um double, onde a parte inteira é a quantidade de dias e a parte fracionária é o tempo.
Quando vc subtrai um date do outro, vc obtém a diferença em dias e não em meses.
Quando vc subtrai um date do outro, vc obtém a diferença em dias e não em meses.
GOSTEI 0
Jonasaf
21/10/2004
[quote:b3d8a38b88=´IPC$´]O tipo TDatetime é um double, onde a parte inteira é a quantidade de dias e a parte fracionária é o tempo.
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....
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
Ipc$
21/10/2004
Vc já utilizou MonthsBetween conforme o Paulo_Amorim sugeriu?
GOSTEI 0
Denis
21/10/2004
pode usar também a função formatdatetime.
GOSTEI 0
Gabriel.elessar
21/10/2004
Tenta criar uma variavel e ja fazer a conta usando o camando Copy...
ae o resultado da subtração fica na variavel...
ae o resultado da subtração fica na variavel...
GOSTEI 0