Creating a horoscope code in visual basic - Microsoft Visual Basic 6.0 for PC

Private Function Horoscope(pBirthDate As Date) As String
Dim pMonth As Integer
Dim pDay As Integer
pMonth = Month(pBirthDate)
pDay = Day(pBirthDate)
If pMonth = 3 Then
If pDay >= 21 Then 'And pDay <= 31 Then
Horoscope = "Aries"
Else
Horoscope = "Pisces"
End If
ElseIf pMonth = 4 Then
If pDay >= 20 Then 'And pDay <= 30 Then
Horoscope = "Taurus"
Else
Horoscope = "Aries"
End If
ElseIf pMonth = 5 Then
If pDay >= 21 Then 'And pDay <= 31 Then
Horoscope = "Gemini"
Else
Horoscope = "Taurus"
End If
ElseIf pMonth = 6 Then
If pDay >= 22 Then 'And pDay <= 30 Then
Horoscope = "Cancer"
Else
Horoscope = "Gemini"
End If
ElseIf pMonth = 7 Then
If pDay >= 23 Then 'And pDay <= 31 Then
Horoscope = "Leo"
Else
Horoscope = "Cancer"
End If
ElseIf pMonth = 8 Then
If pDay >= 23 Then 'And pDay <= 31 Then
Horoscope = "Virgo"
Else
Horoscope = "Leo"
End If
ElseIf pMonth = 9 Then
If pDay >= 23 Then 'And pDay <= 30 Then
Horoscope = "Libra"
Else
Horoscope = "Virgo"
End If
ElseIf pMonth = 10 Then
If pDay >= 23 Then 'And pDay <= 31 Then
Horoscope = "Scorpio"
Else
Horoscope = "Libra"
End If
ElseIf pMonth = 11 Then
If pDay >= 22 Then 'And pDay <= 30 Then
Horoscope = "Sagittarius"
Else
Horoscope = "Libra"
End If
ElseIf pMonth = 12 Then
If pDay >= 22 Then 'And pDay <= 31 Then
Horoscope = "Capricorn"
Else
Horoscope = "Sagittarius"
End If
ElseIf pMonth = 1 Then
If pDay >= 20 Then 'And pDay <= 31 Then
Horoscope = "Aquarius"
Else
Horoscope = "Capricorn"
End If
Else 'If pMonth = 2 Then
If pDay >= 19 Then 'And pDay <= 29 Then
Horoscope = "Pisces"
Else
Horoscope = "Aquarius"
End If
End If
End Function

How to make horoscope using visual basic 6.0?

Visual basic 6? That's for you to program. Try Google.

Standard VB or .NET VB ?

Read the HOW TO section in the Help File of the program, or search the net for "what is visual basic practical"

There are many online help sites available especially for Visual Studio. One of my favorites (which happens to be free) is www.planet-source-code.com. Professionals and begginners alike post code they have created for the community. There is a comprehensive search tool to find examples of code that could prove to be helpful to you.

Simple method Open both tables (or create second) and copy each record from source to target through 'do while not eof' or 'for each' syntax.

Second solution create link in target DB for first table, and use SELECT INTO statment in SQL.

Crystal Reports comes bundles with VB6 and is a good choice fro reports. Regards -- Joe

try this
http://www.snapfiles.com/help/missingfiles.html
or try this also
http://www.visual-basic.com.ar/vb-ocx-files.htm
http://www.bigresource.com/VB-Created-activex-ocx-but-browser-wont-load-DEl2srDlaG.html

it might help u good luck

visual basic software