Jhonny Vargas P. - All Comments

re: Como convertir números a letras

ZNoralba — Fri, 31 Jul 2009 16:33:42 GMT

Hola... me encántó esta función y me sirvió de mucho, solo que no sé como eliminar la omisión del "DE" en algunos casos, como UN MILLON "DE" BOLÍVARES"

Gracias... por favor si me pueden ayudar envienme la solución a mi correo electrónico

znoralba@hotmail.com

Gracias nuevamente

re: Como convertir números a letras

Richard — Tue, 21 Jul 2009 15:04:10 GMT

Hola amigo espero que me ayuden... tengo una problema kisiera el siguiente script que funciona en MSSQL SERVER 2000 a un script MySQL 5.x:

Create Function dbo.Num2Text(@valor money)

returns varchar(500)

begin

declare @textoValor varchar(500)

Select @textoValor = Case when @valor = 0 then 'CERO'

when @valor = 1 then 'UN'

when @valor = 2 then 'DOS'

when @valor = 3 then 'TRES'

when @valor = 4 then 'CUATRO'

when @valor = 5 then 'CINCO'

when @valor = 6 then 'SEIS'

when @valor = 7 then 'SIETE'

when @valor = 8 then 'OCHO'

when @valor = 9 then 'NUEVE'

when @valor = 10 then 'DIEZ'

when @valor = 11 then 'ONCE'

when @valor = 12 then 'DOCE'

when @valor = 13 then 'TRECE'

when @valor = 14 then 'CATORCE'

when @valor = 15 then 'QUINCE'

when @valor < 20 then 'DIECI' + dbo.Num2Text(@valor - 10)

when @valor = 20 then 'VEINTE'

when @valor < 30 then 'VEINTI' + dbo.Num2Text(@valor - 20)

when @valor = 30 then 'TREINTA'

when @valor = 40 then 'CUARENTA'

when @valor = 50 then 'CINCUENTA'

when @valor = 60 then 'SESENTA'

when @valor = 70 then 'SETENTA'

when @valor = 80 then 'OCHENTA'

when @valor = 90 then 'NOVENTA'

when @valor < 100 then dbo.Num2Text(floor(@valor / 10) * 10) + ' Y ' + dbo.Num2Text(@valor % 10)

when @valor = 100 then 'CIEN'

when @valor < 200 then 'CIENTO ' + dbo.Num2Text(@valor - 100)

when @valor in (200, 300, 400, 600, 800) then dbo.Num2Text(floor(@valor / 100)) + 'CIENTOS'

when @valor = 500 then 'QUINIENTOS'

when @valor = 700 then 'SETECIENTOS'

when @valor = 900 then 'NOVECIENTOS'

when @valor < 1000 then dbo.Num2Text(floor(@valor / 100) * 100) + ' ' + dbo.Num2Text(@valor % 100)

when @valor = 1000 then 'MIL'

when @valor < 2000 then 'MIL ' + dbo.Num2Text(@valor % 1000)

when @valor < 1000000 then case when @valor % 1000 > 0

then dbo.Num2Text(floor(@valor / 1000)) + ' MIL' + ' ' + dbo.Num2Text(@valor % 1000)

else dbo.Num2Text(floor(@valor / 1000)) + ' MIL'

end

when @valor = 1000000 then 'UN MILLON'

when @valor < 2000000 then 'UN MILLON ' + dbo.Num2Text(@valor % 1000000)

when @valor < 1000000000000.0 then case when (@valor - floor(@valor / 1000000) * 1000000) > 0

then dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES ' + dbo.Num2Text(@valor - floor(@valor / 1000000) * 1000000)

else dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES '

end

when @valor = 1000000000000.0 then 'UN BILLON'

when @valor < 2000000000000.0 then 'UN BILLON ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)

else case when (@valor - floor(@valor / 1000000000000.0) * 1000000000000.0) > 0

then dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES'

else dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES' + ' ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)

end

return(@textoValor)

end

re: Convertir Número a Letras en C# - Por Gerardo

Noris — Sun, 19 Jul 2009 06:39:02 GMT

que buen codigo gracias=), me salvaste de tener q hacerlo

re: Como puedo convertir un Multi TIF a otro tipo de imagen (JPG, GIF, etc)

Jose Manuel Salcedo Gomez — Thu, 16 Jul 2009 14:56:31 GMT

Compadre EXCELENTE su aporte!!

