日時ピッカー

LANSA

日時ピッカー

日時ピッカーを使用して、ユーザーが日時を選択できるようにします。

ピッカーから戻される値はDateTimeフィールドです。

以下の例をコピー・貼り付けして、日時ピッカーがどのように動作するかを確認することができます。

Function Options(*DIRECT)
 
Begin_Com Role(*EXTENDS #PRIM_FORM) Caption('DateTime Tester') Clientheight(127) Clientwidth(489) Componentversion(1) Formposition(ScreenCenter) Height(163) Left(445) Top(147) Width(505)
Define_Com Class(#PRIM_DTIM) Name(#DATETIME) Displayposition(1) Height(25) Hint('Test Hint') Left(8) Parent(#COM_OWNER) Tabposition(4) Top(16) Visualstyle(#VS_NORM) Width(265)
Define_Com Class(#PRIM_DTIM) Name(#MIN) Displayposition(3) Height(25) Left(72) Parent(#COM_OWNER) Tabposition(2) Top(56) Width(120)
Define_Com Class(#PRIM_DTIM) Name(#MAX) Displayposition(2) Height(25) Left(72) Parent(#COM_OWNER) Tabposition(1) Top(88) Width(120)
Define_Com Class(#PRIM_LABL) Name(#LABL_1) Caption('Min Date') Displayposition(5) Height(25) Left(8) Parent(#COM_OWNER) Tabposition(5) Tabstop(False) Top(56)
Define_Com Class(#PRIM_LABL) Name(#LABL_2) Caption('Man Date') Displayposition(4) Height(22) Left(8) Parent(#COM_OWNER) Tabposition(3) Tabstop(False) Top(88)
Define_Com Class(#PRIM_GPBX) Name(#GPBX_1) Caption('Format') Displayposition(6) Height(108) Left(288) Parent(#COM_OWNER) Tabposition(6) Tabstop(False) Top(8) Width(185)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_1) Buttonchecked(True) Caption('SystemLongDate') Displayposition(1) Height(17) Left(8) Parent(#GPBX_1) Tabposition(1) Top(16)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_2) Caption('UserTime') Displayposition(2) Height(15) Left(8) Parent(#GPBX_1) Tabposition(2) Top(82)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_3) Caption('SystemDate') Displayposition(3) Height(17) Left(8) Parent(#GPBX_1) Tabposition(3) Top(32)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_4) Caption('UserDate') Displayposition(4) Height(17) Left(8) Parent(#GPBX_1) Tabposition(4) Top(64)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_5) Caption('SystemTime') Displayposition(5) Height(17) Left(8) Parent(#GPBX_1) Tabposition(5) Top(48)
 
Evtroutine Handling(#COM_OWNER.CreateInstance) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
Set Com(#DATETIME) Value(*DateTime)
 
Set Com(#MIN) Value(#DATETIME.mindate)
Set Com(#MAX) Value(#DATETIME.maxdate)
 
Set Com(#DATETIME) Dateformat(SystemLongDate)
Endroutine
 
Evtroutine Handling(#RDBN_1.Click)
* Set SystemLongDate
Set Com(#DATETIME) Dateformat(SystemLongDate)
Endroutine
Evtroutine Handling(#RDBN_2.Click)
* Set SystemShortDate
Set Com(#DATETIME) Dateformat(SystemDate)
Endroutine
Evtroutine Handling(#RDBN_3.Click)
* Set SystemTime
Set Com(#DATETIME) Timeformat(SystemTime)
Endroutine
Evtroutine Handling(#RDBN_4.Click)
* Set UserShortDate
Set Com(#DATETIME) Dateformat(UserDate)
Endroutine
Evtroutine Handling(#RDBN_5.Click)
* Set UserTime
Set Com(#DATETIME) Timeformat(UserTime)
Endroutine
 
Evtroutine Handling(#MIN.Changed) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
Set Com(#DATETIME) Mindate(#MIN.Value)
Endroutine
Evtroutine Handling(#MAX.Changed) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
Set Com(#DATETIME) Maxdate(#MAX.Value)
Endroutine
End_Com
 

DisplayAsUTC プロパティ

Checkbox プロパティ

Checked プロパティ

CustomDateFormat プロパティ

CustomTimeFormat プロパティ

DateFormat プロパティ

TimeFormat プロパティ

FormatText プロパティ

ShowDate プロパティ

ShowDateButton プロパティ

ShowTime プロパティ

ShowTimeButton プロパティ

Format プロパティ

MaxDate プロパティ

MinDate プロパティ

Value プロパティ