Mencari Nama Hari pada Tanggal Bulan Tahun Tertentu dengan Visual Basic 6.0 (VB6)

Nama hari pada tanggal dan bulan tertentu sering kali kita lupa bahkan untuk mencari nama hari kita harus memutar balik tanggal pada komputer atau kalender bukankah dengan cara seperti itu akan sedikit membosankan dan membuang-buang waktu, untuk mengatasi masalah tersebut admin akan share source code Mencari Nama Hari pada Tanggal Bulan Tahun Tertentu menggunakan bahasa pemrograman Visual Basic 6.0 Untuk komponen yang digunakan yaitu Microsoft Masked Edit Control 6.0 dengan bentuk Mask : ##-##-#### (dd-MM-yyyy) dan interface tampilannya seperti gambar dibawah ini

Layout Tampilan 

Source Code Mencari Nama Hari pada Tanggal Bulan Tahun Tertentu

Dowble klik pada tombol kemudian pastekan syntak dibawah ini

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

Tambahkan juga function 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

Setelah itu simpan dan Run/F5, kemudian inputkan tanggal-bulan-tahun klik tombol, maka akan tampil nama hari yang sesuai dengan tanggal-bulan-tahun yang kita inputkan pada komponen Microsoft Masked Edit Control 6.0 sangat mudah dan gampang bukan. Semoga artikel kali ini dapat membantu sebagai referensi belajar.