zusammenfalten · markieren

Delphi-Quellcode:

    
// Sollzeit eintragen
     qrRechnen.SQL.Text:=sql_sollzeiten;
     qrRechnen.ParamByName('kalender_id').AsInteger:=strtoint(edkalenderdefid.Text);
     qrRechnen.ParamByName('jahr').AsString:=edkaljahr.Text;
     qrRechnen.ParamByName('eintritt').AsDate:=edeintritt.date;
     cdRechnen.open; // Sollzeit auslesen
     cdRechnen.First;
// Sollzeit in Client Dataset abfüllen (für Insert)
      for i:=1 to 12 do
      begin
        if cdRechnen.Locate('MONAT',i,[loCaseInsensitive]) then
        begin
          minuten:=cdRechnen.fieldbyname('ARBEITSZEIT_MINUTEN').AsInteger;
          stunden:=minuten/60;
          cdjahrkalender.FieldByName('MT'+inttostr(i)+'_ZEIT').asInteger:=trunc(minuten);
          cdjahrkalender.FieldByName('MT'+inttostr(i)+'_STD').asInteger:=trunc(stunden);
        end;
      end;

Dies ist meine Prozedur welche die Zeilen des Datasets cdRechnen in die Zeile des Datasets cdJahrKalender einfüllen soll. In diesem Dataset brauche ich die Stunden und Minuten getrennt in Feldern. Wie kann ich das schlau realisieren?

Im aktuellen Code werden mir die Minuten in Stunden angezeigt aber ich verliere die Minuten.
Im Feld MT(Monat)_Zeit sollen die totalen Minuten abgelegt werden (kein Problem.
Im Feld MT(Monat)_STD sollen die Stunden abgelegt werden
Im Feld MT(Monat)_MIN sollen dann anschliessen die Minuten (nur übrige) abgelegt werden.

Hab ich das verständlich ausgedrückt?

markieren

Delphi-Quellcode:

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

Zitat von Muetze1:

markieren

Delphi-Quellcode:

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

Vielen dank für die superschnell Antwort. Funktioniert nun.