Function Spred(myMes, myGod)
Dim Fpred, Lpred, Ftek, Ltek
Ftek = DateSerial(myGod, myMes, 1) 'первый день месяца
Ltek = DateAdd("m", 1, Ftek) - 1   'последний день месяца
Fpred = DateAdd("m", -1, Ftek)     'первый день предыдущего месяца
Lpred = DateAdd("d", -1, Ftek)     'последний день предыдущего месяца
Spred = Ftek & ", " & Ltek & ", " & Fpred & ", " & Lpred
End Function

?spred(1,1999)
01.01.1999, 31.01.1999, 01.12.1998, 31.12.1998
?spred(2,2000)
01.02.2000, 29.02.2000, 01.01.2000, 31.01.2000
?spred(2,1999)
01.02.1999, 28.02.1999, 01.01.1999, 31.01.1999