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?