Time Calculation

[DMT Dave]

Hi Guys, I have text box with ie: 15:38 (start time), how can I calculate the finish time and calculate the hours, the following is the log out button, I think if I am correct the setting as string maybe wrong ?

Dim DateNow As Date, TimeNow As String
Dim MyName As String, TotalHrs As String
DateNow = Format(Now(), "dd-mmm-yyyy")
TimeNow = Format(Now(), "hh:nn")
MyName = Me.cmdOutAF.Caption
Me.txtOutAF = DateAdd("hh:nn", , Me.txtInAF)

[pbaldy]

You shouldn't use String if you want to do math with the values. I'm not sure what all that is trying to accomplish, and the arguments for the DateAdd() are wrong. To calculate the elapsed time, I'd expect the DateDiff() function. Just use Now() in that without the formatting stuff.