如何将null做为参数传递给自定义函数

Question

Public Function yesToOne(stra As String)
   If IsNull(stra) Then
    yesToOne = 0
   Else
    If stra = "是" Then
      yesToOne = 1
    Else
      yesToOne = 0
    End If
   End If
End Function如果传入的参数为空,就会出错.这个怎么改?谢谢.

Answer 1

Public Function yesToOne(stra As String)
  If trim(stra)="" Then
      yesToOne = 0
  Else
      If stra = "是" Then
          yesToOne = 1
      Else
          yesToOne = 0
      End If
  End If
End Function

Answer 2

这招不灵. 我是把 as string 去掉就可以了,但应该有更好的方法吧?

Answer 3

Public Function yesToOne(stra As variant)
  If IsNull(stra) Then
  yesToOne = 0
  Else
  If stra = "是" Then
  yesToOne = 1
  Else
  yesToOne = 0
  End If
  End If
End Function