Class Concat
Implements IFunction
Public Function Calculate(args As IList(Of FunctionValue), currentCell As Cell) As FunctionValue
Dim result As New StringBuilder("")
For Each arg As FunctionValue In args
If arg.Type <> FunctionValueType.RANGE Then
result.Append(arg)
End If
Next
Return New FunctionValue(result.ToString())
End Function
End Class |