水晶報表公式的VB寫法:
dim pdate,jdate as date
pdate=Maximum ({命令.pdate},{命令.slipno} )
pdate=dateadd("d",2,pdate)
dim str as string
str=cstr({命令.jdate},"yyyy年MM月dd日") & "至" & cstr(pdate,"yyyy年MM月dd日")
dim pdate,jdate as date
pdate=Maximum ({命令.pdate},{命令.slipno} )
pdate=dateadd("d",2,pdate)
dim str as string
str=cstr({命令.jdate},"yyyy年MM月dd日") & "至" & cstr(pdate,"yyyy年MM月dd日")