サンプルコード
Public Function BlankToZero(ByVal s As String, Optional ByVal result As String = "0") As String
If Not Len(s) = 0 Then
result = s
End If
BlankToZero = result
End Function
Public Function BlankToZero(ByVal s As String, Optional ByVal result As String = "0") As String
If Not Len(s) = 0 Then
result = s
End If
BlankToZero = result
End Function
コメント