Membuat deteksi hari menggunakan visual basic 2008 / vb.net

Biasanya Membuat deteksi hari menggunakan visual basic 2008 / vb.net digunakan untuk aplikasi ramalan, baik ramalan jodoh ataupun ramalan berdasarkan hari lahir, dengan meggunakan visual basic 2008 dapat dengan mudah Membuat deteksi hari menggunakan visual basic 2008, caranya sebagai berikut: Buatlah form dengan 4 Label, 3 textbox dan 1 button, taruh Label 1 dibawah Button dan ganti text label1 menjadi HARI, label 2 menjadi BLN, label 3 menjadi TGL dan label4 menjadi THN seperti gambar dibawah:

 

Klik 2 kali form dan hapus semua kode yang sudah ada kemudian masukkan kode dibawah:

Imports System.Globalization.GregorianCalendar
Public Class Form1
    Dim tgl As New Globalization.GregorianCalendar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = tgl.GetDayOfWeek(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text).ToString
        If Label1.Text = "Sunday" Then
            Label1.Text = "Ahad"
        ElseIf Label1.Text = "Monday" Then
            Label1.Text = "Senin"
        ElseIf Label1.Text = "Monday" Then
            Label1.Text = "Senin"
        ElseIf Label1.Text = "Tuesday" Then
            Label1.Text = "Selasa"
        ElseIf Label1.Text = "Wednesday" Then
            Label1.Text = "Rabu"
        ElseIf Label1.Text = "Thursday" Then
            Label1.Text = "Kamis"
        ElseIf Label1.Text = "Friday" Then
            Label1.Text = "Jum'at"
        ElseIf Label1.Text = "Saturday" Then
            Label1.Text = "Sabtu"
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text > 12 Then
            MsgBox("Bulan tidak lebih dari 12")
            TextBox1.Text = "0"
        Else
            TextBox1.Text = TextBox1.Text
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text > 31 Then
            MsgBox("Tanggal tidak lebih dari 31")
            TextBox2.Text = "0"
        Else
        End If
    End Sub
End Class

Kode diatas juga otomatis deteksi jumlah bulan dan tanggal jika memasukkan bulan lebih dari 12 atau tanggal lebih dari 31 maka otomatis akan keluar messege box error.