Question

易语言日期框1与日期框2取间隔时间格式问题

如图，点击按钮，日期框1与日期框2的间隔时间出现在编辑框这样的格式，请高手帮帮忙

Answer 1

用“取时间间隔”可以，
编辑框1.内容 ＝ 到文本 (取时间间隔 (日期框2.今天, 日期框1.今天, #日))
上面这行是显示天数差，参数可以自行更换；
如果想显示成日期格式，则，按钮1被单击：

.版本 2

.子程序 _按钮1_被单击
.局部变量 nian, 文本型
.局部变量 yue, 文本型
.局部变量 ri, 文本型
.局部变量 shi, 文本型
.局部变量 fen, 文本型
.局部变量 miao, 文本型

编辑框1.内容 ＝ 到文本 (取时间间隔 (日期框2.今天, 日期框1.今天, #日))
' 计算日期差
.如果 (取整 (取时间间隔 (日期框2.今天, 日期框1.今天, #日)) ＜ 10)
ri ＝ “0” ＋ 到文本 (取整 (取时间间隔 (日期框2.今天, 日期框1.今天, #日)))
.否则
ri ＝ 到文本 (取整 (取时间间隔 (日期框2.今天, 日期框1.今天, #日)))
.如果结束
' 计算小时差shi ＝ (取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 取整 (取时间间隔 (日期框2.今天, 日期框1.今天, #日))) × 24
.如果 (取整 ((取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 取整 (取时间间隔 (日期框2.今天, 日期框1.今天, #日))) × 24) ＜ 10)
shi ＝ “0” ＋ 到文本 (取整 ((取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 取整 (取时间间隔 (日期框2.今天, 日期框1.今天, #日))) × 24))
.否则
shi ＝ 到文本 (取整 ((取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 取整 (取时间间隔 (日期框2.今天, 日期框1.今天, #日))) × 24))
.如果结束
' 计算分钟差'fen=取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 到整数 (ri) － 到整数 (shi) ÷ 24
.如果 (取整 ((取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 到整数 (ri) － 到整数 (shi) ÷ 24) × 24 × 60) ＜ 10)
fen ＝ “0” ＋ 到文本 (取整 ((取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 到整数 (ri) － 到整数 (shi) ÷ 24) × 24 × 60))
.否则
fen ＝ 到文本 (取整 ((取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 到整数 (ri) － 到整数 (shi) ÷ 24) × 24 × 60))
.如果结束
' 计算秒差miao ＝ 取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 到整数 (ri) － 到整数 (shi) ÷ 24 － 到整数 (fen) ÷ (24 × 60)
.如果 ((取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 到整数 (ri) － 到整数 (shi) ÷ 24 － 到整数 (fen) ÷ (24 × 60)) × 24 × 60 × 60 ＜ 10)
miao ＝ “0” ＋ 到文本 (取整 ((取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 到整数 (ri) － 到整数 (shi) ÷ 24 － 到整数 (fen) ÷ (24 × 60)) × 24 × 60 × 60))
.否则
miao ＝ 到文本 (取整 ((取时间间隔 (日期框2.今天, 日期框1.今天, #日) － 到整数 (ri) － 到整数 (shi) ÷ 24 － 到整数 (fen) ÷ (24 × 60)) × 24 × 60 × 60))
.如果结束

' 计算年差，月差，以此类推，直接在这里就设置成0年0月了
nian ＝ “0000”
yue ＝ “00”
编辑框2.内容 ＝ nian ＋ “年” ＋ yue ＋ “月” ＋ ri ＋ “日” ＋ shi ＋ “时” ＋ fen ＋ “分” ＋ miao ＋ “秒”

Answer 2

.版本 2
.子程序 _按钮1_被单击
.局部变量 编辑框组, 编辑框, , "0"
.局部变量 序号, 整数型
加入成员 (编辑框组, 编辑框1)
加入成员 (编辑框组, 编辑框2)
加入成员 (编辑框组, 编辑框3)
加入成员 (编辑框组, 编辑框4)
加入成员 (编辑框组, 编辑框5)
.计次循环首 (取数组成员数 (编辑框组), 序号)
    编辑框组 [序号].内容 ＝ 到文本 (取年份 (日期框1.今天)) ＋ “-” ＋ 到文本 (取月份 (日期框1.今天)) ＋ “-” ＋ 到文本 (取日 (增减时间 (日期框1.今天, 5, 序号 － 1)))
.计次循环尾 ()

你已经固定了编辑框的数量， 所以我不知道取出了 时间间隔 能用在什么地方。