string msg
date nd
int n,t
//----取得并处理本日在本周的序数,周一为0,周日为6----
t=daynumber(today()) -2
if t=-1 then t=6
//--------------------------------------
for n=t to 0 step -1//循环取得本周今日之前的日期(含今日)
nd=relativedate(today(),-n)
msg+=string(nd,'yyyy年mm月dd日')+'~n~n'
next
for n=1 to 6 -t//循环取得本周今日之后的日期(不含今日)
nd=relativedate(today(),n)
msg+=string(nd,'yyyy年mm月dd日')+'~n~n'
next
messagebox('',msg)
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
取该季度最后一天
需要有一列包含时间的字段,如:f_date
date d_date
long l_find
d_date = date("2010-01-05")
l_find = dw_1find("f_date=date('"+string(d_date,"yyyy-mm-dd")+"')", 1, dw_1Rowcount())
if l_find > 0 then
//找到
else
//未找到
end
您好,您说的是获取DW中的日期类型的列的值吗,是的话,给你例子
例:获取Dw_1 中的 第 ll_row 行 'rq' 列的值
datetime dt_rq
dt_rq = dw_1getitemdatetime(ll_row,'rq')
以上就是关于PB中如何取当前日期所在周的每天日期全部的内容,包括:PB中如何取当前日期所在周的每天日期、在pb9.0里 时间取当前季度怎么取、pb 按时间查询该怎么做啊等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)