aku berhasil membuat sebuah aplikasi yang bisa
menjumlah waktu, hanya saja harus disertai jam, menit, dan detik jika
hanya memerlukan jam dan menitnya saja silakan anda setting sendiri. Ini
juga harus disertai tiga TEdit. begini caranya...
var
Jam, Jam2, Jam3, Menit, Menit2, Menit3, Detik, Detik2, Detik3: Integer;
begin
Edit1.Text := TimeToStr(Time); //membaca waktu sekarang
Edit2.Text := '01:00:30' //Misal
if Length(Edit1.Text) = 7 then Edit1.Text := '0'+Edit1.Text;
Jam := StrToInt(Copy(Edit1.Text, 1, 2));
Menit := StrToInt(Copy(Edit1.Text, 4, 2));
Detik := StrToInt(Copy(Edit1.Text, 7, 2));
Jam2 := StrToInt(Copy(Edit2.Text, 1, 2));
Menit2 := StrToInt(Copy(Edit2.Text, 4, 2));
Detik2 := StrToInt(Copy(Edit2.Text, 7, 2));
Jam3 := Jam + Jam2;
Menit3 := Menit + Menit2;
Detik3 := Detik + Detik2;
while Detik3 > 60 do
begin
Detik3 := Detik3 - 60;
Menit3 := Menit3 + 1;
end;
while Menit3 > 60 do
begin
Menit3 := Menit3 - 60;
Jam3 := Jam3 + 1;
end;
while Jam3 > 24 do Jam3 := Jam3 - 24;
Edit3.Text := IntToStr(Jam3)+':'+IntToStr(Menit3)+':'+IntToStr(Detik3);
dan untuk mereplacenya ke system waktu perlu ditambah variable ini...
DT: TDateTime;
SysTime: TSystemTime;
dan langkahnya seperti ini
ReplaceDate(DT, Date);
ReplaceTime(DT, StrToTime(Edit3.Text));
DateTimeToSystemTime(DT, SysTime);
SetLocalTime(SysTime);
tambahkan di dalam procedure yg sama
//Selamat mencoba\\
