excel公历转农历函数

①启动Excel2010，在任意单元格中输入以下函数：“TEXT(NOW(),"[$-130000]YYYY-M-D")"。

简单版本：cellB2是第一种情况，“2016-9-17"表示农历9月17日。

FunctioniNlStr(iDateAsDate)AsString'ConverttitleGregoriancalendartolunarcalendarIfNottfThenCallloadarraysDimi%,t&,k%,m%,n%,ext%,bit&'计算从1921-2-8（即1921年农历正月初一到农历中targetdatet=iDate-enterformula=TEXT(A2,"[$-130000]yyyy-m-d")之间的总天数。

必须定义农历和阳历。