0 Selasa, (11/12/2012)

---

Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!

---

Hari ini melanjutkan tugas form keluar aplikasi parkir yang sadah 70% sekarang saya mencari cara untuk menghitung selisi waktu masuk dan waktu keluar. . . .

akhirnya saya bisa membuat selisi waktu
menggunakan function seperti di bawah ini. . .

-----------------------------------------------------------------

Function SelisihHariJam(ByVal Awal As Date, _
ByVal Akhir As Date) As String
Dim Detik As Long, hari As Long, Jam As Long
Dim JamLengkap As String
   
If Awal > Akhir Then
   MsgBox "Tanggal dan waktu awal harus lebih kecil " _
   & vbCrLf & _
            "dari pada tanggal dan waktu akhir", _
            vbCritical, "Peringatan"
     Exit Function
  End If
   
  'Tampung dalam durasi satuan terkecil, yaitu: DETIK
  Detik = DateDiff("s", Awal, Akhir)
  'Hitung jumlah jam dgn cara membagi 3600
  '(backslash ("\") supaya menghasilkan nilai Integer
  'tanpa pembulatan ke atas)
  Jam = Detik \ 3600
   
  'Kalo jumlah jam lebih besar dari 23 artinya: lebih
  'dari 1 hari
  If Jam > 23 Then
     'Hitung jumlah hari dgn cara membaginya dengan 24
     hari = Jam \ 24
     
     'Hitung Durasi Jam dalam hh:mm:ss
     JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
    Else 'Kalo jumlah jam <= 23
     hari = 0   'maka jumlah hari = nol
     'Hitung Durasi Jam dalam hh:mm:ss
     JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
  End If
   
  If hari = 0 Then  'Kalo jumlah hari = 0
     'Tampung hasil akhirnya
     SelisihHariJam = JamLengkap
   
  Else  'Kalo jumlah hari > 0, tampilkan jumlah harinya
     'Tampung hasil akhirnya
     SelisihHariJam = hari & " " & JamLengkap
  End If
  Exit Function

End Function
-----------------------------------------------------------------

selamat mencoba semoga berhasil. . . .
GOOD LUCK....