Time format

[war24]

Hello
Can you help me Guys about the calculation of two time
The start time and end time how I subtract it using a code in user form

Private sub Tb11_change()
Me.Tb11.value = timevalue(Tb10.value) - timevalue(tb9.value)
End sub

 

[Legacy 143009]

How about:

Me.Tb11.value = DateDiff("n", tTb10.value, ttb9.value)

 

[Georgiboy]

I think that part of the problem is that you want the time difference to load in Tb11 but you have the code inside a Tb11 Change event, this means that the value of Tb11 will not calculate until you make a change to Tb11. Instead try updating the value of Tb11 using a Tb10 Exit event as below:

Private Sub Tb10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.Tb11.Value = Format(TimeValue(Me.Tb10.Value) - TimeValue(Me.Tb9.Value), "hh:mm")
End Sub

 

[Legacy 143009]

Inspiring from @Georgiboy 's solution:

Private Sub Tb10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Format(Me.Tb11.Value2, "hh:mm") = Me.Tb10.Value2 - Me.Tb9.Value2
End Sub

 

[war24]

The Problem is

I think that part of the problem is that you want the time difference to load in Tb11 but you have the code inside a Tb11 Change event, this means that the value of Tb11 will not calculate until you make a change to Tb11. Instead try updating the value of Tb11 using a Tb10 Exit event as below:

Private Sub Tb10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.Tb11.Value = Format(TimeValue(Me.Tb10.Value) - TimeValue(Me.Tb9.Value), "hh:mm")
End Sub

The problem is, This code calculate only "HH" not showing the value of "mm"

 

[Georgiboy]

In what format do you enter the time into the textbox?

It should be 15:30 for example

Time on Form.xlsm

 

[war24]

In what format do you enter the time into the textbox?

It should be 15:30 for example

Time on Form.xlsm

What do you mean by format ? Excel ? userform vba ?

 

[Georgiboy]

When you enter the times in the textboxes, do you enter 0130PM or 01:30PM or 0130 or 01:30 or 01:30:00?

 

[war24]

01:30:00 THIS ONE

 

[Georgiboy]

You can edit the code to display seconds as well:

Private Sub Tb10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.Tb11.Value = Format(TimeValue(Me.Tb10.Value) - TimeValue(Me.Tb9.Value), "hh:mm:ss")
End Sub

Have you tried the attachment in post 6, do the minutes display right there?