, en delphi gennemførelse af et nyttigt vb funktion, type, tdateaddunit = (dayears, damonths, dadays);,,, funktion dateadd (adate: tdatetime; mængde: heltal aunit: tdateaddunit): tdatetime;,, var, timepart: tdatetime, begynder.,, resultat: = trunc (adate);,, timepart: = adate - trunc (adate), sag aunit af, dayears:,, incmonth (adate, 12 * mængde);,,, damonths:,, incmonth (adate, mængde);,,,, resultat: = adate + mængde,,,,,, resultat: = resultat + timepart,,,,,,,,