[thechat] calculate party lameness

[Bob Davis]

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/