Zitat:
Original geschrieben von 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
|
ahhh die DAY() Funktion gibt mir einen entscheidenden Lichtblick!!
erneut Danke 
mfg
____________________________________
Der Unterschied zwischen Theorie und Praxis ist, das es in der Theorie keinen Unterschied zwischen Theorie und Praxis gibt, in der Praxis aber schon.
Wer schreibt, der bleibt!
|