Stunden/Minuten in Dezimalwerten

[himitsu]

jupp, wäre möglich


minuten := MinutesBetween(StrToDateTime(eStart.Text), StrToDateTime(eEnde.Text)));
macht och nur
minuten := Abs(Round((StrToDateTime(eEnde.Text) - StrToDateTime(eStart.Text)) * (24*60)));
und da eEnde vermutlich immer nach eStart liegt, kann das Abs entfallen.

ein div statt / erspart dir dann wiederum den weg über reelle typen.

Delphi-Quellcode:

stunden := gesamtminuten div 60;
minuten := gesamtminuten mod 60;

PS: falls du maximal 4 nachkommastellen benötigst ...
Currency ist in Wirklichkeit ein Int64 (64 Bit-Integer), nur das der automatisch (wenn es nötig ist) entsprechend umgewandelt wird, so das er wie ein fließkommatyp mit maximal 4 Nachkommastellen wirkt.

wäre bei 1.0 = 1 Tag eine Genauigkeit von 0,144 Minuten