Visual Basic em Português

Muitos documentos oficiais requerem, além do valor em numérico, a descrição do valor por extenso. Por exemplo as facturas, notas de encomenda, cheques, etc. Não sei na verdade se é obrigatório mas um facto é que é quase sempre um requisito das aplicações.

Esta conversão obriga a um conjunto de cálculo e funções que chamam-se diversas vezes até construir o número completo.

Para efectuar esta conversão é apenas necessário copiar estas funções para o programa.

  ''' <summary>
  ''' Função principal que recolhe o valor e chama as duas funções
  ''' auxiliares para a parte inteira e para a parte decimal
  ''' </summary>
  ''' <param name="number">Número a converter para extenso (Euros)</param>
  Public Function NumberToEuro(ByVal number As Decimal) As String
    Dim cent As Integer
    Try

      ' se for = 0 retorna 0 eros
      If number = 0 Then
        Return "Zero Euros"
      End If

      ' Verifica a parte decimal, ou seja, os cêntimos
      cent = Decimal.Round((number - Int(number)) * 100, _
                           MidpointRounding.ToEven)

      ' Verifica apenas a parte inteira
      number = Int(number)

      ' Caso existam cêntimos
      If cent > 0 Then

        ' Caso seja 1 não coloca "euros" mas sim "euro"
        If number = 1 Then
          Return "Um Euro e " & getDecimal(cent) & "Cêntimos"
          ' Caso o valor seja inferior a 1 euro
        ElseIf number = 0 Then
          Return getDecimal(cent) & "Cêntimos"
        Else
          Return getInteger(number) & "Euros e " & _
              getDecimal(cent) & "Cêntimos"
        End If

      Else
        ' Caso seja 1 não coloca "euros" mas sim "euro"
        If number = 1 Then
          Return "Um Euro"
        Else
          Return getInteger(number) + "Euros"
        End If

      End If

    Catch ex As Exception
      Return String.Empty
    End Try

  End Function


  ''' <summary>
  ''' Função auxiliar - Parte decimal a converter
  ''' </summary>
  ''' <param name="number">Parte decimal a converter</param>
  Public Function getDecimal(ByVal number As Byte) As String
    Try

      Select Case number
        Case 0
          Return String.Empty
        Case 1 To 19
          Dim strArray() As String = _
              {"Um", "Dois", "Três", "Quatro", "Cinco", "Seis", _
              "Sete", "Oito", "Nove", "Dez", "Onze", _
              "Doze", "Treze", "Quatorze", "Quinze", _
              "Dezasseis", "Dezassete", "Dezoito", "Dezanove"}
          Return strArray(number - 1) & " "

        Case 20 To 99
          Dim strArray() As String = _
              {"Vinte", "Trinta", "Quarenta", "Cinquenta", _
              "Sessenta", "Setenta", "Oitenta", "Noventa"}

          If (number Mod 10) = 0 Then
            Return strArray(number \ 10 - 2) & " "
          Else
            Return strArray(number \ 10 - 2) & " e " & _
                getDecimal(number Mod 10) & " "
          End If
        Case Else
          Return String.Empty
      End Select

    Catch ex As Exception
      Return String.Empty
    End Try
  End Function


  ''' <summary>
  ''' Função auxiliar - Parte inteira a converter
  ''' </summary>
  ''' <param name="number">Parte inteira a converter</param>
  Public Function getInteger(ByVal number As Decimal) As String
    Try

      number = Int(number)

      Select Case number
        Case Is < 0
          Return "-" & getInteger(-number)
        Case 0
          Return ""
        Case 1 To 19
          Dim strArray() As String = _
              {"Um", "Dois", "Três", "Quatro", "Cinco", "Seis", _
              "Sete", "Oito", "Nove", "Dez", "Onze", "Doze", _
              "Treze", "Quatorze", "Quinze", "Dezasseis", _
              "Dezassete", "Dezoito", "Dezanove"}
          Return strArray(number - 1) & " "

        Case 20 To 99
          Dim strArray() As String = _
              {"Vinte", "Trinta", "Quarenta", "Cinquenta", _
              "Sessenta", "Setenta", "Oitenta", "Noventa"}

          If (number Mod 10) = 0 Then
            Return strArray(number \ 10 - 2)
          Else
            Return strArray(number \ 10 - 2) & " e " & _
                getInteger(number Mod 10)
          End If

        Case 100
          Return "Cem"

        Case 101 To 999
          Dim strArray() As String = _
             {"Cento", "Duzentos", "Trezentos", "Quatrocentos", _
                  "Quinhentos", "Seiscentos", "Setecentos", _
                  "Oitocentos", "Novecentos"}

          If (number Mod 100) = 0 Then
            Return strArray(number \ 100 - 1) & " "
          Else
            Return strArray(number \ 100 - 1) & " e " & _
                getInteger(number Mod 100)
          End If


        Case 1000 To 1999
          Select Case (number Mod 1000)
            Case 0
              Return "Mil"
            Case Is <= 100
              Return "Mil e " & getInteger(number Mod 1000)
            Case Else
              Return "Mil, " & getInteger(number Mod 1000)
          End Select


        Case 2000 To 999999
          Select Case (number Mod 1000)
            Case 0
              Return getInteger(number \ 1000) & "Mil"
            Case Is <= 100
              Return getInteger(number \ 1000) & "Mil e " & _
                  getInteger(number Mod 1000)
            Case Else
              Return getInteger(number \ 1000) & "Mil, " & _
                  getInteger(number Mod 1000)
          End Select


        Case 1000000 To 1999999
          Select Case (number Mod 1000000)
            Case 0
              Return "Um Milhão"
            Case Is <= 100
              Return getInteger(number \ 1000000) & "Milhão e " & _
                  getInteger(number Mod 1000000)
            Case Else
              Return getInteger(number \ 1000000) & "Milhão, " & _
                  getInteger(number Mod 1000000)
          End Select


        Case 2000000 To 999999999
          Select Case (number Mod 1000000)
            Case 0
              Return getInteger(number \ 1000000) & " Milhões"
            Case Is <= 100
              Return getInteger(number \ 1000000) & "Milhões e " & _
                  getInteger(number Mod 1000000)
            Case Else
              Return getInteger(number \ 1000000) & "Milhões, " & _
                  getInteger(number Mod 1000000)
          End Select


        Case 1000000000 To 1999999999
          Select Case (number Mod 1000000000)
            Case 0
              Return "Um Bilião"
            Case Is <= 100
              Return getInteger(number \ 1000000000) & "Bilião e " & _
                  getInteger(number Mod 1000000000)
            Case Else
              Return getInteger(number \ 1000000000) & "Bilião, " & _
                  getInteger(number Mod 1000000000)
          End Select


        Case Else
          Select Case (number Mod 1000000000)
            Case 0
              Return getInteger(number \ 1000000000) & "Mil Milhões"

            Case Is <= 100
              Return getInteger(number \ 1000000000) & "Mil Milhões e " & _
                  getInteger(number Mod 1000000000)
            Case Else
              Return getInteger(number \ 1000000000) & "Mil Milhões, " & _
                  getInteger(number Mod 1000000000)
          End Select
      End Select


    Catch ex As Exception
      Return String.Empty
    End Try
  End Function

Para fazer a conversão é apenas necessário:

  Private Sub Converte()

    Me.txtResultado.Text = NumberToEuro(Me.txtOrigem.Text)

  End Sub

Basicamente são apenas cálculos repetitivos para construir uma frase com base em um número. Poderá parecer complicado mas na verdade é bastante simples e útil.

PS: Como sempre, qualquer dúvida, comentário ou correcção ao artigo é sempre bem vinda!