Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/Misc/Date1.pas

Pascal/Delphi Source File | 1998-04-22 | 293b | 13 lines

procedure TForm1.Button1Click(Sender: TObject);
var
  D1, D2: TDateTime;  // Date variables
  I: Integer;         // for-loop variable
begin
  D1 := StrToDate('1/31/98');
  for I := -12 to 12 do
  begin
    D2 := IncMonth(D1, I);
    ListBox1.Items.Add(DateToStr(D2));
  end;
end;