Menghitung Durasi Menggunakan VB.NET

Tutorial kali ini saya akan share bagaimana cara menghitung Durasi pada billing menggunakan VB.NET. Sebagai contoh kasus pada project Rental PS (Play Station) atau billing Warnet.

OK pertama-tama design dulu form nya seperti dibawah ini, sebagai contoh buat yang simple saja formnya :

Setelah selesai design formnya, sekarang lanjut ke koding untuk menghitung Durasi.

Coding :

Public Class frmUtama

    Dim JamMulai, JamMulaiTV2, JamMulaiTV3, JamMulaiTV4, JamMulaiTV5, JamMulaiTV6, JamMulaiTV7, JamMulaiTV8, JamMulaiTV9, JamMulaiTV10 As Date
    Dim JamSelesai, JamSelesaiTV2, JamSelesaiTV3, JamSelesaiTV4, JamSelesaiTV5, JamSelesaiTV6, JamSelesaiTV7, JamSelesaiTV8, JamSelesaiTV9, JamSelesaiTV10 As Date
    Dim Harga, HargaTV2, HargaTV3, HargaTV4, HargaTV5, HargaTV6, HargaTV7, HargaTV8, HargaTV9, HargaTV10 As Long

    Private Sub frmUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koneksi()
        lblTanggal.Text = Date.Today
        Tampilkan_Harga()
    End Sub

    Private Sub TimerAplikasi_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerAplikasi.Tick
        lblJam.Text = TimeOfDay
    End Sub

    Private Sub btnStartTV1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartTV1.Click
        JamMulai = Format(TimeOfDay, "hh:mm:ss")
        lblJamMulaiTV1.Text = JamMulai
        TimerTV1.Enabled = True
        LedTV1.BackColor = Color.Lime
    End Sub

    Private Sub TimerTV1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerTV1.Tick
        JamSelesai = Format(TimeOfDay, "hh:mm:ss")
        lblJamSelesaiTV1.Text = JamSelesai
        Dim durasi As TimeSpan = JamSelesai - JamMulai
        lblDurasiTV1.Text = String.Format("{0:00}:{1:00}:{2:00}", _
                                      Math.Truncate(durasi.TotalHours), _
                                    durasi.Minutes, durasi.Seconds)
        Harga = durasi.Minutes * (FrmHarga.txtHarga.Text / 60)
        If Harga = Int(Harga) + IIf(CDbl(CStr(Harga - Int(Harga))) >= 0.4, 1, 0) Then
            lblBiayaTV1.Text = "Rp. " & Harga
        End If
    End Sub

    Private Sub btnStopTV1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStopTV1.Click
        TimerTV1.Enabled = False
        LedTV1.BackColor = Color.Red
        MessageBox.Show("USER : " & lblUserTV1.Text & vbNewLine & _
                        "Jam Mulai : " & lblJamMulaiTV1.Text & vbNewLine & _
                        "Jam Selesai : " & lblJamSelesaiTV1.Text & vbNewLine & _
                        "Durasi : " & lblDurasiTV1.Text & vbNewLine & _
                        "Harga : " & Harga & vbNewLine & _
                        "Terima Kasih atas kunjungannya", "Informasi", MessageBoxButtons.OK)
    End Sub

Coding diatas itu utk 10 komputer, jadi anda tinggal sesuaikan saja.
Coding yang dicetak tebal itu untuk menghitung durasi dan harga berdasarkan lama waktu penyewaan.
Semoga bermanfaat.