Need vba code for this function

[l0lcat]

'This function generates a random number, and if it is equal to the 'lucky number'
'then it returns 'True', otherwise it returns 'False'
Function getDiscount()
'generate randomNum between 1-10 inclusive
'If randomNum = LUCKYNUM Then:
'discount = True
'otherwise:
'discount = False
'return discount
End Function

 

[dmt32]

Hi,
see if this does what you want:

Function GetDiscount(ByVal LuckyNum As Integer) As Boolean
    Randomize
    'Random whole number between 1 and 10
    GetDiscount = Int(10 * Rnd) + 1 = LuckyNum
End Function

and to test:

Sub atest()


If GetDiscount(LuckyNum:=6) Then


MsgBox "You Get Discount"


Else


MsgBox "No Discount"


End If
End Sub

Dave