Fórum Como incrementar datas no Delphi ? #470785
21/02/2014
0
como Incrementar datas no Delphi? tem alguma função que faça isso?
e no caso de quando o incremento chegar no mês 12 ele incrementa o ano ?
Eduardo Mendonça
Curtir tópico
+ 0Posts
21/02/2014
Ricardo Araujo
Gostei + 0
21/02/2014
Lucas Ramos
função que retorna a data incrementada IncDay(now, 1) se informar o Incremento como negativo ele decrementa da data, se passar do final do mês ele atualiza o mês e continua o incremento.
Gostei + 0
21/02/2014
Luiz
procedure TFrmSobre.Button1Click(Sender: TObject);
var
data : tdatetime;
begin
data := Date; //data atual
data := data + 20;
ShowMessage('Data Atual + 20 dias: '+DateTostr(data));
data = IncMonth(data,3); //incrementar o mes
ShowMessage('Data + 3 meses: '+DateTostr(data));
end;
Gostei + 0
21/02/2014
Deivison Melo
Gostei + 0
21/02/2014
Eduardo Mendonça
tenho um Campo de valores de vencimento que quando o usuário preenche ele incrementa a data dom próximo vencimento em 1 mês só que eu preciso que quando chegue o mês 12 ele passa para o próximo ano .
Ex: 15/12/2014 ==> 15/01/2015
Gostei + 0
21/02/2014
Luiz
data = IncMonth(data,1); //adiciona 1 mês
O ano é automático, funciona quando chegar no mês 12, se adicionar 1 mês, muda o ano .. e vai para o mês 01 do outro ano e não para 13 (que não existe).
Gostei + 0
21/02/2014
Ricardo Araujo
unit Unit1;
interface
uses
Windows, Messages, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
DateTimePicker1: TDateTimePicker;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
SysUtils;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
data : TDateTime;
begin
data := IncMonth(DateTimePicker1.Date, StrToInt( Edit1.Text) );
ListBox1.Items.Add( DateToStr(data) );
end;
Gostei + 0
21/02/2014
Eduardo Mendonça
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)