Adding time values

[DC CS]

Good day all,
I have a simple question today that I seem not be able to solve (maybe I need a break).
I have 2 time columns per day, i.e 10 in total.
At the end of the week, I want to add all the elapsed time for each day together in a seperate textbox.

Calculating the elapsed time per day is easy. My issue is to add each days elapsed time together in the textbox. To calculate the time elapsed, I am using a short piece of code found on the internet:

Public Function ElapsedTime(endTime As Date, startTime As Date)    
    Dim Interval As Date
    
    ' Calculate the time interval.
    Interval = endTime - startTime
        
    ' Format and print the time interval in hours, minutes and seconds.
    strOutput = Int(CSng(Interval * 24)) & ":" & Format(Interval, "nn")
    
End Function

When the function returns the "strOutput" value, I want to add this to the current value of the tectbox:

Private Sub Command52_Click()Call ElapsedTime(TimeEnd1, TimeStart1)
Me!Tot_Normal1.Value = Me!Tot_Normal1.Value + strOutput
End Sub

Running the latter produces an error.

Any suggestions?

Thanks
Deon

[Welshgasman]

When you call a function, you should set the return value to the function name, so no idea what that is doing?

ElapsedTime = Interval

Calling it

ET = ElapsedTime(OneDate. SecondDate)

You have not Dimmed StrOuput, so that tells me you do not have Option Explicit in the module? Even if you had it is local to that function.
You do not even say what the error is? :

DO NOT format the time until you want to display it, as that makes it a string and you cannot carry out math with strings.

[Bob Fitz]

Why are using a function to calculate the daily total. Why not just use an expression e.g. endTime - startTime and then also use an expression in the WeekTotal textbox e.g. Tot1+Tot2+Tot3+Tot4+Tot5

[DC CS]

Hi. I said maybe I need a break, and that is what I did.
The calculation works fine now!!

Thanks