- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]2018小例子之-查询十二生肖 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114996)
-- 发布时间：2018/2/27 14:45:00
-- [原创]2018小例子之-查询十二生肖
2018小例子之-查询十二生肖，一个小玩意，大家可能会有需要，感兴趣的拿去
以下内容只有回复后才可以浏览
-- 发布时间：2018/2/27 14:46:00
--
看
-- 发布时间：2018/2/27 14:53:00
--
瞧瞧
谢谢~
-- 发布时间：2018/2/27 15:07:00
--
只需要知道某年一个生肖，即可推算
Dim year As Integer = 2018
Dim sx As String = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
Dim tmp As Integer = year - 2008
If year < 2008 Then
msgbox(sx(tmp Mod 12 + 12))
Else
msgbox(sx(tmp Mod 12))
End If
如果要转换新历为农历，参考 http://www.foxtable.com/webhelp/scr/1274.htm
[此贴子已经被作者于2018/2/27 15:07:06编辑过]
-- 发布时间：2018/2/27 15:45:00
--
-- 发布时间：2018/2/28 7:58:00
--
看 |
-- 发布时间：2018/2/28 11:22:00
--
看看
-- 发布时间：2018/2/28 11:26:00
--
顶
-- 发布时间：2018/2/28 11:37:00
--
以下是引用有点甜在2018/2/27 15:07:00的发言：
只需要知道某年一个生肖，即可推算
Dim year As Integer = 2018
Dim sx As String = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
Dim tmp As Integer = year - 2008
If year < 2008 Then
msgbox(sx(tmp Mod 12 + 12))
Else
msgbox(sx(tmp Mod 12))
End If
如果要转换新历为农历，参考 http://www.foxtable.com/webhelp/scr/1274.htm
[此贴子已经被作者于2018/2/27 15:07:06编辑过]
还有这种用法sx()，长见识了。
-- 发布时间：2018/2/28 13:01:00
--
以下内容只有回复后才可以浏览