|
.Calendar
?年份: @2,3 : L4 : Check$,FixPos : K4 : O{??I$<1900}{I$_1900}{?!_}
?月份: @2,8 : L2 : Check$,FixPos : K2 : O{??I$<1}{I$_12}{!?I$>12}{I$_01}{!?}{SS0{0}_-1_2}{?!_}
?日數: L2 : Hidden : K2
?日: @1,9 : L0,1
: /{CT1}{SC$view_}
'-----------------------------------------------------------
$$L1
?日: @3,2,&h0C*15 : L4,2 : NoChange
?一: @3,5,&h0304*15 : L4,2 : NoChange
?二: @3,8,&h0304*15 : L4,2 : NoChange
?三: @3,11,&h0304*15 : L4,2 : NoChange
?四: @3,14,&h0304*15 : L4,2 : NoChange
?五: @3,17,&h0304*15 : L4,2 : NoChange
?六: @3,20,&h0304*15 : L4,2 : NoChange
$$5
'-----------------------------------------------------------
{SS{X${FD_5_11}_ |_}_2_20}: @2,2,,&hf : Skip : &,~f.k1
'-----------------------------------------------------------
==: @2,11,,4 : L0 : FixPos : &,~f.k1
'-----------------------------------------------------------
$Window: {WH},{VV},12,27
$Box : 3,3,9,23,0,Box
'-----------------------------------------------------------
$Control: {i.text_{F#1},2,14,7,{T$}}
$Control: {i.command_{F#1}_(ic.gui_text_{F#1},2,14,0,(time))}
$Control: {i.timer_{F#1},1000,timer:command}
$Control:
{&&1_{@@}}{i.create_{&&1},{F#2},style:scroll+hscroll+dscroll,0,0,1,-1,23,-1}
$Control: {i.resize_{&&1},-2,-10,size:left+right+top}
'-----------------------------------------------------------
$Open: {I$年份_{SS{D$}_1_4}}{I$月份_{SS{D$}_6_2}}{I$日數_{SS{D$}_-1_2}}
'-----------------------------------------------------------
$In:
{??{I#}>4&{0}>0}{??{0}={日數}}{I#1}{KB~f.k10}{!?}{I$日數_{0.0}}{I#1}{DI}{?!_}{?!_}
'-----------------------------------------------------------
$Funct: F.K1={EX*fkhelp}
$Funct: F.K3=備忘={V:@mms\remind}{?!_}
$Funct: F.K4==
$Funct: F.K8=加減={?G_,日數±}{D${DT{D$}{&&1}}}{SC$open_}{?!_}
$Funct:
F.K9=今日={I$年份_{SS{T$_}_1_4}}{I$月份_{SS{T$_}_6_2}}{I$日數_{SS{T$_}_-1_2}}{DI}
$Funct: F.K10=設定={?Y請確定是否更改工作日期}{D${年份}/{月份}/{SS0{日數}_-1_2}}{***}{?!_}
$Funct: K.Cr={DI}
$Funct: K.PgUp={??{年份}>1900}{I$年份_{@={年份}-1}}{DI}{?!_}
$Funct: K.PgDn={I$年份_{@={年份}+1}}{DI}
$Funct: K.Tab={KB~m.down}
$Funct: S.Tab={KB~m.up}
$Funct: S.F2={KB~f.k1}
$Funct: S.F3={KB~f.k1}
$Funct: M.Down={??{月份}<12}{I$月份_{SS0{@={月份}+1}_-1_2}}{DI}{?!_}
$Funct: M.Up={??{月份}>1}{I$月份_{SS0{@={月份}-1}_-1_2}}{DI}{?!_}
$Funct: C.Left={KB~k.pgup}
$Funct: C.Right={KB~k.pgdn}
$Funct: C.Cr={KB~f.k10}
'-----------------------------------------------------------
$View: {&&1_{@=5+{D#{年份}/{月份}/01_W}}}{&&2_1}{DO{D#{年份}/{月份}_}}
$View: {DO(I$(&&1)_(SS (&&2)_-1_2)..)(++1_1)(++2_1)}
$View: {&&1_{@=5+{D#{年份}/{月份}/01_W}+{日數}-1}}{I${&&1}_{SS{{&&1}}_1_2}}
.
|
