tarih hesaplatma - 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ığı: tarih hesaplatma (/konu-tarih-hesaplatma.html) |
RE: tarih hesaplatma - tazzy34 - 13/09/2019 merhabalar, ben de bu kodu aşağıdaki gibi (çay molalarını da hesaba katarak) programda kullanıyorum ama cuma günleri fazladan yarım saat mola veriliyor ve bayram günlerini (resmi ve dini bayramlar) atlatmayı nasıl yapabilirim? yardımcı olursanız sevinirim: Function BitisBuL(BTarih, Sure, MesaiBas1, MesaiBit1, MesaiBas2, MesaiBit2, MesaiBas3, MesaiBit3, MesaiBas4, MesaiBit4) ' MesaiBas1: 08:00 ' MesaiBit1: 10:00 ' MesaiBas2: 10:15 ' MesaiBit2: 12:30 ' MesaiBas3: 13:00 ' MesaiBit3: 15:30 ' MesaiBas4: 15:45 ' MesaiBit4: 18:00 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$(MesaiBit4, "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 '1.Çay 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 'Öğle Paydosuysa If (Format$(DimX, "hh:nn:ss") >= MesaiBit2) And (Format$(DimX, "hh:nn:ss") < MesaiBas3) Then DimX = Format$(DimX, "dd.mm.yyyy") & " " & Format$(MesaiBas3, "hh:nn:ss") DimX = DateAdd("n", 1, DimX) Else '2.Çay Paydosuysa If (Format$(DimX, "hh:nn:ss") >= MesaiBit3) And (Format$(DimX, "hh:nn:ss") < MesaiBas4) Then DimX = Format$(DimX, "dd.mm.yyyy") & " " & Format$(MesaiBas4, "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 End If End If Next BitisBuL = DimX CIKIS: Exit Function hata: Resume CIKIS End Function |