Membuat Program dari Detik ke Hari, Jam, Menit, dan Detik

Moshi~moshii...
Kali ini saya akan membuat sebuah program dari jumlah detik untuk diubah menjadi hari, jam, menit dan detik yang juga merupakan tugas kuliah dari PakHedi Ruswanto, S.kom.
Untuk membuat program tersebut, aku menggunakan aplikasi Delphi yang versi 2010.
Langsung aja kita mulai..



Berikut scripnya:

uses
  SysUtils;
type waktu=record
          hari,jam,menit,detik:longint;
end;
var
   n:waktu; total_detik,sisa_detik:longint;

begin
  writeln('Program Menampilkan Jumlah Hari, Jam, Menit dan Detik');
  writeln('====================================================');
  write('masukkan banyaknya detik:');readln(total_detik);
  writeln;
     n.hari     := total_detik div (24*60*60);
     sisa_detik := total_detik mod (24*60*60);
     n.jam      := sisa_detik div (60*60);
     sisa_detik := sisa_detik mod (60*60);
     n.menit    := sisa_detik div 60;
     n.detik    := sisa_detik mod 60;
     writeln('Hasil :');
     writeln('=====');
      writeln(n.hari,' Hari ',n.jam,' Jam ',n.menit,' Menit ',n.detik,' Detik');
   readln;
end.

script diatas bisa langsung diketikkan di aplikasi delphi, seperti gambar berikut.

 
Untuk melihat hasilnya, langsung saja klik play pada menu aplikasi tersebut. maka akan keluar seperti gambar dibawah ini.

Setelah itu coba isikan jumlah detik yang diinginkan. Misalkan saya contohkan 100000, maka hasilnya akan seperti berikut.

Selesai..

Itulah sedikit informasi dari saya, semoga bermanfaat^^
Kritik dan saran sangat membantu. Arigatoo gozaimasuu....

KIssbyeeee