<%

Function NumeroPorExtenso(ByVal num)
    Dim unidades, dezenas, centenas, milhares
    Dim extenso

    unidades = Array("", "um", "dois", "três", "quatro", "cinco", "seis", "sete", "oito", "nove", "dez", "onze", "doze", "treze", "catorze", "quinze", "dezesseis", "dezessete", "dezoito", "dezenove")
    dezenas = Array("", "", "vinte", "trinta", "quarenta", "cinquenta", "sessenta", "setenta", "oitenta", "noventa")
    centenas = Array("", "cem", "duzentos", "trezentos", "quatrocentos", "quinhentos", "seiscentos", "setecentos", "oitocentos", "novecentos")

    extenso = ""

    If num < 20 Then
        extenso = unidades(num)
    ElseIf num < 100 Then
        extenso = dezenas(Int(num / 10))
        If num Mod 10 > 0 Then
            extenso = extenso & " e " & unidades(num Mod 10)
        End If
    ElseIf num < 1000 Then
        If num = 100 Then
            extenso = "cem"
        Else
            extenso = centenas(Int(num / 100))
            If num Mod 100 > 0 Then
                extenso = extenso & " e " & NumeroPorExtenso(num Mod 100)
            End If
        End If
    ElseIf num < 1000000 Then
        extenso = NumeroPorExtenso(Int(num / 1000)) & " mil"
        If num Mod 1000 > 0 Then
            extenso = extenso & " e " & NumeroPorExtenso(num Mod 1000)
        End If
    End If

    NumeroPorExtenso = extenso
End Function

numero = request.form("vNumerodedias") ' Altere para o número que deseja converter
numeroExtenso = NumeroPorExtenso(numero)

%>