- 博客(2)
- 资源 (4)
- 收藏
- 关注
原创 日期型去掉后面的时间
说明 非日期型为原的值 日期型 去掉后面的时间部分Function (stringvar str) if not NumericText(str) then ( if IsDateTime (str) then ( stringvar array strs:=Split (str,"-"); if count(strs)>=3 then
2007-11-30 15:00:00 1884
原创 去除水晶报表小数点最后多余的0
1、新建自定义函数TrimPointZero2、编写函数体 如下:Function (stringVar str)//如果不是数字型 返回原来的值日if not NumericText(str) then strelse ( numbervar iPointNum:=InStr (str, .);//判断该数字是不是含有小数点 //如果没有小数点 返回原来的值
2007-11-02 16:06:00 2715
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人