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 ibarat itu akan sedikit membosankan dan membuang-buang waktu, untuk mengatasi problem tersebut admin akan share source code Mencari Nama Hari pada Tanggal Bulan Tahun Tertentu memakai bahasa pemrograman Visual Basic 6.0 Untuk komponen yang dipakai ialah Microsoft Masked Edit Control 6.0 dengan bentuk Mask : ##-##-#### (dd-MM-yyyy) dan interface tampilannya ibarat gambar dibawah ini

Mencari Nama Hari Pada Tanggal Bulan Tahun Tertentu Dengan Visual Basic 6.0 (Vb6)
Layout Tampilan 
Source Code Mencari Nama Hari pada Tanggal Bulan Tahun Tertentu


Dowble klik pada tombol lalu 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, lalu 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 simpel dan simpel bukan. Semoga artikel kali ini sanggup membantu sebagai acuan belajar.