摘要：
农历2019和公历2019哪个天数多?只有公历2019年,不存在农历2019年!因为农历是用天干与地支结合起来（即"六十花甲子"）纪年的!你说的农历2019是指农历己亥年吧!公历每...
农历2019和公历2019哪个天数多?
只有公历2019年,不存在农历2019年!因为农历是用天干与地支结合起来（即"六十花甲子"）纪年的!
你说的农历2019是指农历己亥年吧!
公历每年365天（平年）或者366天（闰年）.农历一年天数是:没有闰月的年份每年354天或者355天（也有353天的年份）,有闰年的年份每年384天或者385天（也有383天的年份）.
所以说,没有闰月的农历年份,都比公历年份的天数少;有闰月的农历年份都比公历年份的天数多.
刚过去的农历己亥年,没有闰月,所以公历2019年天数多.
2019年日历函数
自定义函数,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, thedate, num1, num2
dim year, month, day, grid, grid_date
function calendar(grid)
grid_date = grid
year = mid(grid_date, 1, 4)
num1 = instr(grid_date, "-")
num2 = instr(6, grid_date, "-")
if (num2 - num1) = 3 then
month = mid(grid_date, 6, 2)
day = mid(grid_date, 9, 2)
else
month = mid(grid_date, 6, 1)
day = mid(grid_date, 8, 2)
end if
'星期名
weekname(0) = " * "
weekname(1) = "星期日"
weekname(2) = "星期一"
weekname(3) = "星期二"
weekname(4) = "星期三"
weekname(5) = "星期四"
weekname(6) = "星期五"
weekname(7) = "星期六"
'天干名称
tiangan(0) = "甲"
tiangan(1) = "乙"
tiangan(2) = "丙"
tiangan(3) = "丁"
tiangan(4) = "戊"
tiangan(5) = "己"
tiangan(6) = "庚"
tiangan(7) = "辛"
tiangan(8) = "壬"
tiangan(9) = "癸"
'地支名称
dizhi(0) = "子"
dizhi(1) = "丑"
dizhi(2) = "寅"
dizhi(3) = "卯"
dizhi(4) = "辰"
dizhi(5) = "巳"
dizhi(6) = "午"
dizhi(7) = "未"
dizhi(8) = "申"
dizhi(9) = "酉"
dizhi(10) = "戌"
dizhi(11) = "亥"
'属相名称
shuxiang(0) = "鼠"
shuxiang(1) = "牛"
shuxiang(2)
