Function: String as input

mtheriault2000 said:

Hello again

I want to create a function to manipulate strings

Code:

Public Function NextBartime(ByRef t1 As String, ByRef t2 As String) As String

' Part of the code by  Rick Rothstein

Dim Realt1, realt2 As Date
Dim Newtime As String

    Realt1 = CDate(Format(t1, "@@@@-@@-@@ @@@@@@@@"))
    realt2 = CDate(Format(t2, "@@@@-@@-@@ @@@@@@@@"))
    NexBartime = Format((realt2 - Realt1) + realt2, "yyyymmdd hh:mm:ss")
End Function

Sub testnextbar()
Dim t1, t2, rt As String

t1 = "20110922 18:57:00"
t2 = "20110922 19:00:00"

'Call the function 
rt = NextBartime(t1, t2)

End Sub

My Sub give an error on T1 as an incompatible argument

Any idea where I miss the point???

Martin

Click to expand...

Dim T1, T,T2 ,RT as string

by making a new variable address, you forced Excel to evaluate the funtion arguments, triggering the automatic type conversion.

Click to expand...

understand that point

Have a great day

Martiin