En Delphi gjennomføring av et nyttig VB functiontype TDateAddUnit = (daYears, daMonths, daDays), funksjon DateAdd (ADate: TDateTime; Antall: Integer; AUnit: TDateAddUnit): TDateTime; Var TimePart: TDateTime; begynne Resultat: = AVKORT (ADate); TimePart: = ADate - AVKORT (ADate); Ved AUnit av daYears: IncMonth (ADate, 12 * Antall); daMonths: IncMonth (ADate, Antall); annet Resultat: = ADate + Antall; slutt; Resultat: = Resultat + TimePart; ende; Anmeldelser