CREATE PROCEDURE dbo.IsNumber
(@s varchar( 255 ))
as
declare 
  @buf varchar( 255 ),
  @incminus int,
  @incdot   int,
  @i   int
begin

  select @i = patindex('%[^-.1234567890]%', @s )
  if @i >  0  
  begin
--  "число содержит некорректные символы"
    select - 1 
    return
  end

  select @i = patindex('%[-]%', @s) 
  if @i >  1  
  begin
--  "знак минус в числе должен стоять на первом месте"
    select - 2 
    return
  end

  select @incminus =  0 
  select @incdot =  0 
  select @i =  1 
  while @i <= len(@s)
  begin
    select @buf = substring(@s, @i,  1 )
    select @incminus = @incminus + case when @buf = "-" then  1  else  0  end
    select @incdot = @incdot + case when @buf = "." then  1  else  0  end
    select @i = @i +  1 
  end
   
  if (@incminus >  1 ) or (@incdot > 1 )
  begin
-- "знак минус или точка в числе встречается больше одного раза"
    select - 3 
    return
  end

  select  0   
end