// Mit diesen
Funktionen können Tage, Wochen, Monate und Jahre zu einem function DatumPlusMinusTage(s: string; Tage: integer): TDate; begin result := strtodate(s) + Tage; end; function DatumPlusMinusMonate(s: string; Monate: integer): TDate; begin result := incmonth(strtodate(s), Monate); end; function DatumPlusMinusWochen(s: string; Wochen: integer): TDate; begin result := strtodate(s) + 7 * Wochen; end; function DatumPlusMinusJahre(s: string; Jahre: integer): TDate; begin result := incmonth(strtodate(s), Jahre * 12); end; // Beispiele procedure TForm2.Button1Click(Sender: TObject); begin showmessage(datetostr(datumplusminustage('29.02.00', 3))); // 03.03.2000 end; procedure TForm2.Button2Click(Sender: TObject); begin showmessage(datetostr(datumplusminusmonate('29.02.00', 3))); // 29.05.2000 end; procedure TForm2.Button3Click(Sender: TObject); begin showmessage(datetostr(datumplusminusjahre('29.02.00', 3))); // 28.02.2003 end; procedure TForm2.Button4Click(Sender: TObject); begin showmessage(datetostr(datumplusminuswochen('29.02.00', 3))); // 21.03.2003 end; procedure TForm2.Button5Click(Sender: TObject); begin showmessage(datetostr(datumplusminustage('29.02.00', -59))); // 01.01.2000 end; |
Zugriffe seit 6.9.2001 auf Delphi-Ecke