WHEN-NEW-FORM-INSTANCE

DECLARE
    temp_date         date;
    client_timezone   date;
    char_date         varchar2(20);
begin

    temp_date := TRUNC(FND_STANDARD.SYSTEM_DATE);
    app_date.date_to_field(temp_date, ‘BLOCK.FROM_DATE‘);
    temp_date := temp_date + .99999;
    app_date.date_to_field(temp_date, ‘BLOCK.TO_DATE‘);
end;

KEY-LISTVAL

calendar.show;

FORM标准默认时间区间处理