textbox saat toplama

[emre311]

merhaba;
2 textbox da 00:10 şeklinde zaman yazmaktadır. textbox1+textbox2=textbox3 yapmak ve aynı formatta yazmasını istiyorum nasıl yapabilirim?

 

[emre311]

Private Sub TextBox6_Change()
If TextBox6.Value = "" Then Exit Sub
Select Case Len(TextBox6.Value)
Case Is = 2
TextBox6.Value = TextBox6.Value & ":"
Case Is >= 5
TextBox6.Value = Mid(TextBox6.Value, 1, 5)
End Select
End Sub

saatler textboxa bu şekilde yazılıyor

 

[omerceri]

Aşaıdaki kod işine yarar
Dim a As Date
a = TextBox1
Dim b As Date
b = TextBox2
TextBox3.Value = FormatDateTime((a + b), 4)

 

[emre311]

çok teşekkür ederim. saulun