AccessTr.neT

Function GetElapsedTime()

 Dim totalhours As Long, totalminutes As Long, totalseconds As Long

 Dim days As Long, hours As Long, Minutes As Long

 Dim tarih1, tarih2 As Date

 

 tarih1 = Forms!form2.Metin4

 tarih2 = Forms!form2.Metin6

 

 days = Int(CSng(tarih1))

 totalhours = Int(CSng(tarih1 * 24))

 totalminutes = Int(CSng(tarih1 * 1440))

 hours = totalhours Mod 24

 Minutes = totalminutes Mod 60

 Forms!form2.Metin25 = days & " Gün " & hours & " Saat " & Minutes & " Dakika "

 days = Int(CSng(tarih2))

 totalhours = Int(CSng(tarih2 * 24))

 totalminutes = Int(CSng(tarih2 * 1440))

 hours = totalhours Mod 24

 Minutes = totalminutes Mod 60



Forms!form2.Metin27 = days & " Gün " & hours & " Saat " & Minutes & " Dakika "

End Function

Bu kodu denermisiniz.

Duayen olmadı fakat

farklı bir yöntem ile çözüm üretildi. Lakin isme bağlı olarak süzme veya filtre toplam süre alınamamaktadır. Bu konuda yardımcı olursanız iyi olur. Yapılan örnek ek'tedir.

İlginiz için tşk ederim.

Sn;Sadikvarlık
Toplam süre hesaplama sorunu çözüldümü belirtirmisiniz.

Sayın Duayen Bey,

vermiş olduğunuz ilhamlar doğrultusunda çözülmüştür.

Fakat combobox da isim seçildiğinde toplamlar değişmemektedir.

İlginiz için tşk ederim.

Sn;sadikvarınlı
lütfen yeni sorunuzu yeni konu açarak sorunuz.

sorunuzun cevabı ve 7. mesajda verilen kodun uygulanmış hali ektedir.

elinize sağlık çok tşk ederim.