Saniyeyi yukarıyuvarlayabilir miyiz?

[dEdE]

Merhaba,

Forumda bir üyemizin sorusunu yanıtlarken şöyle bir sorunla karşılaştım.
Saniye olarak verilmiş olan değeri saat ve dakikaya (ss:dd) çevirmek ve varsa artık saniyeleri yukarıyuvarlayarak dakikaya eklemek.

Örneğin; 111150 saniye 30:52:30 sonucunu vermektedir. Buradaki 30 saniyeyi dakikaya ekleyip 30:53 olarak yada 103025 saniye 28:37:05 sonucunu vermektedir. Buradaki 05 saniyeyi dakikaya ekleyip 28:38 olarak hesaplayabilir miyiz?

Sub Saniye()
    Range("B2:B30").NumberFormat = "[h]:mm:ss"
    Range("C2:C30").NumberFormat = "[h]:mm"
    
    For i = 2 To 30
        Cells(i, 2).Value = Cells(i, 1).Value / 86400
        Cells(i, 3).Value = Cells(i, 1).Value / 86400
    Next
End Sub

 

[Levent Menteşoğlu]

Dosyanızdaki kodu aşağıdaki ile değiştirerek denermisiniz.

Sub Saniye()
    Range("B2:B30").NumberFormat = "[h]:mm:ss"
    Range("C2:C30").NumberFormat = "[h]:mm"
   
    For i = 2 To 30
        Cells(i, 2).Value = Cells(i, 1).Value / 86400
        deg = Cells(i, 1).Value / 86400
        Cells(i, 3).Value = TimeSerial(Hour(deg) + 24, Minute(deg) + 1, 0)
    Next
End Sub

 

[dEdE]

Merhaba,
Yanıt için teşekkürler, tam istediğim gibi.
Aldığım ders? "TimeSerial"i öğrenmem lazım.