Time difference using vba

[roipatrick]

I need help on how to subtract two military time in vba.

Here's how i grab the start time

Sub Start_Timer_Button()    'Call Clear
    Worksheets("Control Panel").Cells.Locked = False
    Range("L16").Value = Time
    Worksheets("Control Panel").Range("L16").Locked = True
    Worksheets("Control Panel").Protect Password:="Str0ngp@ssw0rd", UserInterfaceOnly:=True
End Sub

Here's how I end the time

Sub Stop_Timer_Button()    Worksheets("Control Panel").Cells.Locked = False
    Range("L18").Value = Time
    Worksheets("Control Panel").Range("L16").Locked = True
    Worksheets("Control Panel").Range("L18").Locked = True
    Worksheets("Control Panel").Protect Password:="Str0ngp@ssw0rd", UserInterfaceOnly:=True
    Call Compute
End Sub

As you can see I call a compute procedure, Here's the procedure

Sub Compute()    Dim x As Date
    Dim y As Date
    Dim t As Date
    
    x = Worksheets("Control Panel").Range("L18").Value
    y = Worksheets("Control Panel").Range("L16").Value
    MsgBox CDbl(TimeValue(x)) * 24
    MsgBox CDbl(TimeValue(y)) * 24
    zoo = x - y
    
    t = zoo / 24
    MsgBox "d = " & d & vbLf & "t = " & t
    
    
End Sub

It keep returning me this result "12:00:00 AM"

Where did i do wrong ?

Thanks in advance for the help

 

[Andrew Poulsom]

When you assign Time to L16 and L18 you haven't qualified the Range with its Worksheet object (Control Panel). Maybe the data is on a different sheet.

 

[roipatrick]

When you assign Time to L16 and L18 you haven't qualified the Range with its Worksheet object (Control Panel). Maybe the data is on a different sheet.

Hi and thanks for the reply.

All Data sir is in a single worksheet which is control panel

 

[Andrew Poulsom]

Yes but you have:

Range("L16").Value = Time

rather than:

Worksheets("Control Panel").Range("L16").Value = Time