最近需要将易语言的现有函数封装为DLL文件供Qt调用,由于本人属于菜鸟,搞了好久。目前基本解决问题。
现留个记号,以备后查。
易语言代码:
.子程序 l2g, , 公开, 农历转公历
.参数 y_l
.参数 m_l
.参数 d_l
.参数 l, 逻辑型
.参数 y_g, , 参考
.参数 m_g, , 参考
.参数 d_g, , 参考
.局部变量 gl, 日期时间型
农历转公历 (y_l, m_l, d_l, l, gl)
y_g = 取年份 (gl)
m_g = 取月份 (gl)
d_g = 取日 (gl)
.子程序 g2l, , 公开, 公历转农历
.参数 y_g
.参数 m_g
.参数 d_g
.参数 y_l, , 参考
.参数 m_l, , 参考
.参数 d_l, , 参考
.参数 l, 逻辑型, 参考
.局部变量 ll, 逻辑型
公历转农历 (到时间 (到文本 (y_g) + “-” + 到文本 (m_g) + “-” + 到文本 (d_g) + “-12-00-00”), y_l, m_l, d_l, l)
.子程序 lmDays, 整数型, 公开, 取农历月总天数 失败返回0
.参数 y_l
.参数 m_l
.参数 l, 逻辑型
返回 (取农历月总天数 (y_l, m_l, l))
.子程序 lyDays, 整数型, 公开, 取农历年总天数 失败返回0
.参数 y_l
返回 (取农历年总天数 (y_l))
.子程序 lmonth, 整数型, 公开, 取农历闰月 返回某