unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Edit1: TEdit;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
procedure OnKeyDown(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Add('Suma Meses');
ComboBox1.Items.Add('Resta Meses');
ComboBox1.Text := ComboBox1.Items.Strings[1];
end;
procedure TForm1.OnKeyDown(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8]) then
Key := #0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
DeltaMonth : Integer;
begin
DeltaMonth := StrToInt(Edit1.Text);
if ComboBox1.Text = 'Suma Meses' then
DateTimePicker2.DateTime := IncMonth(DateTimePicker1.DateTime, DeltaMonth);
if ComboBox1.Text = 'Resta Meses' then
DateTimePicker2.DateTime := IncMonth(DateTimePicker1.DateTime, -DeltaMonth);
end;
end.