Alternatif olarak burada DateSerial fonksiyonu da kullanılabilir.
Mevcut ayın ilk günü:
MsgBox DateSerial(Year(Date), Month(Now), 1)
Mevcut ayın son günü:MsgBox DateSerial(Year(Date), Month(Now) + 1, 0)
Mevcut yılın ilk günü:MsgBox DateSerial(Year(Date), 1, 1)
Mevcut yılın son günü:MsgBox DateSerial(Year(Date) + 1, 1, 0)