Access - Rutina para leer un valor

 
Vista:

Rutina para leer un valor

Publicado por Jose (4 intervenciones) el 16/06/2000 00:00:00
Hola a todos, desearia saber si alguien me puede ayudar con la rutina para que en un informe de acces se pueda leer el valor de un campo numerico y escribirlo. Ej: Valor..100, texto.. cien
gracias por anticipado
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:Rutina para leer un valor

Publicado por Christian Lasa (3 intervenciones) el 16/06/2000 00:00:00
Hola, en realidad no se si tenes algun objeto activex o OCX que te transforme de numero a texto.
Lo que te puedo recomendar (si los valores los tenes medianamente acotados ej. valores hasta 9999) es que generes una tabla con la descripcion de los numeros ej 1 uno, diez 10 , 100 cien, >100 ciento, etc.. y despues armar una rutina que arme la palabra completa.
Cualquier cosa mandame un mail condame como te fue o si necesitas ayuda con el codigo o si encontraste otra forma de hacerlo.
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:Rutina para leer un valor

Publicado por Isidro Almaguer (44 intervenciones) el 17/06/2000 00:00:00
Hola

te sugiero que hagas la conversion de numero a letra en el lado del codigo
y le pasas el campo con el texto al reporte, en estos sites y en otros hay muchas rutinas
que te convierten de nuemro a letra, es cuestion d ele busques un poco

te doy algunos lugraes donde puedes encontrar algo al respecto

www.codeguru.com
www.planetsource.com
www.download.com

en estos sites podras encotrar eso y mas


suerte..
saludos

Isidro Almaguer
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

La Solucion!!

Publicado por Rodrigo Fritz (11 intervenciones) el 22/09/2000 00:00:00
(Q) I´m looking to have Access convert the currency value "$531.20" into the text "Five hundred thirty one and twenty cents."

(A) Use the following function provided by Joe Foster to convert the Currency into English words.

´************ Code Start **********
´This code was originally written by Joe Foster.
´It is not to be altered or distributed,
´except as part of an application.
´You are free to use it in any application,
´provided the copyright notice is left unchanged.
´
´Code Courtesy of
´Joe Foster
´
´ Convert a currency value into an (American) English string
Function English (ByVal N As Currency) As String
Const Thousand = [email protected]
Const Million = Thousand * Thousand
Const Billion = Thousand * Million
Const Trillion = Thousand * Billion

If (N = [email protected]) Then English = "zero": Exit Function

Dim Buf As String: If (N < [email protected]) Then Buf = "negative " Else Buf = ""
Dim Frac As Currency: Frac = Abs(N - Fix(N))
If (N < [email protected] Or Frac <> [email protected]) Then N = Abs(Fix(N))
Dim AtLeastOne As Integer: AtLeastOne = N >= 1

If (N >= Trillion) Then
Debug.Print N
Buf = Buf & EnglishDigitGroup(Int(N / Trillion)) & " trillion"
N = N - Int(N / Trillion) * Trillion ´ Mod overflows
If (N >= [email protected]) Then Buf = Buf & " "
End If

If (N >= Billion) Then
Debug.Print N
Buf = Buf & EnglishDigitGroup(Int(N / Billion)) & " billion"
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