CODEWITHSUNDEEP
vbaexcel
kruk22
kruk22

Reputation: 159

Checking the passed variable

Is it possible to check if the passed variable in a function is a specific text? For example, I have a function:

Function dateCheck2(dateValue As String) As Boolean

If IIf(IsDate(frmResponse.txtEndDate), Format(CDate(frmResponse.txtEndDate), _
    "mm\/dd\/yyyy"), "") = dateValue Then
    dateCheck2 = True
    Exit Function
End If

End Function

Then I have to call this in a UForm, lets say :

dateCheck2(sample)

What I want is to check if the passed variable is sample. Is there any way to do that?

Upvotes: 0

Views: 45

Answers (1)

Luboš Suk
Luboš Suk

Reputation: 1546

Or you can create your own class (in VBA its called data type) which will hold variable name and values. Something like this

Public Type myFluffyType
     fluffyName as string
     fluffyValue as string
end Type

Then you can dim your variable like this

Dim fluffyVariable as myFluffyType

and initialize

fluffyVariable.fluffyName = "fluffyVariable"
fluffyVariable.fluffyValue = "notSoMuchFluffyValue"

and then when you passed it into your function you have all informations you need

Edit: on your problem you can do something like this. But im not sure what you exactly wana do next

Public type myType
     varName as string
     varValue as string
end type


Sub callDateCheck2
   Dim sample as myType
   sample.varName = "sample"
   sample.varValue = "whateverValues" 
   Call dateCheck2(sample)
end sub


Function dateCheck2(dateValue As myType) As Boolean

if dateValue.varName = "sample" then
    msgbox "everything ok"
else
    msgbox "bad variable name"
    end function
end if

If IIf(IsDate(frmResponse.txtEndDate), Format(CDate(frmResponse.txtEndDate), _
    "mm\/dd\/yyyy"), "") = dateValue Then
    dateCheck2 = True
    Exit Function
End If

End Function

Upvotes: 1

Related Questions