z.B. als Standardwert in einem Formularfeld

• erster Tag des aktuellen Monats:   Datum()-Tag(Datum())+1
• letzter Tag des aktuellen Monats:  DatSeriell(Jahr(Datum());Monat(Datum())+1;0)

Erster und letzter Tag (VBA)

• erster Tag des aktuellen Monats:   Date - Day(Date)+1
• letzter Tag des aktuellen Monats:  DateSerial(Year(Date), Month(Date)+1,0