Numbers as Words

[Darin]

Is there something in windows that will take a given set of numbers and
re-write them as words - such as for a check?

A friend wrote this macro for Excel and I didn't know if this was
something that could be written in VB.NET without excel.
Declare Sub Recibo Lib "dlltcast.dll" (cifra As Long, ByVal _
texto As String)

Function letras(minumero)

Dim texto As String * 255
Dim cifra As Long

texto = String(255, 0)
cifra = CLng(minumero)

Call Recibo(cifra, texto)

letras = texto

End Function

Darin

*** Sent via Developersdex http://www.developersdex.com ***

[Cor Ligthert [MVP]]

Darin,

Peter Huang showed us this page some years ago it is VB6 however almost
VBNET

Cor

"Darin" <darin_nospam@nospameverschreef in bericht
news:eX**************@TK2MSFTNGP04.phx.gbl...

Is there something in windows that will take a given set of numbers and
re-write them as words - such as for a check?

A friend wrote this macro for Excel and I didn't know if this was
something that could be written in VB.NET without excel.
Declare Sub Recibo Lib "dlltcast.dll" (cifra As Long, ByVal _
texto As String)

Function letras(minumero)

Dim texto As String * 255
Dim cifra As Long

texto = String(255, 0)
cifra = CLng(minumero)

Call Recibo(cifra, texto)

letras = texto

End Function

Darin

*** Sent via Developersdex http://www.developersdex.com ***

[rowe_newsgroups]

On Apr 13, 8:45 pm, "Cor Ligthert [MVP]" <[e-mail]>
wrote:

Darin,

Peter Huang showed us this page some years ago it is VB6 however almost
VBNET

Cor

"Darin" <darin_nospam@nospameverschreef in berichtnews:eX**************@TK2MSFTNGP04.phx.gbl. ..

Is there something in windows that will take a given set of numbers and
re-write them as words - such as for a check?

A friend wrote this macro for Excel and I didn't know if this was
something that could be written in VB.NET without excel.

Declare Sub Recibo Lib "dlltcast.dll" (cifra As Long, ByVal _
texto As String)

Function letras(minumero)

Dim texto As String * 255
Dim cifra As Long

texto = String(255, 0)
cifra = CLng(minumero)

Call Recibo(cifra, texto)

letras = texto

End Function

Darin

*** Sent via Developersdexhttp://www.developersdex.com***

Peter Huang showed us this page some years ago it is VB6 however almost
VBNET

What page?

Thanks,

Seth Rowe

[Rad [Visual C# MVP]]

On Fri, 13 Apr 2007 15:02:49 -0700, Darin wrote:

Is there something in windows that will take a given set of numbers and
re-write them as words - such as for a check?

A friend wrote this macro for Excel and I didn't know if this was
something that could be written in VB.NET without excel.

Declare Sub Recibo Lib "dlltcast.dll" (cifra As Long, ByVal _
texto As String)

Function letras(minumero)

Dim texto As String * 255
Dim cifra As Long

texto = String(255, 0)
cifra = CLng(minumero)

Call Recibo(cifra, texto)

letras = texto

End Function

Darin

*** Sent via Developersdex http://www.developersdex.com ***

FYI if you need this for a Crystal Report, there is a function that will do
this for you
--
Bits.Bytes
http://bytes.thinkersroom.com

[Matthias Tacke]

rowe_newsgroups wrote:

On Apr 13, 8:45 pm, "Cor Ligthert [MVP]" <[e-mail]>

>Peter Huang showed us this page some years ago it is VB6 however almost
VBNET

<http://groups.google.com/group/microsoft.public.dotnet.languages.vb/browse_frm/thread/ca986ed00301eed4/e55c97cf8131e8f5?lnk=st&q=&rnum=1#e55c97cf8131e8f5 >

>
What page?

<http://www.vbexplorer.com/VBExplorer/tips/src36.asp>

--
Greetings
Matthias

[Cor Ligthert [MVP]]

Darin,

Thanks,

Cor

"rowe_newsgroups" <ro********@yahoo.comschreef in bericht
news:11**********************@b75g2000hsg.googlegr oups.com...

On Apr 13, 8:45 pm, "Cor Ligthert [MVP]" <[e-mail]>
wrote:

>Darin,

Peter Huang showed us this page some years ago it is VB6 however almost
VBNET

Cor

"Darin" <darin_nospam@nospameverschreef in
berichtnews:eX**************@TK2MSFTNGP04.phx.gbl ...

Is there something in windows that will take a given set of numbers and
re-write them as words - such as for a check?

A friend wrote this macro for Excel and I didn't know if this was
something that could be written in VB.NET without excel.

Declare Sub Recibo Lib "dlltcast.dll" (cifra As Long, ByVal _
texto As String)

Function letras(minumero)

Dim texto As String * 255
Dim cifra As Long

texto = String(255, 0)
cifra = CLng(minumero)

Call Recibo(cifra, texto)

letras = texto

End Function

Darin

*** Sent via Developersdexhttp://www.developersdex.com***

>Peter Huang showed us this page some years ago it is VB6 however almost
VBNET

What page?

Thanks,

Seth Rowe

[Cor Ligthert [MVP]]

Matthias,

Thanks,

Cor

"Matthias Tacke" <Ma******@Tacke.deschreef in bericht
news:ev**********@news.albasani.net...

rowe_newsgroups wrote:

>On Apr 13, 8:45 pm, "Cor Ligthert [MVP]" <[e-mail]>

>>Peter Huang showed us this page some years ago it is VB6 however almost
VBNET

<http://groups.google.com/group/microsoft.public.dotnet.languages.vb/browse_frm/thread/ca986ed00301eed4/e55c97cf8131e8f5?lnk=st&q=&rnum=1#e55c97cf8131e8f5 >

>>
What page?

<http://www.vbexplorer.com/VBExplorer/tips/src36.asp>

--
Greetings
Matthias

[Darin]

I will have to look at the internal stuff since I already have this
working for english, but I need it in spanish, which writes their
numbers completely different.

Darin

*** Sent via Developersdex http://www.developersdex.com ***

[Matthias Tacke]

Darin wrote:

I will have to look at the internal stuff since I already have this
working for english, but I need it in spanish, which writes their
numbers completely different.

Hello Darin,

I found this site: <http://www.sf.airnet.ne.jp/~ts/language/number.html>
May be helpful for internationalization.

The English wikipedia stops with 10
<http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages>

The German one has less languages but 0-19, 20..100,
1000, 10.000, 100.000, 1.000.000, 1.000.000.000, 1.000.000.000.000
<http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen>

--
Greetings
Matthias