公元纪年与干支纪年的换算
时 间:2014-10-17 11:00:10
作 者:在水一方 ID:20576 城市:沈阳
摘 要:网上有好多公元纪年转换为干支纪年的文章,但是反向转换的文章却没有,今天写一个逆转换函数。
正 文:
动画演示:
Function gzjn(StrYear As String) As String '公元转干支纪年
On Error GoTo ErrDim a, b, c As Integer
Dim sx, tg, dz As String
a = Int(StrYear) - 4
b = (a Mod 10) + 1
c = (a Mod 12) + 1
tg = Mid("甲乙丙丁戊己庚辛壬癸", b, 1) ' 天干
dz = Mid("子丑寅卯辰巳午未申酉戌亥", c, 1) '地支
sx = Mid("鼠牛虎兔龙蛇马羊猴鸡狗猪", c, 1) '生肖
gzjn = tg & dz & sx & "年"
Err:
End Function
Function gyjn(StrYear As String) As String '干支转公元纪年
On Error GoTo Err
Dim a, b, c , d, t As Integer
Dim tg, dz As String
tg = Left(StrYear, 1)
dz = Mid(StrYear, 2, 1)
a = InStr("甲乙丙丁戊己庚辛壬癸", tg) ' 天干
b = InStr("子丑寅卯辰巳午未申酉戌亥", dz) '地支
For t = 0 To 5
For d = 0 To 11
If a + 10 * t = b + 12 * d Then '计算对应的60数内的值
gyjn = a + 10 * t + 3
gyjn = gyjn + 60 * (Year(Date) \ 60) '推算最近的公元纪年,60年一循环。
Exit Function
End If
Next
Next
Err:
End Function
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)