date - 打开时在单行编辑中设置日期

Question

我使用的是 PowerBuilder 10.5，窗口上有两个单行编辑 (SLE) 字段 - sle_date1 和 sle_date2。

我需要的是在打开程序后填写这两个字段。 sle_date2 必须具有今天的值(例如 - 09.07.13)，sle_date1 必须具有 (sle_date2-30天)(例如 2013 年 6 月 9 日)。

因此，正如我所说，一旦我打开程序，两个字段都会立即填充今天的日期和一个月前的日期的值。

我怎样才能做到这一点？有什么建议可以让我继续前进吗？

Answer 1

• 您可以添加一些代码来填充窗口的 open() 事件中的编辑内容
• 对于给定的日期(可以是 today())，您可以使用 RelativeDate() 计算新日期加上/减去天数

以下代码只是回答您的问题(尽管最好使用一些editmask控件而不是singlelineedit，因为它可以简化用户输入的处理):

date ld_now, ld_previousmonth
string ls_datefmt

ls_datefmt = "dd.mm.yy"
ld_now = today()
sle_1.text = string(ld_now, ls_datefmt)
ld_previousmonth= RelativeDate(ld_now, -30)
sle_2.text = string(ld_previousmonth, ls_datefmt)

此时显示09.07.13和09.06.13。