农历阳历换算-属相-星座-星期-虚岁-出生天数

qq2720020 · 发表于 2016-4-10 17:32:14

子程序名	返回值类型	公开	备注
_农历月历_测试_日期被选择

变量名	类型	静态	数组	备注
岁数	整数型
北京时间	日期时间型
原始时间	日期时间型

北京时间＝取现行时间 ()
显示框.内容＝ “”
显示框.内容＝ “农历日期：” ＋到文本 (农历月历_测试.农历年) ＋ “年” ＋到文本 (农历月历_测试.农历月) ＋ “月” ＋到文本 (农历月历_测试.农历日) ＋ “日” ＋ “ 星期” ＋到文本 (农历月历_测试.星期) ＋ “ 属相 ” ＋到文本 (农历月历_测试.属相) ＋ #换行符
编辑框1.内容＝ “公历日期：” ＋到文本 (农历月历_测试.公历日期) ＋ “ 星期” ＋到文本 (农历月历_测试.星期) ＋ “ 属相 ” ＋到文本 (农历月历_测试.属相) ＋ #换行符
编辑框1.内容＝子文本替换 (编辑框1.内容, “23时59分59秒”, “”, , 1, 真)
组合框2.内容＝文本_倒取出中间文本 (编辑框1.内容, “年”, “月”, )
组合框5.内容＝文本_倒取出中间文本 (编辑框1.内容, “月”, “日”, )
_按钮2_被单击 ()

判断 (农历月历_测试.是否闰月＝真)

显示框.内容＝显示框.内容＋编辑框1.内容＋ “是否闰月：闰月”

显示框.加入文本 ( #换行符, “您的星座：”, 组合框6.内容)

显示框.内容＝显示框.内容＋编辑框1.内容

显示框.加入文本 ( #换行符, “您的星座：”, 组合框6.内容)

编辑框4.内容＝文本_倒取出中间文本 (编辑框1.内容, “公历日期：”, “年”, )
编辑框5.内容＝文本_倒取出中间文本 (编辑框1.内容, “公历日期：”, “ 星期”, )
原始时间＝到时间 (编辑框5.内容)
编辑框6.内容＝到文本 (取整 (取时间间隔 (北京时间, 原始时间, 5)))
岁数＝到数值 (取年份 (取现行时间 ()) －到数值 (农历月历_测试.农历年) ＋ 1)
显示框.加入文本 ( #换行符, “您今年：”, 到文本 (岁数) ＋ “虚岁”)
显示框.加入文本 ( #换行符, “您已经出生：”, 编辑框6.内容＋ “天”)

i支持库列表	支持库注释
CnCalendar	农历日期支持库

.版本 2<br />
.支持库 CnCalendar<br />
<br />
.子程序 _农历月历_测试_日期被选择<br />
.局部变量 岁数, 整数型<br />
.局部变量 北京时间, 日期时间型<br />
.局部变量 原始时间, 日期时间型<br />
<br />
北京时间 ＝ 取现行时间 ()<br />
显示框.内容 ＝ “”<br />
显示框.内容 ＝ “农历日期：” ＋ 到文本 (农历月历_测试.农历年) ＋ “年” ＋ 到文本 (农历月历_测试.农历月) ＋ “月” ＋ 到文本 (农历月历_测试.农历日) ＋ “日” ＋ “  星期” ＋ 到文本 (农历月历_测试.星期) ＋ “  属相 ” ＋ 到文本 (农历月历_测试.属相) ＋ #换行符<br />
编辑框1.内容 ＝ “公历日期：” ＋ 到文本 (农历月历_测试.公历日期) ＋ “  星期” ＋ 到文本 (农历月历_测试.星期) ＋ “  属相 ” ＋ 到文本 (农历月历_测试.属相) ＋ #换行符<br />
编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “23时59分59秒”, “”, , 1, 真)<br />
组合框2.内容 ＝ 文本_倒取出中间文本 (编辑框1.内容, “年”, “月”, )<br />
组合框5.内容 ＝ 文本_倒取出中间文本 (编辑框1.内容, “月”, “日”, )<br />
_按钮2_被单击 ()<br />
.判断开始 (农历月历_测试.是否闰月 ＝ 真)<br />
    显示框.内容 ＝ 显示框.内容 ＋ 编辑框1.内容 ＋ “是否闰月：闰月”<br />
    显示框.加入文本 (#换行符, “您的星座：”, 组合框6.内容)<br />
.默认<br />
    显示框.内容 ＝ 显示框.内容 ＋ 编辑框1.内容<br />
    显示框.加入文本 (#换行符, “您的星座：”, 组合框6.内容)<br />
.判断结束<br />
<br />
编辑框4.内容 ＝ 文本_倒取出中间文本 (编辑框1.内容, “公历日期：”, “年”, )<br />
编辑框5.内容 ＝ 文本_倒取出中间文本 (编辑框1.内容, “公历日期：”, “  星期”, )<br />
原始时间 ＝ 到时间 (编辑框5.内容)<br />
编辑框6.内容 ＝ 到文本 (取整 (取时间间隔 (北京时间, 原始时间, 5)))<br />
岁数 ＝ 到数值 (取年份 (取现行时间 ()) － 到数值 (农历月历_测试.农历年) ＋ 1)<br />
显示框.加入文本 (#换行符, “您今年 ：”, 到文本 (岁数) ＋ “虚岁”)<br />
显示框.加入文本 (#换行符, “您已经出生 ：”, 编辑框6.内容 ＋ “天”)

yuzhong · 发表于 2024-8-23 09:17:49

11111111111111111111111111111111111111111

秋风依然 · 发表于 2017-1-21 19:00:13

谢谢分享。不过天数好像有问题

olcs · 发表于 2016-8-19 21:22:05

这个东西好,我要计算一下我自己

d7d7dd7 · 发表于 2016-8-11 00:07:21

再加个生辰八字就更好了

WSW120 · 发表于 2016-5-12 10:57:52

不错赞一个！！！不错赞一个！！！

anying860452 · 发表于 2016-5-2 21:26:13

是吃饭饭后健康科技工业

sky899 · 发表于 2016-5-1 15:11:19

检测QQ好友单双向

sky899 · 发表于 2016-5-1 15:10:15

检测QQ好友单双向

sky899 · 发表于 2016-5-1 15:10:05

检测QQ好友单双向

zjghjs · 发表于 2016-4-21 13:21:40

下载收藏了

		自动登录	找回密码
密码			注册

[易源码分享] 农历阳历换算-属相-星座-星期-虚岁-出生天数