$PBExportHeader$f_clen.srf
$PBExportComments$计算Column的长度--函数
global type f_clen from function_object
end type

forward prototypes
global function integer f_clen (string stype)
end prototypes

global function integer f_clen (string stype);int li
if stype='date' or stype='time' then//字段长度象素
	li=10
else
	if stype='datetime' then
		li=19
	else
		if stype='number' or left(stype,7)='decimal' then
			li=12
		else
			if left(stype,4)='char' then
				li=long(mid(stype,6,len(stype)-6))
			else
				li=12
			end if
		end if
	end if
end if
return li
end function