einen wunderschönen hallo zusammen
ich hoffe, daß ich hier richtig bin, habe nämlich ein kleines problem daß ich mit meinem bescheidenen wissen nicht zu lösen vermag.
es geht um die umrechnung einer uhrzeit ohne sekunden,
bei 4 spinedits, sind die ersten beiden dazu da um die stunde und die minute eingestellt zu bekommem.
wenn ich spinedit1.value = 12, und spinedit2.value =60 habe dann will ich
das mir spinedit3.value = 13, und spinedit4.value =00 angezeit wird, und daß spinedit4 ganz normal bei 0 weiterzählt.
ich habe es mit folgendem ansatz probiert, komme aber nicht weiter.
Delphi-Quellcode:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
Present:= Now;
SysUtils.DecodeTime(Present, Hour, Min, Sec, MSec);
MyHour:= Hour + SpinEdit1.Value;
MyMin:= Min + SpinEdit2.Value;
if MyHour < 10 then Edit2.Text:= '0' + IntToStr(MyHour) + ':' else Edit2.Text:= IntToStr(MyHour) + ':';
if Mymin < 10 then Edit2.Text:= Edit2.Text + '0' + IntToStr(MyMin) else Edit2.Text:= Edit2.Text + IntToStr(MyMin);
end;
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
Present:= Now;
SysUtils.DecodeTime(Present, Hour, Min, Sec, MSec);
MyHour:= Hour + SpinEdit1.Value;
MyMin:= Min + SpinEdit2.Value;
if MyMin > 60 then
begin
inc(Hour);
SpinEdit3.Value := Hour;
SpinEdit4.Value := Min;
end;
if MyHour < 10 then Edit2.Text:= '0' + IntToStr(MyHour) + ':' else Edit2.Text:= IntToStr(MyHour) + ':';
if Mymin < 10 then Edit2.Text:= Edit2.Text + '0' + IntToStr(MyMin) else Edit2.Text:= Edit2.Text + IntToStr(MyMin);
end;
kann mir bitte jemand helfen? mit meinen zeit-datums-umrechnungskünsten komme ich einfach nicht weiter.
erstmal danke und gruß
ara