Hallo,
ich habe folgendes Problem:
ich würde gerne als Standardwert in ein Datumsfeld das Anfangsdatum des jeweiliegen Monats und in eine zweites Feld das Enddatum des jeweiliegen Monats vorbelegen.
Beispiel:
Heute ist der 02.10.2003
Datum1: 01.10.2003
Datum2: 31.10.2003
Wenn der 05.11.2003 wäre
Datum1: 01.11.2003
Datum2: 30.11.2003
und so weiter
Gibt es auch hier eine vergleichbare Funktion wie Datum()?
Vielen Dank!
…schnipp…
Function ErsterDesMonats(Optional ByVal XDatum) As Date
'Gibt den ersten Tag des Monats des übergebenen Datums zurück
'Wenn kein oder ein ungültiges Datum übergeben wurde, dann der Erste des aktuellen Monats
'Autor: Klaus Oberdalhoff [email protected]
If IsMissing(XDatum) Then
XDatum = Date
End If
If Not IsDate(XDatum) Then
XDatum = Date
End If
ErsterDesMonats = DateSerial(Year(XDatum), Month(XDatum), 1)
End Function
…schnapp…
…schnipp…
Function LetzterDesMonats(Optional ByVal XDatum) As Date
'Gibt den letzten Tag des Monats des übergebenen Datums zurück
'Wenn kein oder ein ungültiges Datum übergeben wurde, dann der Letzte des aktuellen Monats
'Autor: Klaus Oberdalhoff [email protected]
If IsMissing(XDatum) Then
XDatum = Date
End If
If Not IsDate(XDatum) Then
XDatum = Date
End If
LetzterDesMonats = DateSerial(Year(XDatum), Month(XDatum) + 1, 0)
End Function
…schnapp…
viel Erfolg
Stefan