Delphi-Version von Vb dateadd

Delphi-Version von Vb dateadd

Delphi-Version von Vb dateadd : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Eine Delphi-Implementierung einer nützlichen VB-Funktion
Typ
TDateAddUnit = (DaYears, DaMonths, DaDays);
DateAdd-Funktion (ADate: TDateTime; Anzahl: Integer; Eine: TDateAddUnit): TDateTime;
var
TimePart: TDateTime;
beginnen
Ergebnis: = Trunc(ADate);
TimePart: = CDatum - Trunc(ADate);
Fall eine der
DaYears:
IncMonth (CDatum, 12 * Menge);
DaMonths:
IncMonth(ADate, Quantity);
sonst
Ergebnis: = CDatum + Menge;
Ende;
Ergebnis: = Ergebnis + TimePart;
Ende;