Saati Ondalık Sayıya Çevirmek

[yavuz829]

Merhaba Hocalarım Saati ondalık sayıya çevirmek istiyorum.

A1 hücresin de 10:30 olan saati B2 hücresinde 10,30 ondalık sayı olarak göstermek istiyorum. Formül ile

TextBox1 de 10:00 olan saati TextBox2 de 10,30 ondalık sayı olarak göstermek istiyorum. Kod ile

Bu konuda yardımlarınıza ihtiyacım var.

 

[Orion1]

10:30 u ondalık biçimlendirme 10,50 saat olarak göstermeniz gerekiyor.

 

[hımmmmmmmm]

sonuç 10,30.... =SAYIYAÇEVİR(BİRLEŞTİR(SAAT(A1); ",";DAKİKA(A1)))
sonuç 10,00.... =SAYIYAÇEVİR(BİRLEŞTİR(SAAT(A1); ","))

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

        TextBox2 = Hour(TimeValue(TextBox1)) & "," & Minute(TimeValue(TextBox1))
        If TextBox2 <> Empty Then
            SAYI1 = CDbl(TextBox2)                 'SONUÇ  10,00
            SAYI2 = CDbl(TextBox2) + 0.3        'SONUÇ  10,30
        End If

End Sub