+- 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ığı: İzin_Rapor takibi (/konu-izin-rapor-takibi.html)
Cvp: İzin_Rapor takibi - hegu - 05/01/2010
izin_rapor takibi konusunda yardımlarınızı bekliyorum 4.mesajdaki anlatılan örnek gibi
Cvp: İzin_Rapor takibi - benremix - 05/01/2010
Sn Hegu teşekkürler. Çalışıyor.
Cvp: İzin_Rapor takibi - assenucler - 05/01/2010
Katkı ve paylaşım için teşekkürler...
Cvp: İzin_Rapor takibi - hegu - 05/01/2010
bu anlattığımı yapmak mümkün değil mi acaba ? değilse ümitle beklimeyim.
uğraşan hocalarımada teşekkür ederim
Cvp: İzin_Rapor takibi - mehmetdemiral - 06/01/2010
Önce verilen tarihteki ayın son gününü bulalım:
Kod:
Sub SonGün()
Dim i As Date
Dim x As Date
i = "15/03/2006" 'Örnek Tarih 3. ayın kaç çektiğini bulacağız
x = DateAdd("m", 1, i - (Day(i) - 1))-1
MsgBox x
End Subif kullanarak eğer bulduğumuz süre izin süresinin gün toplamından küçükse, kalan sayıyı da diğer aya yazalım. Mesela 28.01.2009 tarihinde başlayan 10 günlük bir izin için yukardaki fonksiyonla ayın son günü olan 31 sayısını bulalım. 31-28=4 olarak 4 günü Aralık 2009'a, kalan 10-4=6 yı da Ocak 2010'a yazacağız. Bu bir fikir. Uygulaması nasıl olur derseniz bir sürü if then yazarsanız olur.
Ama bir başka yol da şudur. Dateadd kullanarak tarihler arasındaki her gün için tarihleri bir tabloya yazdırın. Sonra da ay ve yılına göre sorgulayın. Bu çok daha basit bir yöntem.. Bunu bir taksitlendirme gibi düşünün.. Daha kolay alhılanabilir o zaman. Daha sonra bu tarihleri gün- ay- yıl olarak parçalayarak da kullanabilirsiniz.
Cvp: İzin_Rapor takibi - hegu - 06/01/2010
mehmetdemiral hocam
ilgi ve alakanıza teşekkür ederim. Bu uygulamanızı örnek üzerinde yapabilirmisiniz. Eğer böyle bir yardımda bulunursanız çok memnun olacağım.
teşekkür ederim.