saat topluyorum 24 saatten sonra sıfırlanıyor

[sertachizir]

24 saatten sonra sıfırlanıyor yardım

çalışanların mesaileri için mesailerini topluyorum fakat örneğin personelin 40 saat mesaisi var 14 gösteriyo.24 saatten sonrasını kalanı gösteriyo.örn:50 saatse 2 saat gösteriyo.yardım bekliyorum teşekkürler.

 

[sertachizir]

kodu buldum ama çalıştıramıyorum acık yardımmm

http://support.microsoft.com/kb/210604/tr#
GetTimeCardTotal() işlevini oluşturmak için şu adımları izleyin:

NOT: Bu makaledeki örnek kod Microsoft Data Access Objects kullanır. Bu kodun düzgün çalışması için Microsoft DAO 3.6 Nesne Kitaplığı'na başvurmalısınız. Bunu yapmak için, Visual Basic Editor'ın Tools (Araçlar) menüsünde References'ı (Başvurular) tıklatın ve Microsoft DAO 3.6 Object Library (Microsoft DAO 3.6 Nesne Kitaplığı) onay kutusunun işaretli olduğunu doğrulayın.

1. Aşağıdaki yapıda yeni bir tablo oluşturun ve bu tabloyu TimeCard olarak kaydedin.

Table: TimeCard
-----------------------
Field Name: Daily Hours
Data Type: Date/Time
Format: Short Time

2. TimeCard tablosunu Veri Sayfası görünümünde görüntüleyin, aşağıdaki dört kaydı girin ve sonra da tabloyu kapatın:

8:15
7:37
8:12
8:03

3. Bir modül oluşturun ve henüz yoksa Tanımlamalar bölümüne aşağıdaki satırı yazın:

Option Explicit

4. Aşağıdaki işlevi yazın:

Function GetTimeCardTotal ()

Dim db As DAO.Database, rs As DAO.Recordset
Dim totalhours As Long, totalminutes As Long
Dim days As Long, hours As Long, minutes As Long
Dim interval As Variant, j As Integer

Set db = dbengine.workspaces(0).databases(0)
Set rs = db.OpenRecordset("timecard")
interval = #12:00:00 AM#
While Not rs.EOF
interval = interval + rs![Daily hours]
rs.MoveNext
Wend
totalhours = Int(CSng(interval * 24))
totalminutes = Int(CSng(interval * 1440))
hours = totalhours Mod 24
minutes = totalminutes Mod 60

GetTimeCardTotal = totalhours & " saat ve " & minutes & " dakika"

End Function

5. Bu işlevi sınamak için, Hemen Penceresi'ne aşağıdaki satırı yazın ve ENTER tuşuna basın:

?GetTimeCardTotal()


Hemen Penceresi'nde 32 saat ve 7 dakika görüntülenir.

 

[sertachizir]

sonunda oldu

formdaki herkese teşekkürler özellikle kendime çok yardımcı oldu
neyse yaptım sonunda çalışmamı bitirince koyarım.insanın aklına bişeyin takılması kadar gıcık bişey yok.herkese iyi günler