Home » Date/Time » Cara Menghitung Selisih dari Dua Tanggal dan Waktu di VB6

Cara Menghitung Selisih dari Dua Tanggal dan Waktu di VB6

Kategori

Menghitung Selisih dari Dua Tanggal dan Waktu di VB6 - Adakalanya kita membutuhkan suatu perhitungan untuk mencari selisih dari 2 tanggal atau 2 waktu dan hasilnya kita akan olah untuk menjadi sebuah ouput yang kita butuhkan. Salah satu contoh dari program yang menggunakan perhitungan ini adalah membuat program kasir parkir dengan sistem selisih waktu dan Program pinjaman buku dan sejenisnya dengan menggunakan selisih tanggal.

Untuk membuat program kasir parkir ini biasanya yang kita butuhkan adalah selisih dari waktu, kemudian outputnya akan di oleh menjadi sebuah harga bayar. Misalnya Mobil A parkir dari jam 12:00:00 – 13:00:00 maka selisih waktunya adalah 1 Jam dari output itu akan dikalikan dengan harga per jamnya contoh selisih waktu x harga per jam.

Berikut adalah langkah mencari 2 selisih tanggal dn waktu menggunkan VB6 adalah sebagai berikut “

Cara Menghitung Selisih dari Dua Tanggal dan Waktu di VB6

1. Mencari Selisih 2 Tanggal

  • Buka Form VB6 Anda pilih Standar EXE
  • Pada form tanamkan 2 buah DTicker,beberpa Label, 1 Textbox dan 1 Commandbuton

Oh iya…. Jangan lupa untuk memunculkan komponen DTPicker caranya adalah tekan CTRL+T kemudian pilih Microsoft Windows Common Controls -2.6.0

  • Desainlah form seperti Gambar dibawah ini :

Desain Form


  • Setelah Anda mendesain form ketiklah kode dibawah ini :


Private Sub Command1_Click()

selisih = DateDiff("d", DTPicker1.Value, DTPicker2.Value)

Text1.Text = selisih & " Hari"

If selisih < 0 Then

MsgBox "Batas tanggal telah lewat" & selisih & " Hari", vbInformation, "Tipandtrickunikvb"

End If

End Sub


Private Sub Form_Load()

DTPicker1.Value = Format(Now, "dd-mm-yyyy")

DTPicker2.Value = Format(Now, "dd-mm-yyyy")

End Sub


Jika telah selesai mengetikan kode diatas sekarang jalankan program Anda.Jika tidak ada error maka hasilnya akan tampak pada gambar dibawah ini :

Output Selisih Tanggal


Cara Pengoprasian :

Klik tanggal yang aktif kemudian pilih tanggal yang anda dikehendaki.

Apabila Anda mengklik tanggal yang sudah lewat atau yang telah lalu maka hasilnya akan minus

*Perhitungan ini biasanya untuk membuat program pinjaman buku atau sejenisnya


2. Mencari Selisih 2 Waktu

  • Buka Form VB6 anda pilih standar EXE
  • Pada form tanamkan beberapa Label, 1 Timer (Interval 1000), 1 Textbox dan 1 Commandbuton
  • Desainlah form seperti gambar dibawah ini :


  • Setelah Anda mendesain form kemudian ketik kode dibawah ini :

Private Sub Command1_Click()

Label5.Caption = CDate(Label4) - CDate(Text1.Text)

Label5.Caption = CDate(Label5)

End Sub


Private Sub Form_Load()

Text1.Text = Time

End Sub


Private Sub Timer1_Timer()

Label4.Caption = Time

End Sub


Jika sudah coba jalankan program Anda, jika tidak ada error maka hasilnya akan tampak seperti gambar dibawah ini :

Output Seleisih Waktu


Cara pengopeasian :

Pada saat di load di layer waktu masuk/input akan muncul di Textbox, kemudian tinggal klik tombol Chek maka selisihnya akan dihitung mulai dari Anda megkliknya. Hasilnya akan terlihat pada angka jam, menit, detik tergantung Anda lamanya menunggu untuk mengklik.

Demikinalah artikel dari saya tentang Cara Menghitung Selisih dari Dua Tanggal dan Waktu di VB6, Semoga artikel ini bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses….


No comments:

Post a Comment