Delphi version de vb dateadd

Delphi version de vb dateadd

Delphi version de vb dateadd : Plusieurs milliers de conseils pour vous faciliter la vie.

Delphi a la mise en œuvre d'un utile VB fonction
type
& nbsp & nbsp TDateAddUnit = (daYears, daMonths, daDays)
la fonction DateAdd(ADate: TDateTime Quantite: Integer AUnit: TDateAddUnit): TDateTime
var
& nbsp & nbsp TimePart: TDateTime
begin
& nbsp & nbsp Resultat := Trunc(ADate)
& nbsp & nbsp TimePart := ADate - Trunc(ADate)
& nbsp & nbsp cas AUnit de
& ! & ! & ! & nbsp daYears:
& ! & ! & ! & ! & ! & nbsp IncMonth(ADate, 12 * Quantite)
& ! & ! & ! & nbsp daMonths:
& ! & ! & ! & ! & ! & nbsp IncMonth(ADate, Quantite)
& nbsp & nbsp else
& ! & ! & ! & nbsp Resultat := ADate Quantite
& nbsp & nbsp fin
& nbsp & nbsp Result := Result TimePart
fin