Mensajes

A ver cuando lo subo a otro host...!

a ver, fijate en este ejemplo... Hay mucho codigo en la web, solo debes buscar un poco...

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=53120&lngWId=1

Gracias por el modulo SSCCAANN43, creo que me servirá, estas respuestas no se obtienen el todos lo portales, digo en todos los foros... tal vez algunos users de este foro deberian visitar otros portales, digo foros (me equivoqué otra vez) y corregir algunos Horrores, digo errores... no ?

De nada, la idea es aportar y brindar apoyo a los demas usuarios...!

[Megaupload]

Haber si te sirve este es un ocx
Descarga

Megaupload
Descarga

La intención es no usar dependencias....

Freddy, pega esto en un Modulo Bas...

Código (vb) [Seleccionar] Expandir


Function MontoEscrito(Monto As Currency) As String

Dim AMT As String
Dim n As String
Dim m As String
Dim k As String
Dim L As String
Dim Rtn_String As String * 120

n = "Un    Dos   Tres  CuatroCinco Seis  Siete Ocho  Nueve "
m = "Diez      Once      Doce      Trece     Catorce   Quince    Dieciseis DiecisieteDieciocho Diecinueve"
k = "Veinte   Treinta  Cuarenta CincuentaSesenta  Setenta  Ochenta  Noventa  "
L = "Cien         Doscientos   Trescientos  CuatrocientosQuinientos   Seiscientos  Setecientos  Ochocientos  Novecientos  "

If Monto = 0 Then
  MontoEscrito = ""
  Exit Function
End If

AMT = Format(Monto, "000000000.00")
Rtn_String = ""

If Mid(AMT, 1, 1) = 1 Then     ' 100 - 900 MILLONES
  Rtn_String = Trim(Mid(L, ((Mid(AMT, 1, 1) - 1) * 13) + 1, 13))
  If Trim(Mid(AMT, 1, 3)) > "100" Then
     Rtn_String = Trim(Rtn_String) & "to"
  End If
ElseIf Mid(AMT, 1, 1) > 1 Then
  Rtn_String = Trim(Mid(L, ((Mid(AMT, 1, 1) - 1) * 13) + 1, 13))
End If

If Mid(AMT, 2, 1) = 1 Then     ' 10 - 99 MILLONES
  Rtn_String = Trim(Rtn_String) & " " & Mid(m, (Mid(AMT, 3, 1) * 10) + 1, 10)
ElseIf Mid(AMT, 2, 1) > 1 Then
  Rtn_String = Trim(Rtn_String) & " " & Mid(k, ((Mid(AMT, 2, 1) - 2) * 9) + 1, 9)
  If Mid(AMT, 3, 1) > 0 Then
     Rtn_String = Trim(Rtn_String) & " y " & Mid(n, ((Mid(AMT, 3, 1) - 1) * 6) + 1, 6)
  End If
ElseIf Mid(AMT, 3, 1) > 0 Then  ' 1 - 9 MILLONES
  Rtn_String = Trim(Rtn_String) & " " & Mid(n, ((Mid(AMT, 3, 1) - 1) * 6) + 1, 6)
End If

If Trim(Rtn_String) <> "" Then
  If Mid(AMT, 1, 3) > 1 Then
     Rtn_String = Trim(Rtn_String) & " Millones "
  Else
     Rtn_String = Trim(Rtn_String) & " Millón "
  End If
End If
 
If Mid(AMT, 4, 1) = 1 Then    ' 100 - 900 MIL
  Rtn_String = Trim(Rtn_String) & " " & Trim(Mid(L, ((Mid(AMT, 4, 1) - 1) * 13) + 1, 13))
  If Mid(AMT, 4, 3) > "100" Then
     Rtn_String = Trim(Rtn_String) & "to"
  End If
ElseIf Mid(AMT, 4, 1) > 1 Then
  Rtn_String = Trim(Rtn_String) & " " & Mid(L, (((Mid(AMT, 4, 1) - 1) * 13) + 1), 13)
End If

If Mid(AMT, 5, 1) = 1 Then      ' 10 - 19 Miles
  Rtn_String = Trim(Rtn_String) & " " & Mid(m, (((Mid(AMT, 6, 1)) * 10) + 1), 10)
