一款带农历的日历

levey

大家发现没有，这款农历不准，1974年11月3日应该是农历九月二十日

一望无垠

和7楼情况一样。感谢楼主和7楼。

一指禅62

levey 发表于 2018-11-5 08:09
大家发现没有，这款农历不准，1974年11月3日应该是农历九月二十日

感谢关注。农历函数还有待完善。谢谢

向東

不错，农历也做出来了，值得肯定。
希望楼主能解释一下关键代码！

一指禅62

向東 发表于 2018-11-5 14:48
不错，农历也做出来了，值得肯定。
希望楼主能解释一下关键代码！

窗体代码很简单。农历代码是论坛里几位老师的。

一指禅62

向東 发表于 2018-11-5 14:48
不错，农历也做出来了，值得肯定。
希望楼主能解释一下关键代码！

看了您的帖子，与您的撞车了。向您学习。
类模块代码

1. 
   
2. Private Sub lblSet_Click()
   
3.     If t > #12/31/2099# Or t < #1/1/1901# Then Exit Sub
   
4.     Select Case lblSet.Caption
   
5.         Case ">": t = DateAdd("m", 1, t)      '月度增加1
   
6.         Case "<": t = DateAdd("m", -1, t)     '月度减少1
   
7.         Case "》": t = DateAdd("yyyy", 1, t)  '年度增加1
   
8.         Case "《": t = DateAdd("yyyy", -1, t) '年度减少1
   
9.     End Select
   
10.     Call AddDate
    
11. End Sub

复制代码

模块代码

1. Sub AddDate()
   
2.     Dim t0 As Date, t1 As Date, t2 As Date, i%
   
3.     t1 = DateSerial(Year(t), Month(t), 1)
   
4.     t2 = DateSerial(Year(t), Month(t) + 1, 1) - 1
   
5.     't0 = IIf(Weekday(t1, vbMonday) = 7, t1, t1 - Weekday(t1, vbMonday))
   
6.     t0 = t1 - Weekday(t1, vbMonday) '星期日为每周第1天
   
7.     With UserForm1
   
8.         .lblYyyyMm = Format(t, "yyyy年mm月")
   
9.         For i = 0 To 41                        '对42个日期Label控件赋值
   
10.             With .Controls("lblD" & i + 1)
    
11.                 .Caption = Day(t0 + i)         ' 显示几日
    
12.                 .ControlTipText = 农历(t0 + i) ' 提示文本显示农历
    
13.                 .Tag = t0 + i                  ' 记录日期
    
14.                 .ForeColor = IIf(t0 + i = Date, &HFF&, IIf((t0 + i < t1) Or (t0 + i > t2), &H80000002, &H80000012))
    
15.             End With
    
16.         Next
    
17.     End With
    
18. End Sub

复制代码

zopey

levey 发表于 2018-11-5 08:09
大家发现没有，这款农历不准，1974年11月3日应该是农历九月二十日

一指禅62

zopey 发表于 2018-11-5 16:55

zopey老师好！能把您的农历函数代码发给我学习一下吗？

zopey

一指禅62 发表于 2018-11-5 17:00
zopey老师好！能把您的农历函数代码发给我学习一下吗？

农历 就是做个表格或者 数组，去查询。

http://club.excelhome.net/thread-1396901-1-1.html

YZC51

levey 发表于 2018-11-5 08:09
大家发现没有，这款农历不准，1974年11月3日应该是农历九月二十日

楼下附件已经修改！请参考！