1、直接编辑公式:
使用date函数和month函数可准确将日期前移。
A1为日期,如下公式即可实现:
=DATE(YEAR(A1),MONTH(A1)-10,DAY(A1))
date函数包含三个参数,分别为年月日
year, month, date函数可以对日期分别提取年月日等操作。
2、VBA法
如下函数放在公用模块中,即可使用该函数实现自动计算。
Function Date_10(MyDate As Double)
Dim myYear, myMonth, MyDay As Double
If myMonth
myYear = Year(MyDate) - 1
Else
myYear = Year(MyDate)
End If
myMonth = Month(MyDate) + 2
MyDate = Day(MyDate)
Date_10 = DateSerial(myYear, myMonth, MyDay)
End Function