Dejavu Campus Blog (Donny E Suprayogo)

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));

Selasa, 08 Maret 11 - oleh : abrar
saya mau tanya gimana cara menjumlahkan menit dan jam di data base dan ditampilkan di tedit, misalkan :
hari               waktu
senin             00:20
rabu               00:10
kamis             01:10

jadi jumlahnya 01:40
sebelumnya saya ucapkan terimakasih
jawab :

• database pake mysql
• menggunakan query dengan perintah

SELECT SEC_TO_TIME(SUM(TIME_TO_SEC(waktu))) as TOTWAKU FROM LAMA

• jika ingin menampilkan hasil query ke edit

edit1.text:=query1.fieldbyname('totwaktu').asstring;

Secara default, Tedit pada Delphi ketika diinput akan menampilkan angka tanpa titik atau pemisah ribuan. Tetapi ada kasus yang membutuhkan format Currency atau format yang menggunakan titik dan koma pemisah, misalnya pada saat menginput angka 1000000, diharapkan agar Tedit secara otomatis mengubah inputan menjadi 1.000.000.

Berjmupa lagi dengan saya kali ini saya akan membahas cara membuat program mengetahui hari,tanggal,dan tahun menggunakan Borland Delphi.

Adapun caranya.
1. Bukak Program delphi anda, tentunya teman-teman sudah tau kalau belumtau klik start => all program => Pilih borland Delphi7(sesuai yang anda instal di komputer.
2 Masukan satu komponen edit
3 Klik Form, pilih event on active dan klik dua kali.
4 Masukan listing berikut
edit1.Text:=formatdatetime('dd,dddd-mmmm-yyyy',date( ));
5 jalankan program tekan f9