Wyliczanie dni według miesiąca Ms Access

[bogolot]

Mam następujący problem. W bazie przechowywane są dane dotyczące nieobecności pracowników. Nie mam problemu z obliczeniem ilości dni nieobecności między datą początkową, a końcową. Problem pojawia się w sytuacji kiedy muszę wyliczyć ile dni w miesiącu występowała nieobecność (wszystkich dni, nie tylko roboczych). Np. Nieobecność trwa od 23.02.2011 do 14.04.2011. Ile to dni lutego, ile marca, a ile kwietnia ?

[Gość: Gość]

Możesz wykorzystać proste funkcje w VBA - np:

Function ileDniK(dataP As Date) As Integer
ileDniK = DateDiff("d", dataP, DateSerial(Year(dataP), Month(dataP) + 1, 0))
End Function

Function ileDniP(dataK As Date) As Integer
ileDniP = DateDiff("d", DateSerial(Year(dataK), Month(dataK), 1), dataK)
End Function

ileDniK(#18-05-2011#)
da w rezultacie ilość dni od podanej daty do końca miesiąca, który występuje w dacie - czyli 13 dni.

ileDniP(#18-05-2011#)
da w rezultacie ilość dni od pierwszego dnia miesiąca podanego w dacie do daty - czyli 17