Visual Basic - convertir numeros arabicos a romanos

Life is soft - evento anual de software empresarial
 
Vista:

convertir numeros arabicos a romanos

Publicado por jhonatan marino (38 intervenciones) el 02/06/2007 19:11:13
porfa quiseira saeber si alguien tiene el codigo para convertir numeros a romanos por ejemp 2=II, gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:convertir numeros arabicos a romanos

Publicado por Cecilia Colalongo (3117 intervenciones) el 02/06/2007 19:45:24
Fijate en:

http://www.vb-helper.com/howto_roman_arabic.html
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:convertir numeros arabicos a romanos

Publicado por Viejo (3 intervenciones) el 03/06/2007 13:18:38
También te puedes fijar en esto:

Const LETRAS As String = "I,V,X,L,C,D,M"

Private Function ConvertRomano(ByVal sArabigo As String) As String
If Len(sArabigo) > 3 Then ConvertRomano = String(Mid(sArabigo, 1, Len(sArabigo) - 3), "M")
If Len(sArabigo) > 2 Then ConvertRomano = ConvertRomano & BuscarLetra(Mid(sArabigo, Len(sArabigo) - 2, 1), 4)
If Len(sArabigo) > 1 Then ConvertRomano = ConvertRomano & BuscarLetra(Mid(sArabigo, Len(sArabigo) - 1, 1), 2)
ConvertRomano = ConvertRomano & BuscarLetra(Mid(sArabigo, Len(sArabigo), 1), 0)
End Function

Private Function BuscarLetra(ByVal sRomano As String, ByVal i As Integer) As String
Dim a() As String
a() = Split(LETRAS, ",")
Select Case sRomano
Case 4
BuscarLetra = a(i) & a(i + 1)
Case 5
BuscarLetra = a(i + 1)
Case 9
BuscarLetra = a(i) & a(i + 2)
Case 6 To 8
BuscarLetra = a(i + 1) & String(sRomano - 5, a(i))
Case Else
BuscarLetra = BuscarLetra + String(sRomano, a(i))
End Select
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar