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

引言:本文的练习整理自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进行深入理解。