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