+- 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ığı: tarih hesaplatma (/konu-tarih-hesaplatma.html)
Cvp: tarih hesaplatma - assenucler - 15/03/2010
Teşekkürler..
Cvp: tarih hesaplatma - larion - 15/03/2010
tüm ustalara sonsuz teşekkürler bu siteden okadar çok şey öğrendim ki anlatamam. bu arada cahilliğimi maruz görün rap olayı ne oluyor ben hala çözemedim. şimdi programa bi bakayım şimdiden teşekkürler.
ayhan2122 hocam süper olmuş tam istediğim gibi. geriye kalan formuma uyarlamak. vallaha hepinizden allah razı olsun teşekkürler tüm hocalarıma.
Cvp: tarih hesaplatma - ercansahin - 15/03/2010
Rap olayı karma puan verme işlemidir. Sol tarafta bulunan kişiye ait avatarın yanında (sağında) bulunan düğmeyi tıkladığınızda görürsünüz..
Cvp: tarih hesaplatma - larion - 15/03/2010
ercan hocam teşekkürler bir konuyu daha öğrenmiş bulunuyorum (rap)
ayhan2122 hocam bir sorunla karşılaştım. büyük bir sorun değil ama yinede sorayım şimdi ilk mesai 08 12 arası 4 saat 240 dk yazdığımda tam 12 de duruyor. 250 dk yazınca formdaki mantığa göre 13:40 yapması gerekirken 12:10 yazıyor. ben modülü inceledim ama işin içinden çıkamadım.
Cvp: tarih hesaplatma - ayhan2122 - 16/03/2010
Modüldeki kodu değiştirdim. Bu sefer tamamdır.
Kod:
Function BitisBuL(BTarih, Sure, MesaiBas1, MesaiBit1, MesaiBas2, MesaiBit2)
'BaşlamaTarihi: 15.03.2010 09:30
' Süre(dk): 190
' MesaiBas1: 08:00
' MesaiBit1: 12:00
' MesaiBas2: 13:00
' MesaiBit2: 18:30
On Error GoTo HATA
Dim DimX
DimX = BTarih
For i = 1 To Sure
'Cumartesi ise
If Weekday(DimX) = 7 Then
DimX = DateAdd("d", 2, DimX)
DimX = Format$(DimX, "dd.mm.yyyy") & " " & Format$(MesaiBas1, "hh:nn:ss")
DimX = DateAdd("n", 1, DimX)
Else
'Pazar ise
If Weekday(DimX) = 1 Then
DimX = DateAdd("d", 1, DimX)
DimX = Format$(DimX, "dd.mm.yyyy") & " " & Format$(MesaiBas1, "hh:nn:ss")
DimX = DateAdd("n", 1, DimX)
Else
'Mesai bitmişse
If Format$(DimX, "hh:nn:ss") >= Format$(MesaiBit2, "hh:nn:ss") Then
DimX = DateAdd("d", 1, DimX)
DimX = Format$(DimX, "dd.mm.yyyy") & " " & Format$(MesaiBas1, "hh:nn:ss")
DimX = DateAdd("n", 1, DimX)
Else
'Öğle Paydosuysa
If (Format$(DimX, "hh:nn:ss") >= MesaiBit1) And (Format$(DimX, "hh:nn:ss") < MesaiBas2) Then
DimX = Format$(DimX, "dd.mm.yyyy") & " " & Format$(MesaiBas2, "hh:nn:ss")
DimX = DateAdd("n", 1, DimX)
Else
'Mesai saati ise
DimX = DateAdd("n", 1, DimX)
End If
End If
End If
End If
Next
BitisBuL = DimX
CIKIS: Exit Function
HATA: Resume CIKIS
End FunctionCvp: tarih hesaplatma - larion - 16/03/2010
hocam çok güzel oldu ellerine sağlık.