Monatsanteil errechnen in VBA/ACCESS

[wbendl]

Könnte ungefähr so funktionieren:

Function PartOfMonth(strDateEnd As String, strDateStart As String)

Dim intDaysCount As Integer

intDaysCount = Day(strDateEnd) - Day(strDateStart) + 1

PartOfMonth = intDaysCount / DaysPerMonth(strDateStart)

End Function

Function DaysPerMonth(strDate As String) As Integer

Dim intMonth As Integer

intMonth = Month(strDate)

Select Case intMonth
Case 1, 3, 5, 7, 8, 10, 12
DaysPerMonth = 31
Case 2
DaysPerMonth = 28
Case 4, 6, 9, 11
DaysPerMonth = 30
End Select

End Function


mfg

WB