calendar.kb 的例行程序


CalendarDlgEvent

文件名

calendar.kb

语法

CalendarDlgEvent(REF thisCal: CalendarRecord)

参数

thisCal - 包含 startDate 的日历记录信息

返回

1 = 用户接受的对话

< 1 = 用户取消的对话

副作用

该事件不能在 calendar.kb 之外使用

说明

实际日历窗口的父窗口。控制“下一个”、“前一个”和“转至”日期按钮。

调用的对话框窗体

.dfc[gotodate]

calendar.dfc[calendar]


GetCentury

文件名

calendar.kb

语法

GetCentury(VAL thisDate: DATE): INTEGER

参数

thisDate - 要评估的日期

返回

世纪

副作用

说明

给定一个日期,返回世纪

调用的对话框窗体


GetDayOfWeekIndex

文件名

calendar.kb

语法

GetDayOfWeekIndex(VAL thisDate: DATE): INTEGER

参数

thisDate - 要评估的日期

返回

周索引 : 当 ZERO_BASED_DATE_INDEX = TRUE 时,返回 (0-6),

当 ZERO_BASED_DATE_INDEX = FALSE 时,返回 (1-7)。

副作用

说明

给定一个日期,返回一周的某天(整数)。

调用的对话框窗体


GetDayOfWeekNamed

文件名

calendar.kb

语法

GetDayOfWeekNamed(VAL thisDate: DATE): STRING

参数

thisDate - 要评估的日期

返回

一周的某一天的名称

副作用

说明

给定一个日期,返回一周的某一天的名称。

调用的对话框窗体


GetDayOfWeekNamedWithIndex

文件名

calendar.kb

语法

GetDayOfWeekNamedWithIndex(VAL index: INTEGER, VAL isZeroBased: BOOLEAN): STRING

参数

thisDate - 要评估的日期

返回

index - 周索引所对应的那一天

isZeroBased - 如果为 TRUE,则索引值为 0-6;如果为 FALSE,则索引值为 1-7

副作用

说明

给定一周的某一天的索引,返回一周的某一天的名称。

调用的对话框窗体


GetDayOfYear

文件名

calendar.kb

语法

GetDayOfYear(VAL thisDate: DATE): INTEGER

参数

thisDate - 要评估的日期

返回

一年的某一天

副作用

说明

给定一个日期,返回一年的某一天(整数)。

调用的对话框窗体


GetDaysLeftInYear

文件名

calendar.kb

语法

GetDaysLeftInYear(VAL thisDate: DATE): INTEGER

参数

thisDate - 要评估的日期

返回

一年中剩下的天数。

副作用

说明

给定一个日期,返回一年中所剩的天数。

调用的对话框窗体


GetFullYear

文件名

calendar.kb

语法

GetFullYear(VAL thisDate: DATE): INTEGER

参数

thisDate - 要评估的日期

返回

全年

副作用

说明

给定一个日期,返回全年。

调用的对话框窗体


GetMonthNamed

文件名

calendar.kb

语法

GetMonthNamed(VAL thisDate: DATE): STRING

参数

thisDate - 要评估的日期

返回

月份名称

副作用

说明

给定一个日期,返回其月份名称。

调用的对话框窗体


GetMonthNumberOfDays

文件名

calendar.kb

语法

GetMonthNumberOfDays(VAL d: DATE): INTEGER

参数

d - 要评估的日期

返回

月份中的天数

副作用

说明

给定一个日期,计算当月的天数。

调用的对话框窗体


GetWeekOfYear

文件名

calendar.kb

语法

GetWeekOfYear(VAL thisDate: DATE): INTEGER

参数

thisDate - 要评估的日期

返回

一年中的周

副作用

说明

给定一个日期,返回一年的某一周。

调用的对话框窗体


GetWeeksLeftInYear

文件名

calendar.kb

语法

GetWeeksLeftInYear(VAL thisDate: DATE): INTEGER

参数

thisDate - 要评估的日期

返回

一年中所剩的周数

副作用

说明

给定一个日期,返回一年中所剩的周数。

调用的对话框窗体


GotoDateEvent

文件名

calendar.kb

语法

GotoDateEvent(REF gotoDate: DATE)

参数

gotoDate - 用户输入的日期

返回

1 = 用户接受的对话

< 1 = 用户取消的对话

副作用

该事件不能在 calendar.kb 之外使用

说明

获取要跳转的日期。

调用的对话框窗体


InquireCalendar

文件名

calendar.kb

语法

InquireCalendar(VAL w: WINDOW, REF sDate: DATE): BOOLEAN

参数

thisDate - 要评估的日期

返回

w - 日历的父窗口句柄

sDate - 要显示的日期(未知则显示当天)。在此处返回选中的日期。

副作用

说明

根据传入的日期显示日历,或在未给定日期时显示当天的日期。返回用户选择的日期。

调用的对话框窗体


InquireCalendarAuto

文件名

calendar.kb

语法

InquireCalendarAuto(VAL w: WINDOW, VAL fieldName: STRING)

参数

w - 日历的父窗口句柄(与 fieldName 的窗口相同)

fieldName - 获取和发送日期的对话框字段的名称

返回

副作用

说明

根据传入字段的日期显示日历,或在字段中无日期时显示当天的日期。在字段中插入选定的日期。

调用的对话框窗体


InquireCalendarAutoParent

文件名

calendar.kb

语法

InquireCalendarAutoParent(VAL parentW: WINDOW, VAL w: WINDOW, VAL fieldName: STRING)

参数

parentW - 日历的父窗口句柄

w - 具有 fieldName 的对话框窗口句柄

fieldName - 获取和发送日期的对话框字段的名称

返回

副作用

说明

根据传入字段的日期显示日历,或在未向字段传入日期时显示当天的日期。在字段中插入选定的日期。

调用的对话框窗体


IsDateLeapYear

文件名

calendar.kb

语法

IsDateLeapYear(VAL d: DATE): BOOLEAN

参数

d - 要评估的日期

返回

如果日期是闰年,则为 TRUE;如果日期不是闰年,则为 FALSE。

副作用

说明

给定日期则返回闰年值(TRUE 或 FALSE)。

调用的对话框窗体


IsLeapYear

文件名

calendar.kb

语法

IsLeapYear(VAL y: INTEGER): BOOLEAN

参数

y - 要赋值的年

返回

如果年是闰年,则为 TRUE;如果年不是闰年,则为 FALSE。

副作用

说明

给定年则返回闰年值(TRUE 或 FALSE)。

调用的对话框窗体