Question

在pb9.0里 时间取当前季度怎么取？

如题~满意追加60分
我是想取当前季度的起始日期和结束日期到DW窗口里

Answer 1

global function string uf_firstday ();string ls_date
date ld_today
ld_today=date(today())
choose case month(ld_today)
case 1 to 3
ls_date=string(year(ld_today))+"-01-01"
case 4 to 6
ls_date=string(year(ld_today))+"-04-01"
case 7 to 9
ls_date=string(year(ld_today))+"-07-01"
case 10 to 12
ls_date=string(year(ld_today))+"-10-01"
end choose
return ls_date
end function
取该季度第一天
global function string uf_lastday ();string ls_date
date ld_today
ld_today=date(today())
choose case month(ld_today)
case 1 to 3
ls_date=string(year(ld_today))+"-03-31"
case 4 to 6
ls_date=string(year(ld_today))+"-06-30"
case 7 to 9
ls_date=string(year(ld_today))+"-09-30"
case 10 to 12
ls_date=string(year(ld_today))+"-12-31"
end choose
return ls_date
end function
取该季度最后一天