Coding Untuk Menghitung Selisih lama tanggal pada Microsoft Visual Studio 2008

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)

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

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