Kode Untuk Konversi Tahun Masehi ke Tahun Hijriyah Dan Sebaliknya di VB6

Pada artikel kali ini saya akan berbagi sebuah kode yang berfungsi untuk mengkonversi dari tahun Masehi ke tahun Hijriyah dan sebaliknya dari tahun Hijriyah ke Masehi. Tahun Masehi dan Tahun Hijriyah memiliki perbedaan satu sama lain yaitu jika awal tahun pada kalender Masehi bertepatan pada 1 Januari dan akhir tahunnya bertepatan pada tanggal 31 Desember, sedangkan awal tahun pada kalender Hijriyah bertepatan pada tanggal 1 Muharam dan diakhiri pada akhir bulan Zulhijah.

Sejak Admin menulis artikel ini bertepatan tanggal 5 Agustus 2023 M atau 19 Muharam 1445 H. Pada artikel kali ini saya akan mencoba mengkonversi tanggal diatas yaitu dari Masehi ke Hijriyah dan begitu sebaliknya dengan menggunakan VB6.

Bagaimana cara membuatnya ikuti langkah-langkah dibawah ini :

1. Buka Form VB6 Anda

2. Pilih Standar EXE

3. Pada Form1 tambahkan 2 Label dan 2 Commandbutton

Tulis Caption pada Label1: 05/08/2023 Sedangkan Label2 : 19/01/1445

Tulis Caption pada Command1 : Masehi Ke Hijriyah sedangkan Command2 : Hijriyah ke Masehi

Desain Form

Kemudian ketik kode dibawah ini :

Private Sub Command1_Click()

'DARI TAHUN MASEHI KE HIJRIYAH

Dim c As Date

    c = CDate(Label1)

    Calendar = vbCalHijri

    MsgBox c, vbInformation, " TAHUN HIJRIYAH"

    MsgBox Format(c, "dddd"), vbInformation, " HARI"

   

End Sub

Private Sub Command2_Click()

'DARI TAHUN HIJRIAYAH KE MASEHI

Dim c As Date

    Calendar = vbCalHijri

    c = CDate(Label2)

    Calendar = vbCalGreg

    MsgBox c, vbInformation, " TAHUN MASEHI"

    MsgBox Format(c, "dddd"), vbInformation, " HARI"

End Sub

Kemudian jalankan kode Anda, klik kedua tombol tersebut lihat hasilnya dan cocokan pada kalender Anda tahun masing-masing.

Demikian artikel pada hari ini tentang Kode Untuk Konversi Tahun Masehi ke Tahun Hijriyah Dan Sebaliknya di VB6. Semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil

Related Post: Date/Time