Function SureCvr(Sure As Double) As String 'SureCvr(42708)
Tsaniye = Sure / 86400
Gun = DateDiff("d", 0, Tsaniye)
SureCvr = Gun & " gün " & Format(Tsaniye, "hh:mm:ss")
End Function
aşağıdaki fonksiyonu dener misiniz?