Public Shared Function ToTimeSpan( _
   ByVal value As Object _
) As TimeSpan

Dim value As Object
Dim value As TimeSpan
 
value = CalcConvert.ToTimeSpan(value)

public static TimeSpan ToTimeSpan( 
   object value
)

public class TSFunctionInfo : FarPoint.CalcEngine.FunctionInfo
    {
        public override string Name { get { return "TIMEIT"; } }
        public override int MinArgs { get { return 1; } }
        public override int MaxArgs { get { return 1; } }
        public override object Evaluate (object[] args)
        {
            TimeSpan ts = FarPoint.CalcEngine.CalcConvert.ToTimeSpan(args[0]);
            return ts;
        }
}

Public Class TSFunctionInfo
   Inherits FarPoint.CalcEngine.FunctionInfo

   Public Overrides ReadOnly Property Name() As String
   Get
   Return "TIMEIT"
   End Get
   End Property

   Public Overrides ReadOnly Property MinArgs() As Integer
   Get
   Return 1
   End Get
   End Property

   Public Overrides ReadOnly Property MaxArgs() As Integer
   Get
   Return 1
   End Get
   End Property

   Public Overrides Function Evaluate(ByVal args() As Object) As Object
   Dim ts As TimeSpan = FarPoint.CalcEngine.CalcConvert.ToTimeSpan(args(0))
   Return ts
   End Function
End Class