Program Zodiak & Umur

Program Zodiak & Hitung umur ini saya buat setelah UTS Kuliah , program ini terdiri dari beberapa function and procedure . Semoga dapat dimanfaatkan dan dikembangkan lagi.

Untuk mendownload source code program ini dapat di download di bawah ini .

Download Link : http://www.easy-share.com/1913045301/prog_zodiak_hitungumur.rar

Download Link : http://www.ziddu.com/download/12637602/prog_zodiak_hitungumur.rar.html

Coding di Form :

Public Class lsthasil

    Function getzodiak(ByVal tgllahir As Date) As String

        Dim tanggal, bulan, zodiak As String

        tanggal = tgllahir.Day

        bulan = tgllahir.Month

        Select Case tgllahir.Month

            Case 1

                If tanggal >= 20 Then

                    zodiak = "Aquarius"

                Else

                    zodiak = "Capricorn"

                End If