2001,1,15 1:12.20.0 -ból kivonom a 2001,1,14 23:01.01.01 -et


procedure TForm1.Button1Click(Sender: TObject);
var
de,da,di:Tdatetime;
ev,ho,nap ,ora,perc,mperc,milisec:word;
begin
de:=encodedate(2001,1,14)+encodetime(23,01,01,01);
da:=encodedate(2001,1,15)+encodetime(1,12,20,0);
di:=da-de;
decodedate(di,ev,ho,nap);
decodetime(di,ora,perc,mperc,milisec);
label1.Caption:=inttostr(ev-1899);
label2.Caption:=inttostr(ho-12);
label3.Caption:=inttostr(nap-30);
label4.Caption:=inttostr(ora);
label5.Caption:=inttostr(perc);
label6.Caption:=inttostr(mperc);
label7.Caption:=inttostr(milisec);
end;
Megjegyzés:
Így fejből nem is tudom, hogy hány évet számol a windows, de neki csak 1899-12-30 -tól indul az
időszámítás, bár a fenti példának nem számított a windows ilyen jellegü korlátoltsága.