Retirnar um número por extenso

Amigos,

Como faço para criar uma função que, ao digitar um número inteiro qualquer, me retorne uma string com o número por extenso.
Ex:
Digito “1249”
Retorna “Mil Duzentos e Quarenta e Noventa e nove”

Obrigado

Cara,
uma funçao pronta eu nao conheço e nao acredito q exista. provavelmente vc vai ter q fazer isso na mao , talvez criar um parser, nao eh simples…

da uma olhada em

http://lib.seven.com.br/ampliar.asp?codartigo=684