Function Setstring(cString:string):string; {提取数字} VAr i:integer; str:string; begin str:=''; For i:=1 to length(cString) do begin if Pos(cString[i],'0123456789.')<=0 then break else Ca
今天调整一个同事的需求时,要计算一个含税金额.报表内已经取到税率,但存在的形式是字符串格式:16%. 正好SAP内有一个标准函数:PREPARE_STRING 可以处理字符串,将特别标志替换为有效标志.通过函数只保留数字,再转换成整数,再进行后续运算. ) TYPE c. DATA tax_rate TYPE I. tax_rate_char = ' 16%'. CALL FUNCTION 'PREPARE_STRING' EXPORTING i_valid_chars = ' 01234567
function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字 var i:integer; begin result:=true; //设置返回值为 是(真) Vaule:=trim(Vaule); //去空格 to length(Vaule) do //准备循环 begin 中的任一个 begin result:=false; //返回值 不是(假) exit; //退出函数 end; end; end; function IsUpperC