如何显示农历闰月日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何显示农历闰月日期

共有3668人关注过本帖树形打印复制链接主题：如何显示农历闰月日期

zyxhx

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00

如何显示农历闰月日期 发帖心情

Post By：2023/4/4 22:21:00 [显示全部帖子]

老师，以下为显示农历日期的代码，如果遇到闰月，在日期前加上“闰”字，如“闰二月十四”，应该如何修改代码，请老师指点。

Dim ln As New Lunar(Date.Today)

Dim str As String = ""

Dim ar() As String = ln.LunarDate.Split("-")

If ar(1) = "2" AndAlso (ar(2) = "29" OrElse ar(2) = "30")

str = "二月"

If ar(2) = "29"

str &= "二十九"

Else

str &= "三十"

End If

Else

Dim d As Date = cdate(ln.LunarDate)

If d.Day <= 10 Then

str = cldate(d).Substring(5).trim("日")

str = str.Insert(str.Length-1, "初")

Else

str = cldate(d).Substring(5).trim("日")

End If

[此贴子已经被作者于2023/4/4 22:28:00编辑过]

zyxhx

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00

Post By：2023/4/5 15:52:00 [显示全部帖子]

如果转换成这种方式呢？“癸卯兔年闰二月十五”

zyxhx

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00

Post By：2023/4/6 10:18:00 [显示全部帖子]

看上去很复杂哟

主题：如何显示农历闰月日期