Pénz kiírása szövegesen magyarul

Nem tudok, de ha ez segít (MSSQL script):

GO
CREATE FUNCTION f_share_get_amount (@arg INT) RETURNS VARCHAR(100) AS BEGIN

  DECLARE @pos INT
  DECLARE @len INT
  DECLARE @result VARCHAR(100)
  DECLARE @argstr VARCHAR(100)
  DECLARE @char VARCHAR(100)
  DECLARE @char1 VARCHAR(100)

  SET @argstr = ltrim(rtrim(cast(@arg AS VARCHAR(50))))
  SET @len = len(@argstr)
  SET @pos = 0
  SET @result = ''
  WHILE @pos < @len BEGIN
    SET @pos = @pos + 1
    SET @char = substring(@argstr, @pos, 1)

    IF @pos < @len BEGIN
      SET @char1 = substring(@argstr, @pos + 1, 1)
    END

    IF @len-@pos = 6 or @len-@pos = 3 or @len-@pos = 0 BEGIN
       SET @result = CASE @char WHEN '1' THEN @result + 'egy'
                                WHEN '2' THEN @result + 'kettő'
                                WHEN '3' THEN @result + 'három'
                                WHEN '4' THEN @result + 'négy'
                                WHEN '5' THEN @result + 'öt'
                                WHEN '6' THEN @result + 'hat'
                                WHEN '7' THEN @result + 'hét'
                                WHEN '8' THEN @result + 'nyolc'
                                WHEN '9' THEN @result + 'kilenc'
                                WHEN '0' THEN @result END
    END ELSE IF @len-@pos = 8 or @len-@pos = 5 or @len-@pos = 2 BEGIN
       SET @result = CASE @char WHEN '1' THEN @result + 'száz'
                            WHEN '2' THEN @result + 'kettőszáz'
                            WHEN '3' THEN @result + 'háromszáz'
                            WHEN '4' THEN @result + 'négyszáz'
                            WHEN '5' THEN @result + 'ötszáz'
                            WHEN '6' THEN @result + 'hatszáz'
                            WHEN '7' THEN @result + 'hétszáz'
                            WHEN '8' THEN @result + 'nyolcszáz'
                            WHEN '9' THEN @result + 'kilencszáz'
                            WHEN '0' THEN @result END
   END ELSE IF @len-@pos = 7 or @len-@pos = 4 or @len-@pos = 1 BEGIN
      IF @char = '1' BEGIN
         IF @char1 = '0' BEGIN
           SET @result = @result + 'tíz'
         END ELSE BEGIN
           SET @result = @result + 'tizen'
         END
      END ELSE IF @char = '2' BEGIN
         IF @char1 = '0' BEGIN
           SET @result = @result + 'húsz'
         END ELSE BEGIN
           SET @result = @result + 'huszon'
         END
      END ELSE BEGIN
        SET @result = CASE @char WHEN '3' THEN @result + 'harminc'
                             WHEN '4' THEN @result + 'negyven'
                             WHEN '5' THEN @result + 'ötven'
                             WHEN '6' THEN @result + 'hatvan'
                             WHEN '7' THEN @result + 'hetven'
                             WHEN '8' THEN @result + 'nyolcvan'
                             WHEN '9' THEN @result + 'kilencven'
                             WHEN '0' THEN @result END
      END
    END
    IF @len-@pos = 3 BEGIN
      SET @result = @result + 'ezer'
      IF @arg % 1000 != 0 BEGIN
        SET @result = @result + '-'
      END
    END ELSE IF @len-@pos = 6 BEGIN
      SET @result = @result + 'millió'
      IF @arg % 1000000 != 0 BEGIN
        SET @result = @result + '-'
      END
    END ELSE BEGIN
       SET @result = @result
    END
  END
  SET @result = @result + ' Ft.'
  RETURN @result
END

Fújjjjjj!
Frimen hogy gondolod, egy szabadelvű közösségbe behozod az Őrdög kódját????

Egyébként asszem a JavaFórum-on mintha láttam volna ilyet a kezdő részben.

Azért kérlek mert büszke vagyok rá.
Büszke, mert nem lettem teljesen idegrocs mikor M$SQL szerverrel és TSQL-el kellett dolgoznom...
.. csak a szám habzott néha

Megértelek.