Delphi versión de vb dateadd

Delphi version de vb dateadd

Delphi version de vb dateadd : Multi-millones de consejos para hacer su vida mas facil.

Un Delphi implementacion de una util funcion de VB
tipo
& nbsp & nbsp TDateAddUnit = (daYears, daMonths, daDays)
la funcion DateAdd(ADate: TDateTime Cantidad: Integer AUnit: TDateAddUnit): TDateTime
var
& nbsp & nbsp TimePart: TDateTime
begin
& nbsp & nbsp Resultado := Trunc(ADate)
& nbsp & nbsp TimePart := ADate - Trunc(ADate)
& nbsp & nbsp caso AUnit de
& nbsp & nbsp & nbsp & nbsp daYears:
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IncMonth(ADate, 12 * * * * Cantidad)
& nbsp & nbsp & nbsp & nbsp daMonths:
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IncMonth(ADate, Cantidad)
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp Resultado := ADate Cantidad
& nbsp & nbsp final
& nbsp & nbsp Resultado := Resultado TimePart
fin