[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.



--- 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
       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
       MsgBox "Lame Party Alert!", & _
              "Your party blows, man.  We're going to a ***** bar.",
    End If
GetChickAge = FALSE

End Function

bob davis
bobd at members.evolt.org

More information about the thechat mailing list