saniyeyi çeviren Fonksiyon kodu

Function SureCvr(Sure As Long) As String

TSaniye = Sure

 

LngSn = TSaniye Mod 60

LngDk = (TSaniye \ 60) Mod 60

LngSt = (TSaniye \ 3600) Mod 60

 

SureCvr = Format(LngSt, "00") & ":" & _

          Format(LngDk, "00") & ":" & _

          Format(LngSn, "00")



End Function

aşağıdaki dosyada 2IsEmriSayisi kullandığınız Saat  yok,  2IsEmriSayisi kullandığınız Saat: Int(SureOrtlama) & ":" & CInt((SureOrtlama-Int(SureOrtlama))*60) ne için olduğunu açıklarsanız o nu da eklemeye çalışırım.
tekrar belirteyim sizin kullandığınız yöntem çok sorun çıkarır işlemler için saniyeyi kullanın, başkalarının anlayacağı şekle çevirmek kolay