#13
Teşekkürler..
tarih hesaplatma
#13
#14
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.
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.
larion, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 15/03/2010, 22:50, Düzenleyen: larion.
#15
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..
#16
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.
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.
larion, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 15/03/2010, 23:36, Düzenleyen: larion.
#17
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 Function
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
#18
hocam çok güzel oldu ellerine sağlık.
larion, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Konuyu Okuyanlar: 3 Ziyaretçi
