Code Program Untuk Menghitung Selisih lama tanggal pada VB.Net

Petama Buat dulu form nya
misal nya pada pembuatn program sistem informasi pasien,
lama di rawat nya = (tanggal/bulan/tahun keluar) - (tanggal/bulan/tahun masuk)

kira2 giman ya cara ngitung nya di VB.Net ?
Berikut Tutorial membuat program Menghitung Selisih tanggal di Visual Basic .NET

buat satu 3 textbox
1. txtTglMasuk
2. txtTglKeluar
3. txtLama

Buat Button

terus buka source (view code)

Public Class Form1
    Dim hari As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtTglMasuk.Text = Format(System.DateTime.FromOADate(Today.ToOADate - 5), "dd MMMM yyyy")
        txtTglKeluar.Text = Format(Today, "dd MMMM yyyy")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        hari = DateDiff(DateInterval.Day, CDate(txtTglMasuk.Text), CDate(txtTglKeluar.Text))
        If Format(hari) = 0 Then
            txtLama.Text = "0"
            Exit Sub
        ElseIf Format(hari) < 0 Then

            txtLama.Text = "0"
            Exit Sub
        ElseIf Format(hari) > "0" Then
            txtLama.Text = Format(hari, "#,#")
        End If

    End Sub
End Class

nah, ketiklah code itu :)

penjelasan singkat :

txtTglMasuk.Text = Format(System.DateTime.FromOADate(Today.ToOADate - 5), "dd MMMM yyyy")
itu akan menampilkan 5 hari sebelum tanggal saat ini..

sekarang coba di run.. tekan f5

Code Program Untuk Menghitung Selisih lama tanggal pada VB.Net

4/ 5

Oleh Holong.Me