Muchisimas gracias me ayudo a resolve un chicharroncito que tenia.

Aki les colaboro con el codigo en C#

Esto sirve para web tambien.

<code>

using System.Drawing.Imaging;

public string ConvertTifTo(string ArchivoTIF, string ArchivoIMG, ImageFormat Tipo )

{

int Item;

FrameDimension dimension;

System.Drawing.Image Imagen;

try

{

//Se carga el archivo TIF a un Image

Imagen = System.Drawing.Image.FromFile(ArchivoTIF);

dimension = new FrameDimension(Imagen.FrameDimensionsList[0]);

//Se realiza un ciclo para ver todas las imagenes que contiene la dimensión

for(Item = 0; Item < Imagen.GetFrameCount(dimension) - 1;Item++)

{

//Se activa la imagen del multitif en Image

Imagen.SelectActiveFrame(dimension, Item);

//Se Graba la imagen con el mismo nombre del multitiff

//más correlativo más la extensión del documento

Imagen.Save(ArchivoIMG + "_" + Item + "." + Tipo.ToString(), Tipo);

}

//'Se liberan los recursos

Imagen.Dispose();

Imagen = null;

return "";

}

catch(Exception ex)

{

return ex.Message;

}

</code>

re: Como convertir números a letras

Horacio — Sun, 12 Jul 2009 19:36:42 GMT

Estimados estoy tratando de implementar es fucnion en una base de Access que uso para facturar y no entiendo como hay que cargarla/hacerla funcionar. Si alguien me pudiese ayudar estare muy agradecido. Desde ya muchas gracias. Horacio

re: Como convertir números en asteriscos

Carol — Sun, 28 Jun 2009 23:28:09 GMT

hola necesito q me ayuden quiero convertir una contraseña en asteriscos

re: Como convertir números a letras

Walterizo — Sun, 28 Jun 2009 20:34:37 GMT

Me ahorro tiempo de programación, lo pase a MSSQL ya que lo necesitaba para la base de datos, el código sirve desde la versión 2000, les dejo el código convertido para una función

Create Function dbo.Num2Text(@valor money)

returns varchar(500)

begin

declare @textoValor varchar(500)

Select @textoValor = Case when @valor = 0 then 'CERO'

when @valor = 1 then 'UN'

when @valor = 2 then 'DOS'

when @valor = 3 then 'TRES'

when @valor = 4 then 'CUATRO'

when @valor = 5 then 'CINCO'

when @valor = 6 then 'SEIS'

when @valor = 7 then 'SIETE'

when @valor = 8 then 'OCHO'

when @valor = 9 then 'NUEVE'

when @valor = 10 then 'DIEZ'

when @valor = 11 then 'ONCE'

when @valor = 12 then 'DOCE'

when @valor = 13 then 'TRECE'

when @valor = 14 then 'CATORCE'

when @valor = 15 then 'QUINCE'

when @valor < 20 then 'DIECI' + dbo.Num2Text(@valor - 10)

when @valor = 20 then 'VEINTE'

when @valor < 30 then 'VEINTI' + dbo.Num2Text(@valor - 20)

when @valor = 30 then 'TREINTA'

when @valor = 40 then 'CUARENTA'

when @valor = 50 then 'CINCUENTA'

when @valor = 60 then 'SESENTA'

when @valor = 70 then 'SETENTA'

when @valor = 80 then 'OCHENTA'

when @valor = 90 then 'NOVENTA'

when @valor < 100 then dbo.Num2Text(floor(@valor / 10) * 10) + ' Y ' + dbo.Num2Text(@valor % 10)

when @valor = 100 then 'CIEN'

when @valor < 200 then 'CIENTO ' + dbo.Num2Text(@valor - 100)

when @valor in (200, 300, 400, 600, 800) then dbo.Num2Text(floor(@valor / 100)) + 'CIENTOS'

when @valor = 500 then 'QUINIENTOS'

when @valor = 700 then 'SETECIENTOS'

when @valor = 900 then 'NOVECIENTOS'

when @valor < 1000 then dbo.Num2Text(floor(@valor / 100) * 100) + ' ' + dbo.Num2Text(@valor % 100)

when @valor = 1000 then 'MIL'

when @valor < 2000 then 'MIL ' + dbo.Num2Text(@valor % 1000)

when @valor < 1000000 then case when @valor % 1000 > 0

then dbo.Num2Text(floor(@valor / 1000)) + ' MIL' + ' ' + dbo.Num2Text(@valor % 1000)

else dbo.Num2Text(floor(@valor / 1000)) + ' MIL'

end

when @valor = 1000000 then 'UN MILLON'

when @valor < 2000000 then 'UN MILLON ' + dbo.Num2Text(@valor % 1000000)

when @valor < 1000000000000.0 then case when (@valor - floor(@valor / 1000000) * 1000000) > 0

then dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES ' + dbo.Num2Text(@valor - floor(@valor / 1000000) * 1000000)

else dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES '

end

when @valor = 1000000000000.0 then 'UN BILLON'

when @valor < 2000000000000.0 then 'UN BILLON ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)

else case when (@valor - floor(@valor / 1000000000000.0) * 1000000000000.0) > 0

then dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES'

else dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES' + ' ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)

