标题：请教属相 按钮代码

在表A 有一列“出生日期”，该表  窗口1 有一标签 "label1"和一个按钮"ok" . 当在“出生日期”列填入出生日期，在窗口点击“ok”按钮，标签1就会显示属相。如出生日期 为1640-02-02  或1952-02-02 或 1964-03-02 等 点击按钮后，标签1就会显示“属龙”。

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目81.table

你可以将公历日期转换为农历，然后再根据农历年计算属相，请参考：

http://help.foxtable.com/topics/1274.htm

好像一两年前我做过一个有关日历的项目，就有属相的设置。

其实很简单。

Dim d As Date = Date.Today
Dim Sx() As String = "猴|鸡|狗|猪|鼠|牛|虎|兔|龙|蛇|马|羊|".split("|")
Output.Show(Sx(d.Year Mod 12))

谢谢！等会有空试试。