saat text box'u için format

[badmad34]

Merhaba arkadaşlar,

Ekteki userform'un 4. frame'inde bulunan iki adet "time" textbox'u için şu şekilde bir format mümkün müdür: Userform açıldığında textbox'un içinde sadece " : " şeklinde çift nokta olsun ve kullanıcı saat girişi yapmak için 4 adet rakam girsin sadece. Örneğin; "17:15" girmesi için sadece "1715" yazsın ama userform'a ilk iki hane (17) girildikten sonra direk çift noktanın arkasına geçsin imleç. Mümkün müdür bu işlem?

 

[İhsan Tank]

Merhaba arkadaşlar,

Ekteki userform'un 4. frame'inde bulunan iki adet "time" textbox'u için şu şekilde bir format mümkün müdür: Userform açıldığında textbox'un içinde sadece " : " şeklinde çift nokta olsun ve kullanıcı saat girişi yapmak için 4 adet rakam girsin sadece. Örneğin; "17:15" girmesi için sadece "1715" yazsın ama userform'a ilk iki hane (17) girildikten sonra direk çift noktanın arkasına geçsin imleç. Mümkün müdür bu işlem?

merhaba
: noktalar gözükmesin ama sen normal giriş yaptıktan sonra mesela 1520 gibi bunu saat gibi göstermesini isterseniz

Private Sub TextBox[COLOR="Red"]1[/COLOR]_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox[COLOR="red"]1[/COLOR].Text = Format(TextBox[COLOR="red"]1[/COLOR].Text, "##:##")
End Sub

kırmızı yerleri kendinize göre uyarlayınız

 

[truvali27m]

merhaba
: noktalar gözükmesin ama sen normal giriş yaptıktan sonra mesela 1520 gibi bunu saat gibi göstermesini isterseniz

Private Sub TextBox[COLOR="Red"]1[/COLOR]_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox[COLOR="red"]1[/COLOR].Text = Format(TextBox[COLOR="red"]1[/COLOR].Text, "##:##")
End Sub

kırmızı yerleri kendinize göre uyarlayınız

ben de bir örnek kod vereyim

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

 

[badmad34]

Öncelikle, cevaplarınız için ikinize de teşekkür ederim. İki formülle de çift nokta sorununu aştım.

Truvali27m'nin yazdığı kodu userform'a ekledikten sonra şöyle bir ihtiyaç ortaya çıktı: acaba düzgün formatta bir saat girmeyince kullanıcıyı uyarması için nasıl bir kısıt koyabiliriz? yani, 00:00 ile 24:00 arasındaki değerlerden farklı bir değer girince kullanıcıyı uyarmasını nasıl sağlayabiliriz?

İkinci olarak,

Flight Time = Landing Time - Takeoff Time ----> (If Landing Time > Takeoff Time)
Flight Time = 24:00 - (Takeoff Time - Landing Time) ----> (If Landing Time < Takeoff Time)

algoritmasını kodlayamadım. Örneğin;
Landing Time: 18:00, Takeoff Time: 16:00 iken Flight Time = 18:00-16:00 = 2:00
Landing Time: 02:00, Takeoff Time: 23:00 iken Flight Time = 24:00-(23:00-02:00) = 3:00
olarak hesaplasın istiyorum. Landing Time TextBox'un Formatı yine "##:##" şeklinde olacak. Nasıl kodlayabilirim?

Yardım edebilecek arkadaşlar varsa çok bahtiyar olacağım. Şimdiden teşekkürler.

 

[hsayar]

ihsan beyin kodlarını
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Text = Format(TextBox1.Text, "0#:0#") End Sub
şeklinde değiştirerek deneyiniz

 

[badmad34]

Cevabınız için teşekkür ederim ama o sorunu aştım. Şu anda sıkıntım şudur:

Öncelikle, cevaplarınız için ikinize de teşekkür ederim. İki formülle de çift nokta sorununu aştım.

Truvali27m'nin yazdığı kodu userform'a ekledikten sonra şöyle bir ihtiyaç ortaya çıktı: acaba düzgün formatta bir saat girmeyince kullanıcıyı uyarması için nasıl bir kısıt koyabiliriz? yani, 00:00 ile 24:00 arasındaki değerlerden farklı bir değer girince kullanıcıyı uyarmasını nasıl sağlayabiliriz?

İkinci olarak,

Flight Time = Landing Time - Takeoff Time ----> (If Landing Time > Takeoff Time)
Flight Time = 24:00 - (Takeoff Time - Landing Time) ----> (If Landing Time < Takeoff Time)

algoritmasını kodlayamadım. Örneğin;
Landing Time: 18:00, Takeoff Time: 16:00 iken Flight Time = 18:00-16:00 = 2:00
Landing Time: 02:00, Takeoff Time: 23:00 iken Flight Time = 24:00-(23:00-02:00) = 3:00
olarak hesaplasın istiyorum. Landing Time TextBox'un Formatı yine "##:##" şeklinde olacak. Nasıl kodlayabilirim?

Yardım edebilecek arkadaşlar varsa çok bahtiyar olacağım. Şimdiden teşekkürler.