Çözüldü Textbox2 ye otomatik zaman değeri girmek

[k0081]

Merhaba arkadaşlar

Textbox2 ye = 5 girdiğimde, 00:5:00
Textbox2 ye = 5,22 girdiğimde , 00:5:22

Textbox2 ye = 1,5,30 girdiğimde, 01:05:30

Textbox2 ye = 3,55,14 girdiğimde, 03:55:14

Textbox2 ye = 0,3 girdiğimde, 00:00:03

Textbox2 ye = 0,14 girdiğimde, 00:00:14

Biçiminde olması için nasıl bir kod uygulamalıyım?


Yardımcı arkadaşa şimdiden teşekkür ederim.

 

[Asri]

Aşağıdaki şekilde kullanabilirsiniz.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Asri Akdeniz - www.asriakdeniz.com '
List = Split(TextBox2, ",")
  If UBound(List) = 0 Then
     veri = "00:" & Format(TextBox2, "00") & ":00"
  ElseIf UBound(List) = 1 Then
     veri = "00:" & Format(List(0), "00") & ":" & Format(List(1), "00")
  ElseIf UBound(List) = 2 Then
     veri = Format(List(0), "00") & ":" & Format(List(1), "00") & ":" & Format(List(2), "00")
  End If
  TextBox2 = veri
End Sub

 

[k0081]

asri

Hocam çok teşekkür ediyorum, Tamamdır. Elinize sağlık.