Textbox' a saat çağırma problemi

[mrt09]

Selamlar. Ekleyeceğim linkte "form" düğmesi aracılığıyla açılan userform1 ögesinde 3 adet textbox var. Bunlardan soyadı textbox ögesine yazılan değer "Bul" butonu aracılığıyla sayfa1 de bulunup ad ve saat bilgileri tekrar textboxlara çağırılıyor. Ancak kaydederken örneğin 14:25 olarak gönderilen saat değeri geri textboxa çağrıldığında 5,245645 gibi bir farklı bir şekilde getiriliyor. Araştırmama rağmen çözümü bulamadım. Yardımcı olabilirseniz sevinirim. Herkese iyi çalışmalar.
https://www.dosya.tc/server33/1ec71v/Deneme.xlsm.html

 

[sahir73]

Ger

Selamlar. Ekleyeceğim linkte "form" düğmesi aracılığıyla açılan userform1 ögesinde 3 adet textbox var. Bunlardan soyadı textbox ögesine yazılan değer "Bul" butonu aracılığıyla sayfa1 de bulunup ad ve saat bilgileri tekrar textboxlara çağırılıyor. Ancak kaydederken örneğin 14:25 olarak gönderilen saat değeri geri textboxa çağrıldığında 5,245645 gibi bir farklı bir şekilde getiriliyor. Araştırmama rağmen çözümü bulamadım. Yardımcı olabilirseniz sevinirim. Herkese iyi çalışmalar.
https://www.dosya.tc/server33/1ec71v/Deneme.xlsm.html

Ger çağırırken format dönüşümü yapın.

örneğin

txtSaat.value=Format(sheets("Sayfa1).Range("A2").value), "hh:nn")

 

 

[sahir73]

Kaydederken saat formatında kaydedin.

Saat Formatlarıyla ilgili İngilizce bir örnek bırakıyorum.

Sub FormatTimeExample_2()
Dim DateEx As Date
DateEx = #4/18/2020 6:05:07 PM#

MsgBox Format(DateEx, "hh:nn:ss")     'Result is: 18:05:07
MsgBox Format(DateEx, "h:n:s AM/PM")  'Result is: 6:5:7 PM

MsgBox Format(DateEx, "h")             'Result is: 18
MsgBox Format(DateEx, "hh")            'Result is: 18
MsgBox Format(DateEx, "h:n")           'Result is: 18:5
MsgBox Format(DateEx, "hh:nn")         'Result is: 18:05
MsgBox Format(DateEx, "hh:nn:s")       'Result is: 18:05:7
MsgBox Format(DateEx, "hh:nn:ss")      'Result is: 18:05:07

MsgBox Format(DateEx, "\T\i\m\e\ \i\s\:\ hh:nn:ss")
'Result is: Time is: 18:05:07
End Sub

 

[mrt09]

Ger

Ger çağırırken format dönüşümü yapın.

örneğin

txtSaat.value=Format(sheets("Sayfa1).Range("A2").value), "hh:nn")

Bu işimi gördü çok teşekkür ederim. Sorun çözüldü.