, de verwezenlijking van een concrete taak, het type, de tdateaddunit = (dayears, damonths, dadays);,,, dateadd (datum: TDateTime; de hoeveelheid: gehele getal; eenheid: tdateaddunit): TDateTime;,, var, deel: TDateTime;,,,, De resultaten van: = trunc (datum);,, deel: = datum - trunc (datum); zaak, eenheid,,,,, dayears:incmonth (datum, 12 * aantal);,,,,, damonths:incmonth (datum, de hoeveelheid);,, anders, de datum: = + aantal;,,,, de resultaten aan het einde van de resultaten; = + deel:;,,,,,, te beëindigen;