How to get Time Difference

[N323100]

I have three Textbox.

Textbox1 = Start Time < ---This will be generated by StartButton_click()

Textbox2 = End Time
Textbox 3 = Will be the time difference < -- This Texboxes2,3 will be generated by EndButton_click()

Can someone help me to write this using excel VBA.

Thank you!

[cytop]

Assuming this is on a userform:

Please Login or Register  to view this content.

Can someone help me...

And you can try and understand how from the code.

[N323100]

The value in Textbox3 are same with Texbox2 and it doesn't shows the correct time difference between textbox1 - textbox2

[MickG]

Try:-

Please Login or Register  to view this content.

[N323100]

Try:-

Please Login or Register  to view this content.

Thank you and it's working properly

[MickG]

You're welcome

[N323100]

Can I ask one more?

[N323100]

Good Day!

I have a multiple checkbox with corresponding string on it, if the user check the first checkbox then click the submit button, the specific string will move to a specific Row(G5), but if the user check multiple checkbox the string will move to ROW(G5, G6, G7) depending on how many checkbox were check.

Here is my code:
Private Sub CommandButton4_Click()
Dim RowCounter
RowCounter = 0

RowCount = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.count
With Worksheets("Sheet1").Range("A1")
If CheckBox1.Value = True Then
.Offset(RowCount + RowCounter, 6).Value = .Offset(RowCount + RowCounter, 6).Value & vbCrLf & "Unable to remove footer"
RowCounter = RowCounter + 1
Else:
.Offset(RowCount, 6).Value = ""
End If
If CheckBox2.Value = True Then
.Offset(RowCount + RowCounter, 6).Value = .Offset(RowCount + RowCounter, 6).Value & vbCrLf & "Unable to use PMSectionHead as First Level header/section"
RowCounter = RowCounter + 1
Else:
.Offset(RowCount, 6).Value = ""
End If
End With
End Sub

The only problem here if I check only 1checkbox the string doesn't transfer for first Available Row (G5).

Thank you and hoping for a response.