?? xjll.shl
字號:
LET &a=GETSTR("請輸入起始日期,形式為2002-05-01")
LET &b=GETSTR("請輸入截止日期,形式為2002-05-31")
LET &c=GETSTR("請輸入起始月份,形式為 05")
LET &d=GETSTR("請輸入截止月份,形式為 05")
let c6=XJLL(&a,&b,"借","01",,,"y")
let c7=XJLL(&a,&b,"借","02",,,"y")
let c8=XJLL(&a,&b,"借","03",,,"y")
let c9=ptotal(c6:c8)
let c10=XJLL(&a,&b,"貸","04",,,"y")
let c11=XJLL(&a,&b,"貸","05",,,"y")
let c12=XJLL(&a,&b,"貸","06",,,"y")
let c13=XJLL(&a,&b,"貸","07",,,"y")
let c14=ptotal(c10:c13)
let c15=c9-c14
let c17=XJLL(&a,&b,"借","08",,,"y")
let c18=XJLL(&a,&b,"借","09",,,"y")
let c19=XJLL(&a,&b,"借","10",,,"y")
let c20=XJLL(&a,&b,"借","11",,,"y")
let c21=ptotal(c17:c20)
let c22=XJLL(&a,&b,"貸","12",,,"y")
let c23=XJLL(&a,&b,"貸","13",,,"y")
let c24=XJLL(&a,&b,"貸","14",,,"y")
let c25=ptotal(c22:c24)
let c26=c21-c25
let c28=XJLL(&a,&b,"借","15",,,"y")
let c29=XJLL(&a,&b,"借","16",,,"y")
let c30=XJLL(&a,&b,"借","17",,,"y")
let c31=ptotal(c28:c30)
let c32=XJLL(&a,&b,"貸","18",,,"y")
let c33=XJLL(&a,&b,"貸","19",,,"y")
let c34=XJLL(&a,&b,"貸","20",,,"y")
let c35=ptotal(c32:c34)
let c36=c31-c35
let c38=c15+c26+c36
let f28=QM("1001",&d,,,,,,,"y",,)+QM("1002",&d,,,,,,,"y",,)
let f29=QC("1001",&c,,,,,,,"y",,)+QC("1002",&c,,,,,,,"y",,)
let f32=f28-f29?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -