易语言日期框这个功能怎么实现，谢谢

2013年9月18日星期三，这不是标准时间格式。

[2013年9月18日]，这个是。

以“星期扰仿”作为分隔符，分隔缓御纤文本“2013年9月18日星期三”，前面的就是标准时间，后面的是星期。可以分离出来

把“2013年9月18日“中的"年"、"月"以"-"进行子文本替换，"日"以""空文本替换。就能得到：2013-9-18

从时间格式[2013年9月18日]里取年份（）、取月份（）、取日（），得到2013、9、18，然后按自己格拆搜式组装了就行了

添仔卖加时钟控件,在按钮单击事件写时钟控件.时钟周期=100 在时钟周期念没逗事件写 .版本 2 编辑框1.内容 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 1) ＋ 取文本左边 (编辑框1.内容察丛, 1) 就可以了

.版本 2

.支持库 mysql

.支持库 iext

Z开始日期 ＝ 到文本 (取谨模年份 (日期框1开始日期.今天)) ＋ “-” ＋ 到文本 (取月份 (日期框1开始日期.今天)) ＋ “-” ＋ 到文本 (取日 (日期框1开始日期.今天)) ＋ “ ” ＋ 取文本右边 (“00” ＋ 到文本 (取小时 (日期框1开始日期.今天)), 2) ＋ “:” ＋ 到文本 (取文本右边 (“00” ＋ 到文本 (取分钟 (日期框1开始日期.今天)), 2)) ＋ “:” ＋ 到文本 (取文本右边 (“00” ＋ 到文本 (取秒 (日期框1开始日期.今天)), 2))

Z到期日期 ＝ 到文本 (到文本 (取年份 (日期框1到期日期.今天)) ＋ “-” ＋ 到文本 (取月份 (日期框1到期日期.今天)) ＋ “-” ＋ 到文本 (取日 (日期框1到期日期.今天)) ＋ “ ” ＋ 取文本右边 (“00” ＋ 到文本 (取小时 (日期框1到期日期.今天)), 2) ＋ “:” ＋ 到文本 (取文本右边 (“00” ＋ 到文本 (取分钟 (日期框1到期日期.今天)), 2)) ＋ “:” ＋ 到文本 (取文本右边 (“00” ＋ 到文本 (取秒 (日期框1到期和晌返日期.今天)), 2)))

算日期 ()

.判断开始 (sql状态 ＝ “连接成功”)

.如果 (增加记录 (mysql句柄, “ns_b”, “b1='” ＋ Z开始日期 ＋ “',b2='” ＋ 编辑框1姓名.内容 ＋ “',b3='” ＋ 编辑框1电话.内容 ＋ “',b4='” ＋ 编辑框1租金.内容 ＋ “',b5='” ＋ 编辑框1地址.内容 ＋ “',b6='” ＋ 编辑框1原作物名.内容 ＋ “',b7='” ＋ 编辑框1土地代码.内容 ＋ “',b8='” ＋ 编辑框1土地名称.内容 ＋ “',b9='” ＋ 编辑框1土地类型.内容 ＋ “',b10='” ＋ 编辑框1土地面积.内容 ＋ “',b11='” ＋ 编辑框1种植数量.内容 ＋ “',b12='” ＋ 编辑框1种植种类.内容 ＋ “',b13='” ＋ 编辑框1品种名称.内容 ＋ “',b14='” ＋ 编辑框1种植大小.内容 ＋ “',b15='” ＋ 编辑框_租用备注.内容 ＋ “',b16='” ＋ 编辑框1租用年限.内容 ＋ “',b17='” ＋ 是否到期 ＋ “',b18='” ＋ Z到期日期 ＋ “'”))

透明标签_保存成功与否.标题 ＝ “保存成功”

.如果 (信息框 (“保存成功！---是否继续添加信息?”, #是否钮 ＋ #询问图标, “增加信息”, 高级选择夹2租用信息) ＝ #是钮)

连续赋值 (“”, 编辑框1地址.内容, 编辑框1租金.内容, 编辑框1电话.内容, 编辑框1姓名.内容, 编辑框_查询.内容, 编辑框1种植种类.内容, 编辑框_租用备注.内容, 编辑框1种植大小.内容, 编辑框1种植数量.内容, 编辑框1品种名称.内容, 编辑框1租用年限.内容, 编辑框1原作物名.内容, 编辑框1土地代码.内容, 编辑框1土地名称.内容, 编辑框1土地类型.内容, 编辑框1土地面积.内容)

透明标签_保存成功与否.标题 ＝ “”

.否则

透明标签_保存成功唤饥与否.标题 ＝ “”

.如果结束

.否则

透明标签_保存成功与否.标题 ＝ “保存失败”

返回 ()

.如果结束

.默认

信息框 (“连接数据库失败！”, #警告图标, , )

欢迎交流

---