Time Difference Not Being Calculated Properly

[Ark68]

I amtrying to get the value of the difference between two times with the code below.

                tdiff = ((CDate(Me.uf9a_tb_cend.Value)) - (CDate(Me.uf9a_tb_cstart.Value))) - 0.5
                .Cells(drow, 5) = Format(tdiff * 24, "0.0")

Me.uf9a_tb_cend.Value = "3:00 pm"
Me.uf9a_tb_cstart.Value = "7:00 am"

The expected answer is 7.5 (difference between end and start times minus 30 minutes)

I am getting an anser of -4.0

 

[MARK858]

Sub XXXX()
MsgBox Format(TimeValue(Me.uf9a_tb_cend.Value) - TimeValue(Me.uf9a_tb_cstart.Value) - (0.5 / 24), "HH:MM")
End Sub

 

[Ark68]

Thank you Mark ...
I substituted my garbage with your suggestion ..

                .Cells(drow, 5) = Format(TimeValue(Me.uf9a_tb_cend.Value) - TimeValue(Me.uf9a_tb_cstart.Value) - (0.5 / 24), "HH:MM")

The result I am getting now in the cell is 0.3

 

[MARK858]

Format your cell as one of the time formats or [hh]:mm or hh:mm

 

[Ark68]

I don't thnk I can do that with my application Mark as the cell doesn't always hold a time value. Any formatting has to be done run time.

 

[MARK858]

What is your cell formatted as now and what do you have in the cell when not a time?

or format the cell in the code...

.Cells(drow, 5) = Format(TimeValue(Me.uf9a_tb_cend.Value) - TimeValue(Me.uf9a_tb_cstart.Value) - (0.5 / 24), "HH:MM")
.Cells(drow, 5).NumberFormat = "[hh]:mm"