Program Zodiak Dengan Visual basic 6.0

Hasilnya nanti seperti form dibawah ini..


Maaf,,,,tanggal lahir,bulan dan tahun nya ditampilkan untuk pemilik blog ini..

Listing Programnya :

Private Sub Form_Load()

    dtpLahir.Value = Now
    Call dtpLahir_Change
End Sub

Private Sub dtpLahir_Change()

    Dim a As String, b As String
    Dim c As String
    Dim d As String
   
    Dim tgl As Integer, bln As Integer, thn As Integer
    tgl = Format(dtpLahir.Value, "dd")
    bln = Format(dtpLahir.Value, "MM")
    thn = Format(dtpLahir.Value, "yyyy")
   
    'hari
    Select Case Weekday(dtpLahir.Value)
        Case 1: a = "Minggu"
        Case 2: a = "Senin"
        Case 3: a = "Selasa"
        Case 4: a = "Rabu"
        Case 5: a = "Kamis"
        Case 6: a = "Jum'at"
        Case 7: a = "Sabtu"
    End Select
   
    Select Case DateDiff("d", CDate("1/1/1900"), dtpLahir.Value) Mod 5
        Case 0: b = "Pahing"
        Case 1: b = "Pon"
        Case 2: b = "Wage"
        Case 3: b = "Kliwon"
        Case 4: b = "Legi"
    End Select
   
    'bintang
    Select Case bln
        Case 1: c = IIf(tgl <= 19, "Capricorn", "Aquarius")
        Case 2: c = IIf(tgl <= 19, "Aquarius", "Pisces")
        Case 3: c = IIf(tgl <= 20, "Pisces", "Aries")
        Case 4: c = IIf(tgl <= 20, "Aries", "Taurus")
        Case 5: c = IIf(tgl <= 21, "Taurus", "Gemini")
        Case 6: c = IIf(tgl <= 21, "Gemini", "Cancer")
        Case 7: c = IIf(tgl <= 21, "Cancer", "Leo")
        Case 8: c = IIf(tgl <= 21, "Leo", "Virgo")
        Case 9: c = IIf(tgl <= 22, "Virgo", "Libra")
        Case 10: c = IIf(tgl <= 23, "Libra", "Scorpio")
        Case 11: c = IIf(tgl <= 22, "Scorpio", "Sagitarius")
        Case 12: c = IIf(tgl <= 22, "Sagitarius", "Capricorn")
    End Select
   
    'shio
    Select Case thn - ((Int(thn / 12) * 12))
        Case 0: d = "Kera"
        Case 1: d = "Ayam"
        Case 2: d = "Anjing"
        Case 3: d = "Babi"
        Case 4: d = "Tikus"
        Case 5: d = "Lembu"
        Case 6: d = "Macan"
        Case 7: d = "Kelinci"
        Case 8: d = "Naga"
        Case 9: d = "Ular"
        Case 10: d = "Kuda"
        Case 11: d = "Domba"
    End Select
   
    txtHari.Text = a & " " & b
    txtBintang.Text = c
    txtShio.Text = d
End Sub

Trimakasih...!!!