Algarismos Romanos

[kuroi]

so to perguntando de curiosidade, nem to precisando no momento, mas sera q existe alguma funcao q retorna o valor de um numero em algarismos romanos?

tipo 67 = LXVII

[Graymalkin]

Não, não tem. Você precisaria criar uma (ou encontrar alguma já pronta na net).

Abraços,

Graymalkin

[ramon]

E em outras linguagens será existe está função?

[Graymalkin]

E em outras linguagens será existe está função?

Nunca vi tal função em nenhuma linguagem.

Abraços,

Graymalkin

[kuroi]

Você precisaria criar uma

...

fiz uma...

so q ficou meio zuada. tipo ela so aceita numero menor q 4999. é porque eu não sei como escrever alem disso. alias, pus 4000 com MMMM e não sei se ta certo. como escrevo 5000 por exemplo? onze mil seria MMMMMMMMMMM? e um milhao seriam mil emes?

a funcao é essa pra quem quiser:

Private Function Romanos(x As Variant) As String
Dim strMil As String, strCem As String, strDez As String, strUn As String
    Romanos = ""
    
    If Not IsNumeric(x) Then Exit Function
    If x < 1 Or x > 4999 Then Exit Function
    x = Conversion.CInt(x)
    
    strMil = "": strCem = "": strDez = "": strUn = ""
    
    strMil = Kuroi(x, 1000, "M", "MMM", "")
    strCem = Kuroi(x, 100, "C", "D", "M")
    strDez = Kuroi(x, 10, "X", "L", "C")
    strUn = Kuroi(x, 1, "I", "V", "X")
    
    Romanos = strMil & strCem & strDez & strUn
End Function
Private Function Kuroi(ByRef x As Variant, y As Integer, str1 As String, str2 As String, str3 As String) As String
Dim intCont As Integer
    Kuroi = ""
    
    If Int(x / y) = 4 Then
        Kuroi = str1 & str2
    ElseIf Int(x / y) = 9 Then
        Kuroi = str1 & str3
    Else
        For intCont = 1 To Int(x / y)
            Kuroi = IIf(intCont = 5, str2, Kuroi & str1)
        Next
    End If
    x = x - (Int(x / y) * y)
End Function

[Guest Visitante]

trinta e sete

[kuroi]

trinta e sete o que, está chapado??

[Guest Visitante]

como é o numero 79 em algarismos romanos?

[kuroi]

cara, usa minha funcao, fiz ela cum tanto carinho e apesar dela ter ficado ridicula ces bem que pudiam aproveitar.

mas 79 é LXXIX