public function decimal f_getrand (decimal ad_begin, decimal ad_end);
//*-----------------------------------------------------------------*/
//功能,获取两个数之间的随机数
//返回值的精确度为两个数中最大精确度
//为了使RAND是产生伪随机序列更随即，适当把样本空间放大。
//*-----------------------------------------------------------------*/
int li_point
dec ld_sub,ld_rand,ld_return
ld_sub = abs(ad_end - ad_begin)
//最长小数位个数
li_point = len(string(ld_sub)) -pos(string(ld_sub),".")
//产生随机数，样本空间扩大为100*最长小数位个数倍
ld_rand = rand(ld_sub*100*li_point)
//返回数值范围的随机数
ld_return = min(ad_begin,ad_end) + ld_rand/(100*li_point)
//截断数值到指定的小数位
ld_return = Truncate ( ld_return,li_point)
return ld_return
end function