Mencari Nama Hari Dari Suatu Tanggal Tertentu di VB6

Pada postingan kali ini saya akan berbagi trik yaitu bagaimana cara mencari hari dari suatu tanggal tertentu menggunakan vb6.

Kadang nama hari dari suatu tanggal sering terlupakan oleh kita karena sudah berlalu sehingga kita lupa pada hari apakah tanggal tersebut berada, sehingga kita perlu memutar balik tanggal yang telah berlalu untuk mencari nama harinya, tentu hal ini akan menyita waktu kita apalagi tanggal yang kita cari sudah terlalu lama sehingga lupa harinya.

untuk mengatasi hal diatas saya kan berbagi triknya yaitu berupa source code untuk mencari nama hari dari suatu tanggal tertentu dengan vb6.

Berikut adalah langkah-langkah untuk menjalankan source code untuk mencari nama hari dari suatu tanggal tertentu dengan vb6.

1. Buat Form baru dengan Standar Exe

2. Tambahkan beberapa Label, 1 CommandButton dan 1 Microsoft Masked Edit Control 6.0 dengan bentuk Mask : ##-##-#### (DD-MM-YYYY)

3. Desainlah Form seperti gambar dibawah ini :

Desain Form

4. Setelah mendesain form seperti diatas, lalu ketik kode dibawah ini :

Private Function GetDayInWeek(d As Date) As Integer

    Dim dt As Date, I As Integer

    For dt = CDate(Format$(d, "mm/yyyy")) To DateAdd("m", 1, d)

            I = I + 1

    Next

    GetDayInWeek = I

End Function

Private Sub Command1_Click()

    Dim KodeHari As Byte

    Dim Hari As String

    KodeHari = Weekday(MaskEdBox1)

    Select Case KodeHari

        Case 1: Hari = "Minggu"

        Case 2: Hari = "Senin"

        Case 3: Hari = "Selasa"

        Case 4: Hari = "Rabu"

        Case 5: Hari = "Kamis"

        Case 6: Hari = "Jumat"

        Case 7: Hari = "Sabtu"

    End Select

    Label3.Caption = Hari

End Sub

Private Sub Form_Load()

Label3.Caption = ""

End Sub

5. Kemudian jalankan project Anda, lalu input pada bagian masked edit control 6.0 tanggal-bulan dan tahun untuk mencari nama harinya.

Jika Form anda berhasil dijalankan maka akan tampak seperti gambar dibawah ini :

Output

Demikian artikel pada hari ini semoga bermanfaat buat kita semua.amin

Selamat mencoba semoga sukses

Related Post: Date/Time