Textbox ta saat formatı ile işlem yapmak

[metinak]

Merhaba,

userform üzerinde 1 den fazla textbox var ve bu textbox lardan 1. sine saat formatında giriş yaptığımda, diğer textboxların değerleri sıra ile 1 saat artmasını istiyorum.

Sayısal olarak arttırma yapabiliyorum ama,
Saat formatında yapmayı bir türlü beceremedim ve yardımcı bir kaynak ta bulamadım.

Yardım edebilirseniz sevinirim.

 

[Orion1]

Format aşağıdaki gibi olur.

TextBox1.Value = Format(TextBox1.Value, "hh:mm:ss")

 

[metinak]

Textbox ta saat formatını yapıyorum. Bunda problem yok ancak bir sonraki textbox a bu değeri 1 saat arttırarak yazdıramıyorum. Problem saat formatında artış yapamamam.
Örnek: textbox1 deki değer 13:00 ise, textbox2 nin değerinin, textbox1 in değerinin 1 saat fazlası olan 14:00 olması.
Teşekkürler.

 

[Haluk]

......
Örnek: textbox1 deki değer 13:00 ise, textbox2 nin değerinin, textbox1 in değerinin 1 saat fazlası olan 14:00 olması.
Teşekkürler.

Şöyle olabilir ...

    Dim myTime As Date
    myTime = TextBox1.Value
    TextBox2 = Format(myTime + TimeSerial(1, 0, 0), "hh:mm")

 

[Orion1]

Haluk hocamın izniyle;
Alternatif;
Textbox2 de textbox1 deki saate 1 saat ekleniyor.

TextBox2.Value = Format(VBA.DateAdd("h", 1, TextBox1.Value), "hh:mm:ss")

 

[Haluk]

Evren Bey, bu daha kısa ve güzel olmuş

.

 

[Orion1]

Evren Bey, bu daha kısa ve güzel olmuş

.

Teşekkür ederim hocam.Bunlar hep sizden öğrendiklerimiz.

 

[Haluk]

Estağfurullah Evren Bey.

Bu arada, aşağıdaki de bir alternatif olabilir;

TextBox2 = Format(CDate(TextBox1.Value) + TimeSerial(1, 0, 0), "hh:mm")

.

 

[metinak]

Herkese teşekkürler. Varolun.

 

[parsley2]

30 dk olarak artırıp, eksiltme yapılabilir mi acaba. h yerine m koydum ama olmadı.

 

[Korhan Ayhan]

Dakika için "n" parametresini kullanabilirsiniz.

 

[cocoa35]

Dakika için "n" parametresini kullanabilirsiniz.

Private Sub TextBox9_Change()
TextBox9 = Format(CDate(TextBox9.Value) + TimeSerial(1, 0, 0), "hh:mm")
End Sub

Bu formül sorunu çözdü