我这里有一个半角转全角的函数 相信对你有用
function convert(ABC: string): string;
var
i: integer;
s: widestring;
begin
s := UpperCase(ABC); //半角字符转全角
for i := 1 to length(s) do
begin
s[i] := WideChar(integer(s[i]) + $FEE0);
end;
result := s;
end;
Declare @p nvarchar(200)
Declare @idx int
Declare @ret varchar(200)
set @p=N'1234567。890'
SET @ret=''
Set @idx=1
WHILE SUBSTRING(@p,@idx,1)<>''
BEGIN
SET @ret=@ret+NCHAR(UNICODE(SUBSTRING(@p,@idx,1))-CASE WHEN SUBSTRING(@p,@idx,1)='。' THEN 12244 ELSE 65248 END )
SET @idx=@Idx+1
END
SELECT @ret