izin_rapor takibi konusunda yardımlarınızı bekliyorum 4.mesajdaki anlatılan örnek gibi
İzin_Rapor takibi
Sn Hegu teşekkürler. Çalışıyor.
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
Katkı ve paylaşım için teşekkürler...
bu anlattığımı yapmak mümkün değil mi acaba ? değilse ümitle beklimeyim.
uğraşan hocalarımada teşekkür ederim
uğraşan hocalarımada teşekkür ederim
Önce verilen tarihteki ayın son gününü bulalım:
sonra elimizdeki tarihten bu son güne kalan süreyi gün olarak bulmuş olalım. Ardından da
if 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.
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 Sub
if 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.
İnadına, ille de Accesstr.net...
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.
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.
Konuyu Okuyanlar: 1 Ziyaretçi