AccessTr.neT
Toplam Süre Hesaplama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Toplam Süre Hesaplama (/konu-toplam-sure-hesaplama.html)

Sayfalar: 1 2 3


Cvp: Toplam Süre Hesaplama - DUAYEN - 19/06/2011


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.


Cvp: Toplam Süre Hesaplama - sadikkavakli - 19/06/2011

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.


Cvp: Toplam Süre Hesaplama - DUAYEN - 19/06/2011

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


Cvp: Toplam Süre Hesaplama - sadikkavakli - 19/06/2011

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.


Cvp: Toplam Süre Hesaplama - DUAYEN - 19/06/2011

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

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

[Resim: i1cpe9.png]




Cvp: Toplam Süre Hesaplama - sadikkavakli - 20/06/2011

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