ich muss über eine VBA funktion den lezten tag eines Monats ermitteln!!
Hat irgendwer ne Ahnung wie?
MFG
Der Wurstfachverkäuferin
Sub LetzterTag()
Datum = Date 'das ist das aktuelle ..
'Datum = "02.11.2004"' oder ausgehend von irgend einem Datum
Letzter = DateSerial(Year(Datum), Month(Datum) + 1, 0)
End Sub
Sub LetzterTag()
Datum = Date 'das ist das aktuelle ..
'Datum = "02.11.2004"' oder ausgehend von irgend einem Datum
Letzter = DateSerial(Year(Datum), Month(Datum) + 1, 0)
End Sub
Function MOLE(Datum As Date) As Integer
Select Case Month(Datum)
Case 1, 3, 5, 7, 8, 10, 12
MOLE = 31
Case 4, 6, 9, 11
MOLE = 30
Case 2
If Year(Datum) Mod 4 = 0 Then
MOLE = 29
Else
MOLE = 28
End If
End Select
End Function
Function MOLE(Datum As Date) As Byte
MOLE = Day(DateSerial(Year(Datum), Month(Datum) + 1, 0))
End Function