Função para obter os meses entre duas datas.
1
2
3
4
5
6
7
8
9
10
11
| { É necessário declarar DateUtils.
Em versões mais recentes declare System.DateUtils. }
// Função : MonthsBetween( Data Inicial, DataFinal )
// Retorno: Inteiro( Integer )
// Exemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr( MonthsBetween(EncodeDate(2010, 5, 15), Date) ));
end; |
{ É necessário declarar DateUtils.
Em versões mais recentes declare System.DateUtils. }
// Função : MonthsBetween( Data Inicial, DataFinal )
// Retorno: Inteiro( Integer )
// Exemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr( MonthsBetween(EncodeDate(2010, 5, 15), Date) ));
end;
Post Views: 10.530
-
InfusTec
-
- 0 comentários
- 15 de março de 2015
