Aber sicher doch
ich hoffe nur meine Variablen sind nicht zu verwirrend... falls ihr noch allgemeine Verbesserungsvorschläge habt nur her damit.
Delphi-Quellcode:
procedure TArbeitszeitenrechner.BtnAuswertungClick(Sender: TObject);
var
arbeitsbeginnstd, arbeitsbeginnmin, arbeitsbeginnkpl: integer;
arbeitsendestd, arbeitsendemin, arbeitsendekpl: integer;
pause, ergebnismin: integer;
ergebnis: single;
begin
arbeitsbeginnstd := StrToInt(EdtAbeginnStdMo.Text);
arbeitsbeginnmin := StrToInt(EdtAbeginnMinMo.Text);
arbeitsendestd := StrToInt(EdtAendeStdMo.Text);
arbeitsendemin := StrToInt(EdtAendeMinMo.Text);
pause := StrToInt(EdtPauseMo.Text);
arbeitsbeginnkpl := (arbeitsbeginnstd * 60) + (arbeitsbeginnmin);
arbeitsendekpl := (arbeitsendestd * 60) + (arbeitsendemin);
ergebnismin := ((arbeitsendekpl - arbeitsbeginnkpl) - pause);
ergebnis := (ergebnismin / 60);
LblIstArbeitszeitMo.Caption := FloatToStr(ergebnis);
end;