procedura DiffDates (dFrom, dTo: TDateTime; varietà y, m., d, h, n, s, spettrografia di massa: Parola);
cominciare
DecodeTime (dFrom-dTo, h, n, s, spettrografia di massa);
y: = 0; m.: = 0; d: = 0;
mentre IncMonth (dFrom, 12*y) < dTo="" do="" Inc=""> dTo allora
Dicembre (y);
dFrom: = IncMonth (dFrom, 12*y);
mentre IncMonth (dFrom, m) < dTo="" do="" Inc=""> dTo allora
Dicembre (m);
dFrom: = IncMonth (dFrom, m);
mentre dFrom + dTo < dTo="" do="" Inc=""> di d allora
Dicembre (d);
estremità;
|