减日期问题，很简单

pengang

当然日期减去7天，格式为2011-10-13
得出的结果一定要是2011-10-06这样，想很久了，不会，求教

取当前日期我用的[e]到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ())[/e]
有好的方式也请赐教，谢谢

小马过河

[e].版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

' _启动窗口.左边 ＝ 取屏幕宽度 () － 取屏幕宽度 () ÷ 10 × 9
' _启动窗口.顶边 ＝ 取屏幕高度 () － 取屏幕高度 () ÷ 10 × 9
' 调试输出 (时间到文本 (增减时间 (指定时间 (1997, 6, 12, , , ), 5, -7), 1))


.子程序 时间到格式化, 文本型
.参数 时间, 文本型
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型

调试输出 (文本_取左边 (时间, “年”, 1))
年 ＝ 文本_取左边 (时间, “年”, 1)
月 ＝ 文本_取出中间文本 (时间, “年”, “月”)
.如果真 (取文本长度 (月) ＝ 1)
    月 ＝ “0” ＋ 月
.如果真结束
日 ＝ 文本_取出中间文本 (时间, “月”, “日”)
.如果真 (取文本长度 (日) ＝ 1)
    日 ＝ “0” ＋ 日
.如果真结束
返回 (年 ＋ “-” ＋ 月 ＋ “-” ＋ 日)

.子程序 _按钮1_被单击
.局部变量 时间, 文本型

时间 ＝ 时间到文本 (增减时间 (指定时间 (1997, 6, 12, , , ), 5, -7), 1)
调试输出 (时间到格式化 (时间))

记得给加分完整源码[/e]

果子

试试这个命令 增减时间 (, , )

elang136

增减时间 (取现行时间 (), #日, -7)

pengang

注意我要得的结果是2011-10-06这样，关键是06那里

elang136

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 abc, 日期时间型

abc ＝ 增减时间 (取现行时间 (), #日, -7)
到文本 (取年份 (abc)) ＋ “-” ＋ 到文本 (取月份 (abc)) ＋ “-” ＋ 到文本 (取日 (abc))

exit11

调试输出 (格式化日期 (增减时间 (取现行时间 (), #日, -7), “%y-%m-%d”))

pengang

5楼和6楼，你们得出的结果是2011-10-06么？我的不是啊，是2011-10-6

elang136

没看清要求，用楼上的吧，我以前也写过，时间长记不全了。

pengang

搞定，受8楼启发，代码见下
[e].版本 2

.局部变量 年月, 文本型
.局部变量 日, 文本型

年月 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-”
.如果 (取文本长度 (到文本 (取日 (取现行时间 ()) － 7)) ＝ 1)
    日 ＝ 到文本 (取日 (取现行时间 ()))
.否则
    日 ＝ “0” ＋ 到文本 (取日 (取现行时间 ()))
.如果结束
编辑框1.内容 ＝ 年月 ＋ 到文本 (日)[/e]