AccessTr.neT

Tam Versiyon: İzin_Rapor takibi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
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...
Sayfalar: 1 2 3 4 5