Public Function songun(tarih As Date) As Date
tarih = DateAdd("M", 1, tarih)
songun = "01/" & DatePart("m", tarih) & "/" & DatePart("yyyy", tarih)
 songun = (songun) - 1
 Debug.Print songun
End Function

Public Function ilkgun(tarih As Date) As Date
 ilkgun = "01/" & DatePart("m", tarih) & "/" & DatePart("yyyy", tarih)
 Debug.Print ilkgun
End Function