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
SOURCE: cannot install
Hey,u need first to install that, IIS(Internet Information Service) component because this is web technology.
SOURCE: how to run matlab .m files from visual basic 6
can you help me how to solve the videp basic problem in matlab?
SOURCE: how to make a horoscope code to visual baisc 6.0
How to make horoscope using visual basic 6.0?
SOURCE: what is the code for round robin in visual basic 6.0
That's not a question easily answered in the sense of a "language" (like VB, C or otherwise).
Round-Robin is actually a term for sharing a "time-slice"...
Meaning.. lets say there are 3 parties... each want 70% utilization of the processor (or time)... But.. obviously... 100% is all you have.
So.. How do you "fairly" share the time? There's a couple of ways, round-robin (for interrupts for example on x86 based processors) is a method.
What it means is-- regardless of how much time you want, or need.. the kernel (Operating system) will give you so long to get "whatever you are doing"...Done.
If you don't get it done in time... the next guy gets to do his job..for a similar amount of time... and the next guy.. and then..say-- back to you.
Hence..Round-Robin.. we all get a slice, and if we don't get it done in-time... next time around we'll another slice to get more work done... maybe the other 1 or 2 or N guys... are done, and we'll get move time..maybe others have joined in, and we'll get less-- its to-be-determinned at run-time...
That's not a code answer... I know.. but the question was a little abstract, if you can be more specific (code wise), I may be able to give more of an example..but for now, explaining WHAT it is may be more useful.
656 views
Usually answered in minutes!
×