Numbers as Words

Collapse
This topic is closed.
X
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • Darin
    #1

    Numbers as Words

    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.d ll" (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 ***
    Tags: None
    • Cor Ligthert [MVP]
      #2
      Re: Numbers as Words

      Darin,

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

      Cor

      "Darin" <darin_nospam@n ospameverschree f in bericht
      news:eXTm6dhfHH A.1252@TK2MSFTN GP04.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.d ll" (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 ***

        Comment

        • rowe_newsgroups
          #3
          Re: Numbers as Words

          On Apr 13, 8:45 pm, "Cor Ligthert [MVP]" <notmyfirstn... @planet.nl>
          wrote:
          Darin,
          >
          Peter Huang showed us this page some years ago it is VB6 however almost
          VBNET
          >
          Cor
          >
          "Darin" <darin_nospam@n ospameverschree f in berichtnews:eXT m6dhfHHA.1252@T K2MSFTNGP04.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.d ll" (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 Developersdexht tp://www.developersd ex.com***
          Peter Huang showed us this page some years ago it is VB6 however almost
          VBNET
          What page?

          Thanks,

          Seth Rowe

            Comment

            • Rad [Visual C# MVP]
              #4
              Re: Numbers as Words

              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.d ll" (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

                Comment

                • Matthias Tacke
                  #5
                  Re: Numbers as Words

                  rowe_newsgroups wrote:
                  On Apr 13, 8:45 pm, "Cor Ligthert [MVP]" <notmyfirstn... @planet.nl>
                  >Peter Huang showed us this page some years ago it is VB6 however almost
                  >VBNET
                  <http://groups.google.c om/group/microsoft.publi c.dotnet.langua ges.vb/browse_frm/thread/ca986ed00301eed 4/e55c97cf8131e8f 5?lnk=st&q=&rnu m=1#e55c97cf813 1e8f5>
                  >
                  What page?
                  >
                  <http://www.vbexplorer. com/VBExplorer/tips/src36.asp>

                  --
                  Greetings
                  Matthias

                    Comment

                    • Cor Ligthert [MVP]
                      #6
                      Re: Numbers as Words

                      Darin,

                      Thanks,

                      Cor

                      "rowe_newsgroup s" <rowe_email@yah oo.comschreef in bericht
                      news:1176523932 .507581.286510@ b75g2000hsg.goo glegroups.com.. .
                      On Apr 13, 8:45 pm, "Cor Ligthert [MVP]" <notmyfirstn... @planet.nl>
                      wrote:
                      >Darin,
                      >>
                      >Peter Huang showed us this page some years ago it is VB6 however almost
                      >VBNET
                      >>
                      >Cor
                      >>
                      >"Darin" <darin_nospam@n ospameverschree f in
                      >berichtnews:eX Tm6dhfHHA.1252@ TK2MSFTNGP04.ph x.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.d ll" (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 Developersdexht tp://www.developersd ex.com***
                      >
                      >Peter Huang showed us this page some years ago it is VB6 however almost
                      >VBNET
                      >
                      What page?
                      >
                      Thanks,
                      >
                      Seth Rowe
                      >

                        Comment

                        • Cor Ligthert [MVP]
                          #7
                          Re: Numbers as Words

                          Matthias,

                          Thanks,

                          Cor

                          "Matthias Tacke" <Matthias@Tacke .deschreef in bericht
                          news:evqd9k$uev $1@news.albasan i.net...
                          rowe_newsgroups wrote:
                          >On Apr 13, 8:45 pm, "Cor Ligthert [MVP]" <notmyfirstn... @planet.nl>
                          >
                          >>Peter Huang showed us this page some years ago it is VB6 however almost
                          >>VBNET
                          >
                          <http://groups.google.c om/group/microsoft.publi c.dotnet.langua ges.vb/browse_frm/thread/ca986ed00301eed 4/e55c97cf8131e8f 5?lnk=st&q=&rnu m=1#e55c97cf813 1e8f5>
                          >
                          >>
                          >What page?
                          >>
                          <http://www.vbexplorer. com/VBExplorer/tips/src36.asp>
                          >
                          --
                          Greetings
                          Matthias

                            Comment

                            • Darin
                              #8
                              Re: Numbers as Words

                              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 ***

                                Comment

                                • Matthias Tacke
                                  #9
                                  Re: Numbers as Words

                                  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.n e.jp/~ts/language/number.html>
                                  May be helpful for internationaliz ation.

                                  The English wikipedia stops with 10
                                  <http://en.wikipedia.or g/wiki/List_of_numbers _in_various_lan guages>

                                  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.0 00
                                  <http://de.wikipedia.or g/wiki/Zahlen_in_unter schiedlichen_Sp rachen>

                                  --
                                  Greetings
                                  Matthias

                                    Comment

                                    Previous template Next
                                    Working...