Saat Formatı

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile küsüratlı saat girersem istediğim gibi çalışıyor.

TextBox17 = Format(TextBox17, "00"":""00")

11:20
15:45
08:25 ...

Ama saat bilgisini küsüratsız girdiğimde
11
12
08 ...
Şöyle bir sonuç veriyor. Mesela 12 girdiğimde 00:12 sonucu veriyor. 12:00 yazması için nasıl bir biçimlendirme yapmalıyım.

Yardımcı olursanız sevinirim.

 

[muygun]

Merhaba;

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
uzz = Len(TextBox17)
If uzz = 1 Then sayı = "0" & TextBox17 & ":00:00"
If uzz = 2 Then sayı = TextBox17 & ":00:00"
If uzz = 3 Then sayı = TextBox17 & "00:00"
If uzz = 4 Then sayı = TextBox17 & "0:00"
If uzz = 5 Then sayı = TextBox17 & ":00"
If uzz = 6 Then sayı = TextBox17 & "00"
If uzz = 7 Then sayı = TextBox17 & "0"
If uzz = 8 Then sayı = TextBox17
TextBox17 = sayı
End Sub

Şeklinde deneyin.
iyi çalışmalar.

 

[ahmed_ummu]

Merhaba;

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
uzz = Len(TextBox17)
If uzz = 1 Then sayı = "0" & TextBox17 & ":00:00"
If uzz = 2 Then sayı = TextBox17 & ":00:00"
If uzz = 3 Then sayı = TextBox17 & "00:00"
If uzz = 4 Then sayı = TextBox17 & "0:00"
If uzz = 5 Then sayı = TextBox17 & ":00"
If uzz = 6 Then sayı = TextBox17 & "00"
If uzz = 7 Then sayı = TextBox17 & "0"
If uzz = 8 Then sayı = TextBox17
TextBox17 = sayı
End Sub

Şeklinde deneyin.
iyi çalışmalar.

Çok teşekkürler sayın muygun