易语言JS取农历日期源码
.版本 2
.支持库 spec
.支持库 script
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 a, 整数型
a = 取启动时间 ()
.计次循环首 (50, i)
公历到农历 (增减时间 (取现行时间 (), #月份, i))
.计次循环尾 ()
调试输出 (取启动时间 () - a)
.子程序 公历到农历
.参数 参数_日期, 日期时间型
.局部变量 yy, 整数型
.局部变量 mm, 整数型
.局部变量 dd, 整数型
yy = 取年份 (参数_日期)
mm = 取月份 (参数_日期)
dd = 取日 (参数_日期)
js.执行 (#常量1)
调试输出 (js.计算表达式 (“showCal(” + 到文本 (yy) + “,” + 到文本 (mm) + “,” + 到文本 (dd) + “);”))
易语言日历