Mencari Nama Hari Pada Tanggal, Bulan dan Tahun Tertentu | VB6

Baca Juga :

Salam sahabat Visual Basic 6 semuanya, pada kesempatan kali ini admin akan share sebuah source code ringan yaitu untuk mempermudah para user mencari nama hari pada tanggal, bulan dan tahun tertentu. Mungkin jika hari yang kita akan cari masih dalam satu bulan pada bulan sekarang, tentunya tidak akan sulit tinggal klik ControlPannel - Clock, Language and Region - Date and Time. Akan tetapi jika nama hari pada tanggal, bulan dan tahun sekitar 20 tahun yang lewat, tentunya akan membosankan bukan dalam pencariannya pada menu date and time windows. langsung saja masuk ke pembahasan.

Buka Ms. Visual Basic 6.0 tambahkan komponen MaskedBox, Label dan CommandButton seperti gambar di bawah ini : 

Double klik pada CommandButton (tombol) copykan 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

Selanjutnya buatlah sebuah Function, untuk penamaan Function pada Source Code ini dengan nama GetDayInWeek

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

Untuk yang terakhir Save kemudian RUN. Layout tampilannya seperti gambar dibawah ini

Sangat mudah bukan, untuk lebih jelasnya Source Code Mencari Nama Hari Pada Tanggal, Bulan dan Tahun Tertentu | VB6 ini bisa didownload pada tombol download diatas.

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn

Subscribe untuk berlangganan artikel :