Membuat Aplikasi Menghitung Detik Menjadi Hari Jam Dan Menit

Buka aplikasi DELPHI 7
Lalu buat diagram seperti dibawah ini dengan menambahkan buttom, Edit,

 

 

 

 

Kemudian Ketikan script program  

 

1.      Klik Ganda Button Detik kemudian ketikan script seperti berikut:

procedure TForm1.HasilClick(Sender: TObject);
var
  a,b,c:integer;
begin

  a:=StrToInt(Detik.Text);
  b:=a mod (60*60*24);
  a:=a div (60*60*24);
  hari.Text:=inttostr(a);

  c:=b div (60*60);
  b:=b mod (60*60);
  jam.text:=inttostr(c);

  c:=b div 60;
  menit.Text := inttostr(c);
end;

Ket: 

-         Var  Mendefinisikan sebuah variabel

-         Integer untuk merubah tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan

-        StrToInt digunakan untuk merubah tipe data string ke tipe data integer.

-     Div di gunakan untuk pembagian interger

-     Mod digunakan untuk menampilkan sisa bagi variabel

 

            Lalu coba uji cobah deh klik run atau F9