Excel公式练习93：计算1900年前的日期

excelperfect

引言：本文的练习整理自chandoo.org。多一些练习，想想自己怎么解决问题，看看别人又是怎解决的，能够快速提高Excel公式编写水平。

本次的练习是：给1900年前的日期加上或者减去一定的天数。示例数据如下图1所示，列A中的日期，加上或减去列B中的天数，返回正确的日期。

图1

假设所有的日期都使用mm/dd/yyyy格式，并且都大于0年。不应该使用任何辅助单元格、中间公式、命名区域或者VBA。

写下你的公式。

解决方案

公式1：

在单元格C2中输入公式：

=REPLACE(TEXT(DATE(MID(A2,7,4)+2000,MID(A2,1,2)+0,MID(A2,4,2)+0)+B2,'MM/DD/YYYY'),7,4,YEAR(DATE(MID(A2,7,4)+2000,MID(A2,1,2)+0,MID(A2,4,2)+0)+B2)-2000)

向下拖放复制到数据末尾。

公式中：

DATE(MID(A2,7,4)+2000,MID(A2,1,2)+0,MID(A2,4,2)+0)

得到年份、月份和日，年份加上2000以满足Excel表示日期的要求。返回：

725014

再加上单元格B2中的天数，并传递到TEXT函数：

TEXT(725014+B2,'MM/DD/YYYY')

返回：

'02/05/3885'

公式中：

YEAR(DATE(MID(A2,7,4)+2000,MID(A2,1,2)+0,MID(A2,4,2)+0)+B2)-2000

解析为：

YEAR(725044)-2000

3885-2000

返回：

1885

这样，公式转换为：

REPLACE('02/05/3885',7,4,1885)

返回：

02/05/1885

公式2：

在单元格C2中输入数组公式：

=TEXT(MONTH(DATE(RIGHT(A2,4)+1200,LEFT(A2,2)+0,MID(A2,4,2)+0)+B2),'00')& '/' &DAY(DATE(RIGHT(A2,4)+1200,LEFT(A2,2)+0,MID(A2,4,2)+0)+B2) & '/'& TEXT(YEAR(DATE(RIGHT(A2,4)+1200,LEFT(A2,2)+0,MID(A2,4,2)+0)+B2)-1200,'0000')

向下拖放复制到数据末尾。

参照公式1，对公式2进行深入理解。