delphi语句翻译成vb好吗

Question

本人刚接触vb编程，朋友帮忙给写了一个delphi语句，可是看不懂，请大家帮我翻译成vb好吗，谢谢，在线等
CREATE FUNCTION funcGetLastInt (@Str varchar(50))  
RETURNS int
AS  
BEGIN   DECLARE @i int, @j int, @Asc int
  DECLARE @RTN int, @R varchar(50), @C char
  SET @j = 1
  SET @i = LEN(@Str)
  --IF @i >= @j
  SET @R = ''  WHILE @j <= @i
   BEGIN
    SET @C = SubString(@Str, @i-@j + 1, 1)
    SET @Asc = ASCII(@C)
    IF (@Asc < 48)OR(@Asc > 57)
     BEGIN
      BREAK
     END
    else
     BEGIN
      SET @R = @C + @R
     END
    SET @j = @j + 1
   END
  SET @RTN = Convert(int, @R)
  RETURN @RTNEND

Answer 1

有沒有搞錯，這是SQL Server 的語句，是一個創建存儲過程的語句。VB 和 Delphi 可以利用ado來執行並得到結果。

Answer 2

去看 MSDN 中  ADODB.Command 的範例。好像 SQL Server 的幫助也有範例。