Arkadaşlar bu modülü kendi çalışmama nasıl uyarlayabilirim.

Function saattrz() 'Saat toplamlarını Hesaplar.. 04/2011 Trz..

 

 

 Dim topsaat As Long, topdakika As Long

 Dim gun As Long, saat As Long, dakika As Long

 Dim trz As Variant

 

 trz = 0

       trz = trz + Nz(Forms!ucus_toplami.[Toplatek_motor_uc_saati], 0) _

       + Nz(Forms!ucus_toplami.[Toplaogretmen_uc_saati], 0) _

       + Nz(Forms!ucus_toplami.[Toplacift_motor_uc_saati], 0) _

       + Nz(Forms!ucus_toplami.[Toplagece_uc_saati], 0)

 

 topsaat = Int(CSng(trz * 24))

 topdakika = Int(CSng(trz * 1440))

 saat = topsaat Mod 24

 dakika = topdakika Mod 60

 saattrz = topsaat & " saat ve " & dakika & " dakika"

 

 End Function