end

return(@textoValor)

end

re: Como convertir números a letras

Manuel — Wed, 24 Jun 2009 01:35:31 GMT

Excelente codigo de vino de maravillas. Solo estoy teniendo problemas con la parte de decimales, si alguien me da una mano se agradece!.

GRacias!!

re: Como convertir números a letras

Gustavo — Thu, 18 Jun 2009 17:36:32 GMT

Facil de usar, simplemente un exquisito codigo.

Gracias!!

re: Convertir Número a Letras en C# - Por Gerardo

pice Murphy — Tue, 16 Jun 2009 14:45:26 GMT

Hey... super buen aporte, muchas gracias!

re: Convertir Número a Letras en C# - Por Gerardo

Francisco Esguerra — Fri, 24 Apr 2009 00:45:06 GMT

Muy bueno, gracias

re: Como convertir números a letras

adriana rosales — Thu, 02 Apr 2009 20:32:28 GMT

hola la verdad no entiendo mucho de esto he estado intentando hacer la operacion en macros pero no tengo ni idea de como

no tengo muchos conocimientos de esto asi que ojala y me puedas ayuda a resolver paso a paso para instalar todo lo anterior gracias

re: Convertir Número a Letras en C# - Por Gerardo

Edwin Cartagena Hdez. - .SV — Mon, 30 Mar 2009 19:29:23 GMT

Graxias por compartir código y darnos una idea de mas o menos como va la cosa, para ver si se puede mejorar o tomar el kernel del algoritmo :)

Saludos.

re: Como convertir números a letras

MATEO — Wed, 11 Mar 2009 17:47:56 GMT

HOLA ME GUSTARIA SABER LA FORMULA PARA CONVERTIR LOS NUMEROS A LETRAS Y SI ESPOSIBLE CONVINARLO CON DECIMALES QUE APARESCAN 50/100

BANQFIOAX@POSADA.COM

GRACIAS POR LA INFORMACION

re: Como puedo convertir un Multi TIF a otro tipo de imagen (JPG, GIF, etc)

Oscar — Thu, 05 Mar 2009 22:58:28 GMT

hola yo soy nuevo en VB .NET y no se a donde tengo que colocar esta funcion ya que me si lo coloco dentro del class de mi formulario me tira cientos de errores y si lo coloco afuera de toda clase me dice Error:

Statement is not valid in a namespace.

podrias colocar un ejemplo completo de esta funcion???

Saludos cordiales y espero puedas ayudarme...

re: Como convertir números a letras

Azarel — Thu, 05 Mar 2009 03:42:42 GMT

Hola bueno estuve dandome de topoes al no poder usar sus codigos puesto que unos ponen un codigo y luego otro pone el mismo pero con diferentes variables y dicen que le agregaron no se que y ni si quiera ponen en donde ni como le hicieron miren yo hice esto, pruebenlo y si les sirve lo adecuan, para los centavos solo puse en lugar de un TextBox para los centavos, un MaskTextBox y lo adecue solo para que puedan introducir 2 numeros pueden usarlo con la misma funcion de los pesos obvio el masktextbox solo permite lo numeros que tu quieras asi me evite problemas:

Public Class Form1

Public Function Num2Text(ByVal value As Double) As String

Select Case value

Case 0 : Num2Text = "CERO"

Case 1 : Num2Text = "UN"

Case 2 : Num2Text = "DOS"

Case 3 : Num2Text = "TRES"

Case 4 : Num2Text = "CUATRO"

Case 5 : Num2Text = "CINCO"

Case 6 : Num2Text = "SEIS"

Case 7 : Num2Text = "SIETE"

