Skip to main content

AccessTr.neT


İzin_Rapor takibi

İzin_Rapor takibi

Çözüldü #7
izin_rapor takibi konusunda yardımlarınızı bekliyorum 4.mesajdaki anlatılan örnek gibi
Cevapla
Çözüldü #8
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


Cevapla
Çözüldü #9
Katkı ve paylaşım için teşekkürler...
Cevapla
Çözüldü #10
bu anlattığımı yapmak mümkün değil mi acaba ? değilse ümitle beklimeyim.
uğraşan hocalarımada teşekkür ederim
Cevapla
Çözüldü #11
Ö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 Sub

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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #12
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task