[thechat] calculate party lameness
Bob Davis
bobd at members.evolt.org
Sun Feb 10 19:59:00 CST 2002
got this from another list I'm on and thought it was funny.
:)
bob
--- begin forwarded text
Don't try this in VBA or VB, kids...
Function GetChickAge(NumberOfGuys as Integer, NumberOfGirls as Integer,
AvgAge as Integer)
Dim DudeRatio as Long
Dim AcceptableDudeRatio as Long
Dim GoodRatio as Boolean
AcceptableDudeRatio = 0.5
DudeRatio = NumberOfGuys / NumberOfGirls
If DudeRatio > AcceptableDudeRatio Then
MsgBox "Wienie Factor", "Wienie Factor is too high at this" & _
"party!", vbOkOnly
GoodRatio = False
Else
MsgBox "Wienie Factor", "Wienie Factor at this party is" & _
"acceptable. Age Factor?", vbOkOnly
GoodRatio = True
End If
If GoodRatio = True Then
MsgBox "Factors:", "Wienie Factor acceptable. Average age" & _
": " & AvgAge, vbOkOnly
Else
MsgBox "Lame Party Alert!", & _
"Your party blows, man. We're going to a ***** bar.",
vbOkOnly
End If
GetChickAge = FALSE
End Function
--
bob davis
bobd at members.evolt.org
http://www.bobdavis.org/
More information about the thechat
mailing list