Case 8 : Num2Text = "OCHO"

Case 9 : Num2Text = "NUEVE"

Case 10 : Num2Text = "DIEZ"

Case 11 : Num2Text = "ONCE"

Case 12 : Num2Text = "DOCE"

Case 13 : Num2Text = "TRECE"

Case 14 : Num2Text = "CATORCE"

Case 15 : Num2Text = "QUINCE"

Case Is < 20 : Num2Text = "DIECI" & Num2Text(value - 10)

Case 20 : Num2Text = "VEINTE"

Case Is < 30 : Num2Text = "VEINTI" & Num2Text(value - 20)

Case 30 : Num2Text = "TREINTA"

Case 40 : Num2Text = "CUARENTA"

Case 50 : Num2Text = "CINCUENTA"

Case 60 : Num2Text = "SESENTA"

Case 70 : Num2Text = "SETENTA"

Case 80 : Num2Text = "OCHENTA"

Case 90 : Num2Text = "NOVENTA"

Case Is < 100 : Num2Text = Num2Text(Int(value \ 10) * 10) & " Y " & Num2Text(value Mod 10)

Case 100 : Num2Text = "CIEN"

Case Is < 200 : Num2Text = "CIENTO " & Num2Text(value - 100)

Case 200, 300, 400, 600, 800 : Num2Text = Num2Text(Int(value \ 100)) & "CIENTOS"

Case 500 : Num2Text = "QUINIENTOS"

Case 700 : Num2Text = "SETECIENTOS"

Case 900 : Num2Text = "NOVECIENTOS"

Case Is < 1000 : Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)

Case 1000 : Num2Text = "MIL"

Case Is < 2000 : Num2Text = "MIL " & Num2Text(value Mod 1000)

Case Is < 1000000 : Num2Text = Num2Text(Int(value \ 1000)) & " MIL"

If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)

Case 1000000 : Num2Text = "UN MILLON"

Case Is < 2000000 : Num2Text = "UN MILLON " & Num2Text(value Mod 1000000)

Case Is < 1000000000000.0# : Num2Text = Num2Text(Int(value / 1000000)) & " MILLONES "

If (value - Int(value / 1000000) * 1000000) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000) * 1000000)

Case 1000000000000.0# : Num2Text = "UN BILLON"

Case Is < 2000000000000.0# : Num2Text = "UN BILLON " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)

Case Else : Num2Text = Num2Text(Int(value / 1000000000000.0#)) & " BILLONES"

If (value - Int(value / 1000000000000.0#) * 1000000000000.0#) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)

End Select

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim numero As Integer

Dim numero2 As Integer

If TextBox1.Text = "" Or TextBox2.Text = "" Then

MsgBox("Debe poner todos los datos, pesos y centavos", MsgBoxStyle.OkOnly, "Error")

Else

numero = TextBox1.Text

numero2 = TextBox2.Text

'Aqui la linea comentada pueden poner que los centavos aparezcan en numero & numero2 & , o que aparezcan en text solo cambien la linea = solo que en lugar de poner $ numero2 & "/100 M.N. " ponen Num2Texto(numero2) y listo, espero les sirva de algo =)

pesos.Text = Num2Text(numero) & " PESOS " & numero2 & "/100 M.N."

Me.Hide()

My.Forms.ImpresionHSBC.Show()

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Focus()

End Sub

End Class

re: Como convertir números a letras

jose miguel — Sat, 07 Feb 2009 05:16:29 GMT

Si, no se mucho de programacion, pero es que estoy haciendo unas facturas en exel, y no se como se hace para poner el codigo en exel para que en una casilla me salga en letras el TOTAL de la factura, GRACIAS POR LA AYUDA QUE ME PUEDAN BRINDAR

re: Como trabajar con Procedimientos Almacenados

christian — Fri, 23 Jan 2009 03:01:05 GMT

funciona con una base de daos Informix

Excelente

Leonarave — Fri, 16 Jan 2009 04:03:28 GMT

Muy bueno el código, tenía tiempo buscándolo.

re: Como rescatar el código fuente de una URL

oscaril — Thu, 08 Jan 2009 18:33:40 GMT

hola.

(estoy trabajando en Visual Basic Access)

tengo la respuesta guardada en una varible VARIANT el contenido de la respuesta desde una URL, como puedo hacer para convertir esa respuesta en fichero con formato XML para poderla importar a una tabla a posteriori?????

oscaril82@hotmail.com