Membuat converter Masehi ke Hijriyah menggunakan visual basic 2008 / vb.net

Pada awalnya banyak yang bertanya bagimana Membuat converter Masehi ke Hijriyah menggunakan visual basic 2008 / vb.net, kemudian saya mulai merancang kode menggunakan visual basic 2008 yang sangat sederhana dan mungkin mudah untuk dipahami, dan dibawah ini adalah cara Membuat converter Masehi ke Hijriyah menggunakan visual basic 2008 / vb.net cukup buatlah 3 textbox 1 button dan 4 label seperti gambar dibawah ini:

Kemudian klik 2 kali formnya dan hapus semua kode yang ada lalu masukkan kode dibawah ini:

Imports System.Globalization.HijriCalendar
Imports System.Globalization.GregorianCalendar
Public Class Form1
    Dim hij As New Globalization.HijriCalendar
    Dim mas As New Globalization.GregorianCalendar

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = hij.GetDayOfMonth(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text)
        Label2.Text = hij.GetMonth(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text)
        Label3.Text = hij.GetYear(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text)
        Label4.Text = hij.GetDayOfWeek(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text).ToString
        If Label2.Text = 1 Then
            Label2.Text = "Muharam"
        ElseIf Label2.Text = 2 Then
            Label2.Text = "Shofar"
        ElseIf Label2.Text = 3 Then
            Label2.Text = "Robi'ul Awwal"
        ElseIf Label2.Text = 4 Then
            Label2.Text = "Robi'ul Akhir"
        ElseIf Label2.Text = 5 Then
            Label2.Text = "Jumadil Awwal"
        ElseIf Label2.Text = 6 Then
            Label2.Text = "Jumdil Akhir"
        ElseIf Label2.Text = 7 Then
            Label2.Text = "Rojab"
        ElseIf Label2.Text = 8 Then
            Label2.Text = "Sya'ban"
        ElseIf Label2.Text = 9 Then
            Label2.Text = "Romadlon"
        ElseIf Label2.Text = 10 Then
            Label2.Text = "Syawwal"
        ElseIf Label2.Text = 11 Then
            Label2.Text = "Dzul Qo'idah"
        ElseIf Label2.Text = 12 Then
            Label2.Text = "Dzul Hijjah"
        End If
    End Sub
End Class

Dan sekarang coba Run maka hasilnya akan seperti gambar dibawah:

Jika ingin mengganti nama hari dari Sunda ke Ahad maka tambahkan kode dibawah ini setelah End If

       If Label4.Text = "Sunday" Then
            Label4.Text = "Ahad"
        ElseIf Label4.Text = "Monday" Then
            Label4.Text = "Senin"
        ElseIf Label4.Text = "Monday" Then
            Label4.Text = "Senin"
        ElseIf Label4.Text = "Tuesday" Then
            Label4.Text = "Selasa"
        ElseIf Label4.Text = "Wednesday" Then
            Label4.Text = "Rabu"
        ElseIf Label4.Text = "Thursday" Then
            Label4.Text = "Kamis"
        ElseIf Label4.Text = "Friday" Then
            Label4.Text = "Jum'at"
        ElseIf Label4.Text = "Saturday" Then
            Label4.Text = "Sabtu"
        End If

Maka hasil akhirnya akan seperti gambar dibawah:

Keterangan:
Textbox1 digunakan untuk Bulan textbox2 untuk tanggal dan texbox3 untuk tahun jika dibolak balik maka akan error karena converter Masehi ke Hijriyah masih menggunakan kode awal, jika dikembangkan lagi maka bisa membuat program converter Masehi ke Hijriyah menggunakan visual basic 2008 / vb.net dengan lebih sempurna.