ElseIf Mid(AMT, 5, 1) > 1 Then  ' 20 - 99 Miles
  Rtn_String = Trim(Rtn_String) & " " & Mid(k, (((Mid(AMT, 5, 1) - 2) * 9) + 1), 9)
  If Mid(AMT, 6, 1) > 0 Then   ' 2? - 9? Miles
     Rtn_String = Trim(Rtn_String) & " y " & Mid(n, (((Mid(AMT, 6, 1) - 1) * 6) + 1), 6)
  End If
ElseIf Mid(AMT, 6, 1) > 0 Then   ' 1  - 9 Miles
  Rtn_String = Trim(Rtn_String) & " " & Mid(n, (((Mid(AMT, 6, 1) - 1) * 6) + 1), 6)
End If

If Mid(AMT, 1, 6) <> "000000" And Mid(AMT, 4, 3) <> "000" Then
  Rtn_String = Trim(Rtn_String) & " Mil "
End If

If Mid(AMT, 7, 1) = 1 Then
  Rtn_String = Trim(Rtn_String) & " " & Mid(L, (((Mid(AMT, 7, 1) - 1) * 13) + 1), 13)
  If Trim(Mid(AMT, 7, 3)) > "100" Then
     Rtn_String = Trim(Rtn_String) & "to"
  End If
ElseIf Mid(AMT, 7, 1) > 1 Then
  Rtn_String = Trim(Rtn_String) & " " & Mid(L, (((Mid(AMT, 7, 1) - 1) * 13) + 1), 13)
End If

If Mid(AMT, 8, 1) = 1 Then
  Rtn_String = Trim(Rtn_String) & " " & Mid(m, ((Mid(AMT, 9, 1) * 10) + 1), 10)
ElseIf Mid(AMT, 8, 1) > 1 Then
  Rtn_String = Trim(Rtn_String) & " " & Mid(k, (((Mid(AMT, 8, 1) - 2) * 9) + 1), 9)
  If Mid(AMT, 9, 1) > 0 Then
     Rtn_String = Trim(Rtn_String) & " y " & Mid(n, (((Mid(AMT, 9, 1) - 1) * 6) + 1), 6)
  End If
ElseIf Mid(AMT, 9, 1) > 0 Then
  Rtn_String = Trim(Rtn_String) & " " & Trim(Mid(n, (((Mid(AMT, 9, 1) - 1) * 6) + 1), 6))
  If Mid(AMT, 9, 1) = 1 Then
     Rtn_String = Trim(Rtn_String) & "o"
  End If
End If

If Trim(Rtn_String) <> "" Then
  Rtn_String = Trim(Rtn_String) & " con "
End If

Rtn_String = Trim(Rtn_String) & " " & Mid(AMT, 11, 2) & "/100"


MontoEscrito = Rtn_String
End Function


Y para mostrarlo...

Código (vb) [Seleccionar] Expandir


Label1.Caption = MontoEscrito(CCur(Text1.Text))


Si alguien tiene una mejor manera de hacerlo, pues se aceptan aportes... Saludos

Presumo que si acceso a tú foro a insultar a un usuario sere tratado quizas igual o peor que como reaccione yo con la actitud de alex. Soy un hombre serio, de palabra y si tengo que reconocer un error lo reconozco. Pero aqui no he faltado yo. Aqui la falta la cometio tu compañero desde un principio. Y ya es hora de que este tema quede por terminado, el usuario que hizo el post acepto su error y la critica no la tomo destructiva más sin embargo si constructiva.

Si eres moderador en CPH, trata de crear conciencia en tus usuarios.

No tengo más que decir, agradezco a algun moderador que pueda cerrar el tema para no extenderlo.

Felíz tarde a todos!

Excelentes aportes Karcrack, sin embargo muchos usuarios o la gran mayoría tiene menos de un 50% de conocimientos en VB y les sería util si explicas en tus aportes la finalidad del source que posteas con el fin de que puedan comprender como usarlo.

Inno Setup, Setup Factory, entre otros... Por cierto esto es VB6.0 no .Net

Heyyy muy bueno, me gusto...! Lo adjunto a mi librería..

...

che scan, todo piolo, yo le pondria bordes con regiones, pero bueno no importa. despues, no existe esa ruta de registro (por lo menos en mi pc) y el programa no falla, ni nada. ahora, no se porque no existe.

en fin, debe ser q es win7, u otra version de msn, o que ya esta parcheada, no se.


El problema viene a raiz de que es 64 bits el sistema y esas rutas se mueven virtualmente a otra. El programa funciona igual, ningun cambio. perfecto
saludos

che coco, gracias por revisarlo... Saludos...!