textbox saat formatı (hh:mm:ss) sorunu

[yalcin1555]

Merhaba arkadaşlar,

excel vba üzerinde yaptığım projede iki textboxa girilen tarih ve saatin farkını alıp üçüncü textboxa aktarıyorum bu işlemi yaptığım formül


Private Sub cmd_buton_Click()
Me.TextBox1= CSng((CDate(Me.TextBox3) - CDate(Me.TextBox2)) * 24) / 60

End Sub


Şimdi burada sonuç bana düz sayı ve toplam dakika olarak geliyor "50" , "120" gibi . Ben bu değerlerin "01:30:00" şeklinde yazmasını istiyorum

ilk başta ki formülde *24/60 yapmadığım zaman bana decimal cinsinden bir sonuç çıkartıyor (0,8543213 gibi) bu çıkan sonucu da hh:mm:ss gibi bir formata dönüştüremedim. Aşağıda ki gibi bir formül denedim ancak sonuç ne olursa olsun bana hep 00:00:00 gibi bir değer veriyor. Nerede yanlış yapıyorum fikir verebilir misiniz?


Private Sub TextBox1_Change()

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

End Sub

 

[Muzaffer Ali]

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

Satırı yerine aşağıdakini kullanın.

TextBox1.Value = Format((TextBox1.Text/24)/60, "hh:mm:ss")

 

[yalcin1555]

Merhaba,

Bahsettiğiniz kodu yazdım fakat bu seferde hata verdi. Ben komple projenin kodunu yazıyorum

Private Sub CommandButton1_Click()  [COLOR="Teal"][B]// Sonuç butonu //[/B][/COLOR]

Me.TextBox3 = CSng((CDate(Me.TextBox2) - CDate(Me.TextBox1)) * 24) * 60

End Sub

________________________________________________________________


Private Sub CommandButton2_Click()  [B][COLOR="Teal"]// İptal butonu //[/COLOR][/B]
 Sheets("Ana").Select
    Unload UserForm1
End Sub

________________________________________________________________

Private Sub TextBox3_Change()  [B][COLOR="Teal"]// sonuç text kutusu //[/COLOR][/B]
TextBox3.Value = Format((TextBox3.Text / 24) / 60, "hh:mm:ss")
End Sub

________________________________________________________________

Düzeltme:

verdiğiniz kodu buton satırına yazdım gayet sorunsuz çalıştı, benim yaptığım hata textbox_change kısmına yazmak oldu. Yardımlarınız için teşekkürler.

 

[Muzaffer Ali]

Rica ederim iyi çalışmalar.