How to define a Function in VBS with Default Valued parameter [duplicate]

Question

How to define a Function in VBS with Default Valued parameter?

I had tried many different ways, nothing seems working

Function Calculate(operator1 = 20, operator2 = 30)
 ' logic goes here
End Function

Function Calculate(Optional ByVal operator1 As Int = 20, Optional ByVal operator2 As Int = 30)
 ' logic goes here
End Function

As pointed out in the duplicate target you could use an Array() to pass the arguments or use null-checking inside the procedure. Ref Optional Arguments in VBScript. — user692942
– user692942, Commented Oct 6, 2020 at 10:51

Captain_Planet · Accepted Answer · 2020-10-06 09:42:39Z

3

I don't think VBScript supports 'Optional'. So you might have create a custom class like so:

class CustomClass
    Dim operator1
    Dim operator2

    function Calculate
        'set default values here
        if IsEmpty(operator1) then operator1 = 20
        if IsEmpty(operator2) then operator2 = 30

        msgbox operator1
        msgbox operator2
    end function
end class

Dim myCustomClass : Set myCustomClass = new CustomClass

'override values here if required
myCustomClass.operator1 = 11
myCustomClass.operator2 = 12

myCustomClass.Calculate

Set myCustomClass = Nothing

answered Oct 6, 2020 at 9:42

Captain_Planet

1,3581 gold badge15 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

user692942 Over a year ago

Wow, that's a lot of work for an optional argument, as the duplicate target points out you could use an Array() to pass the arguments or use null-checking inside the procedure. Ref Optional Arguments in VBScript

Collectives™ on Stack Overflow

How to define a Function in VBS with Default Valued parameter [duplicate]

1 Answer 1

1 Comment

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Linked

Related