procédé DiffDates (dFrom, dTo : TDateTime ; variété y, m, d, h, n, s, Mme : Mot) ;
commencer
DecodeTime (dFrom-dTo, h, n, s, Mme) ;
y : = 0 ; m : = 0 ; d : = 0 ;
tandis qu'IncMonth (dFrom, 12*y) < dTo="" do="" Inc=""> dTo alors
Décembre (y) ;
dFrom : = IncMonth (dFrom, 12*y) ;
tandis qu'IncMonth (dFrom, m) < dTo="" do="" Inc=""> dTo alors
Décembre (m) ;
dFrom : = IncMonth (dFrom, m) ;
tandis que dFrom + puis < dTo="" do="" Inc=""> dTo de d
Décembre (d) ;
extrémité ;
|