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