# [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/

```