AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

tarih hesaplatma

1 2 3 4
15/03/2010, 22:32

assenucler

Teşekkürler..
15/03/2010, 22:44

larion

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.
15/03/2010, 22:53

ercansahin

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..
15/03/2010, 23:03

larion

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.
16/03/2010, 01:26

ayhan2122

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
16/03/2010, 09:19

larion

hocam çok güzel oldu ellerine sağlık.
1 2 3 4