ll_millisecond,'000'))
case "millisecond","ms","毫秒"//毫秒
//先换算成秒计算
if ll_millisecond + al_number < 0 then
ll_second_tmp = ceiling(abs(ll_millisecond + al_number) / 1000) * (-1)
else
ll_second_tmp = (ll_millisecond + al_number) / 1000
end if
ll_millisecond = ll_millisecond + al_number - ll_second_tmp * 1000
if ll_millisecond >= 1000 then
ll_second_tmp = ll_second_tmp + 1
ldt_return = f_dateadd('second',ll_second_tmp,adt_refdate)
ll_millisecond = 1000 - ll_millisecond
else
ldt_return = f_dateadd('second',ll_second_tmp,adt_refdate)
end if
ld_return = date(ldt_return)
ll_hour = hour(time(ldt_return))
ll_minute = minute(time(ldt_return))
ll_second = second(time(ldt_return))
lt_return = time(string(ll_hour,'00')+":"+string(ll_minute,'00')+":"+string(ll_second,'00')+"."+string(ll_millisecond,'000'))
case else//无效参数
setnull(ldt_return)
return ldt_return
end choose
ldt_return = datetime(ld_return,lt_return)
return ldt_return
摘自 忘记阁
|