Excel日历函数

来源：百度知道 编辑：UC知道 时间：2024/05/05 07:48:47
我想A1为身份证号码，A2为出生日期（2008-10-01）与A1有相关的函数，但是我相需要A3显示相应的农历！请指教。
相示相应的农历可为（以2008-10-1为例)，应为 九月初三，不用显年份了。

  1. 例如显示今天的日期。

  2. 输入公式=today（）。

  3. 例如，today与and、if函数组合进行库龄分析。

  4. 输入公式=today（）-B2。

  5. and函数表示检查是否所有参数均为TRUE，如果所有参数均为TRUE，则返回TRUE。

  6. 语法格式=and（logical1,logical2, ...）。

  7. if函数表示判断是否满足某个条件，如果满足返回一个值，如果不满足返回另一个值。

  8. 语法格式=if（条件，结果1，结果2）

  9. 输入公式=IF(TODAY()-B2<=90,"是","否")。

  10. 输入公式=IF(AND(TODAY()-B2>90,TODAY()-B2<=180),"是","否")。

  11. 表示同时满足大于90，且小于等于180成立，就返回是，否则返回否。

  12. 输入公式=IF(AND(TODAY()-B2>180,TODAY()-B2<=270),"是","否")。

自定义函数，calendar，将此段代码复制到模块中
计算时间:从21年2月8日到2020年的数据可以转换成农历
Option Explicit
Dim WeekName(7), MonthAdd(11), NongliData(120), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)
Dim curTime, curYear, curMonth, curDay, curWeekday
Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, T