Results for "Author: algen technologies"
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus
Updated to v1.1, Fixed few bugs. I always feel I loose a lot of time formating my msgbox strings. String Maker is a program that formats your "normal text" into a variable string usable in visual basic. Lets say, for example, you want a msgbox to show this: ------------------------------------- Warning: The "input" parameters found in the data size field can generate a general protection error ------------------------------------- String maker will format it for you to just copy and paste like this: MyString = "-------------------------------------" & vbNewLine MyString = MyString & " Warning:" & vbNewLine MyString = MyString & "The " & chr(34) & "input" & chr(34) & "parameters" & vbNewLine MyString = MyString & "found in the data size" & vbNewLine MyString = MyString & "field can generate a" & vbNewLine MyString = MyString & "general protection error" & vbNewLine MyString = MyString & "-------------------------------------" Then you could use it like: MsgBox mystring It also has the capability to create SQL table strings: MyString = "CREATE TABLE [tblThisTable] (" MyString = MyString & "[fldBinary] Binary(20)," MyString = MyString & "[fldBit] BIT," MyString = MyString & "[fildInteger] Short," MyString = MyString & "[fldText] Text(240)" MyString = MyString & ")" All you have to do is execute the string like dbobject.execute mystring. And, as always, it also shows the use of MDI projects, menus, tray icon, popup menu in the tray icon, selections, etc... You are allowed and encouraged to continue this project to grow its capabilities... just keep me informed. Thanx to the guy of the tray area control. Note that you must use the exit menu command to close the program, since pressing the X button in the window's controls will just send the program to the tray area... Pretty much like audiogalaxy. -Fongus
This module contains a function that will take a currency var (up to 999,999,999.99) and return the result (including cents) as a string "spelled-written" amount formated for mexican pesos. 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' Altrough it was made for mexican pesos, it can be easily adapted for any unit, in any language,in any way. There are lots of number2words functions out there, but I think mine is the more understandable ans simplier of 'em. You will have to spend some time converting the spanish numbers to english, thou... ---------------- Este modulo contiene una funcion que toma una variable de moneda(currency) (Hasta 999,999,999.99) y regresa la cantidad de forma escrita como String. (Incluye centavos) 'Public Function ConvierteNumeroALetra(Numero As Currency) As String' La cantidad escrita la regresa usando el formato de monto escrito en pesos mexicanos, usado en cheques, depositos, facturas, etc. Por ejemplo: $1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.) Los centavos se escriben siempre sobre cien, y M.N. significa Moneda Nacional. Si esto les sirve, haganmelo saber. -Fongus