mehmetdemiral hocam hala söylediklerinizi yapmaya çalışıyorum fakat bir türlü beceremedim.bu konuda arkadaşlardan yardım bekliyorum. Karakterleri düzeltmememin sebebi daha önce bu şekilde olduğundan. Şimdi olsa mümkünü yok tablolarda türkçe karekter kullanmazdım.

sayın hocalarım yokmu bu konuda yardımcı olabilecek
4.mesajdaki gibi birşeyler yapmak istiyorum tabi olursa yoksa bu şekilde olması zor mu? bu konuda bilgi olursa da hiç olmazsa ümidimi keserim.
ilgilenen herkese teşekkür ederim.

Ümidinizi kesmenize gerek yok, yapılır yapılmasına ama mehmetdemiral'ın bahsettiği şekilde kod yazmak lazım.
Onun içinde zaman lazım, fırsat bulduğumda bir bakarım inşallah.

Aşağıdaki gibi bir fonksiyon yazdım.
Bu fonksiyonu kullanan "Izin_Hesaplama" adında bir sorgu hazırladım.
Sorguda fonksiyonun kullanım şeklini ve sonuçlarını göreceksiniz.
Gerisi size kalmış. İnceleyin, mantığını çözmeye çalışın, umarım işinize yarar.

Public Function IzinGunu(BasTar As Date, DonTar As Date, Donem As Byte) As Integer

Dim SonrakiAyBasi As Date

    IzinGunu = 0

    If Not IsDate(BasTar) Then Exit Function

    If Not IsDate(DonTar) Then Exit Function

    If Donem <> 1 And Donem <> 2 Then Donem = 1

    

    If Donem = 1 Then

        If Month(BasTar) = Month(DonTar) Then

            IzinGunu = DateDiff("d", BasTar, DonTar)

        Else

            SonrakiAyBasi = DateAdd("m", 1, DateSerial(Year(BasTar), Month(BasTar), 1))

            IzinGunu = DateDiff("d", BasTar, SonrakiAyBasi)

        End If

    Else

        If Month(BasTar) = Month(DonTar) Then

            IzinGunu = 0

        Else

            SonrakiAyBasi = DateAdd("m", 1, DateSerial(Year(BasTar), Month(BasTar), 1))

            IzinGunu = DateDiff("d", SonrakiAyBasi, DonTar)

        End If

    End If

End Function

Yeni üyenizim. Tüm arkadaşlara merhaba.
Böyle bir ortama üye olduğum için gerçekten mutluluk duydum. Katkıda bulunanlara teşekkürler.
O kadar çok bilgi var ki, tümünü okumak çok zaman alacak. Ancak, acil öğrenmem gereken bir sorunum var: Puantaj yapmak istiyorum. Kişilerin haftalık ücretleri, ilgili ya otomatik işlensin. Örneğin; A kişisinin haftalık sabit ücreti, Pazartesi den Cuma ya 4-3-4-3-4 saat olsun. Bütün personelin ücretli saatleri, her yeni aya otomatik işlensin. İşlendikten sonra Rapor ya da İzin varsa bunları elle girebileyim. Olabilir mi? Yardımlarınızı bekliyor teşekkür ediyorum.

Sn ssotkum öncelikle sitemize hoşgeldin. Site Kuralları gereği sıfırdan program yapmıyoruz. Örnek çalışmanızı ekleyin takıldığınız yerde sitede arama yapın, uygun örnek cevap bulamadığınızda, yeni konu açarak sorunuzu yazınız. Mutlaka yardım eden bulunur...Saygılar...