Public Function Str2Int(s As String) As IntegerDim temp, ch As StringDim i, mult As Integer temp = si = 0mult = 1 While Len(temp) <> 0ch = Right(temp, 1)i = i + mult * (Asc(ch) - Asc("0"))mult = mult * 10temp = Left(temp, Len(temp) - 1)Wend Str2Int = iEnd Function
Function NumberToString(ByVal number As Double, ByVal masculino As Boolean) As String' By Francisco Castillo - september 2000.' Devuelve la representación textual del valor del nú-' mero ENTERO que se pasa como argumento, (100 =' "Cien"). El parámetro "masculino" será True cuando deban' ponerse terminaciones masculinas,(210 = doscientOs' diez), y False en caso contrario, (320 = trescientAs' veinte). El valor máximo del número es de' 999.999.999If number = 0 ThenNumberToString = "Cero"Exit FunctionEnd IfIf number < 0 Then ' Hacerlo positivo,number = number * -1End IfX = CStr(Fix(number)) ' ...entero,Do While Len(X) < 9 ' ...y de 9 cifras.X = "0" & XLoopa = ""' Grupos de 3 cifras, de atrás hacia adelante:For n = 7 To 1 Step -3' ?El grupo actual es cero?:If CInt(Mid(X, n, 3)) <> 0 Then' No.' Tratar casos especiales decena:Select Case CInt(Mid(X, n + 1, 2))Case 10a = "diez " & aCase 11a = "once " & aCase 11a = "once " & aCase 12a = "doce " & aCase 13a = "trece " & aCase 14a = "catorce " & aCase 15a = "quince " & aCase 16a = "dieciseis " & aCase 17a = "diecisiete " & aCase 18a = "dieciocho " & aCase 19a = "diecinueve " & aCase 20a = "veinte " & aCase 21If n > 1 Thena = "veintiun$ " & aElsea = "veintiun " & aEnd IfCase 22a = "veintidos " & aCase 23a = "veintitrés " & aCase 24a = "veinticuatro " & aCase 25a = "veinticinco " & aCase 26a = "veintiseis " & aCase 27a = "veintisiete " & aCase 28a = "veintiocho " & aCase 29a = "veintinueve " & aCase Else' Restantes casos; traducir unidad:Select Case CInt(Mid(X, n + 2, 1))Case 0Case 1Select Case nCase 7a = "y un$ " & aCase 4If masculino Thena = "y un " & aElsea = "y una " & aEnd IfCase 1a = "y un " & aEnd SelectCase 2a = "y dos " & aCase 3a = "y tres " & aCase 4a = "y cuatro " & aCase 5a = "y cinco " & aCase 6a = "y seis " & aCase 7a = "y siete " & aCase 8a = "y ocho " & aCase 9a = "y nueve " & aEnd Select' Traducir decena:Select Case CInt(Mid(X, n + 1, 1))Case 0Case 3a = "treinta " & aCase 4a = "cuarenta " & aCase 5a = "cincuenta " & aCase 6a = "sesenta " & aCase 7a = "setenta " & aCase 8a = "ochenta " & aCase 9a = "noventa " & aEnd SelectEnd Select' Prever caso "ciento y tres":If Left(a, 1) = "y" Thena = Right(a, Len(a) - 2)End If' Traducir centena:Select Case CInt(Mid(X, n, 1))Case 0Case 1If CInt(Mid(X, n + 1, 2)) = 0 Thena = "cien " & aElsea = "ciento " & aEnd IfCase 2a = "doscient$s " & aCase 3a = "trescient$s " & aCase 4a = "cuatrocient$s " & aCase 5a = "quinient$s " & aCase 6a = "seiscient$s " & aCase 7a = "setecient$s " & aCase 8a = "ochocient$s " & aCase 9a = "novecient$s " & a End SelectEnd If' Poner terminación del grupo anterior:' Puede haber quedado "y tres":If Left(a, 1) = "y" Thena = Right(a, Len(a) - 2)End If' Millones:If n = 4 ThenIf CInt(Left(X, 3)) = 1 Thena = "millón " & aElseIf CInt(Left(X, 3)) <> 0 Thena = "millones " & aEnd IfEnd IfElseIf n = 7 Then' Miles:If CInt(Mid(X, 4, 3)) = 1 Thena = "mil " & aElseIf CInt(Mid(X, 4, 3)) <> 0 Thena = "mil " & aEnd IfEnd IfEnd IfEnd If' Traducir género, "$" en el texto. Para el grupo de los' millones, se traduce siempre por masculino:If n = 1 Thenmasculino = TrueEnd IfPosic = 1Do While Posic <> 0Posic = InStr(a, "$")If Posic <> 0 Thenante = Left(a, Posic - 1)post = Right(a, Len(a) - Posic)If masculino Thena = ante & "o" & postElsea = ante & "a" & postEnd IfEnd IfLoopNext n' Caso especial: puede haber quedado "unx mil "If Left(a, 7) = "un mil " Thena = Right(a, Len(a) - 3)ElseIf Left(a, 8) = "una mil " Thena = Right(a, Len(a) - 4)End IfEnd If' Inicial en mayúsculas:NumberToString = Trim(UCase(Left(a, 1)) & Right(a, Len(a) - 1))End Function
请问online(龙卷风(白学了,重新充电中)) 老大 你编的这是什么东西啊?怎么测试结果不对啊!
字符串--->>>整数 Public Function Str2Int(s As String) As Integer 数字-->字符串 Function NumberToString(ByVal number As Double, ByVal masculino As Boolean) As String
是不是asc()函数了。
判断字母的大小写
在减去相应大小写字母a or A 的asc 码
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CVar(expression)
CStr(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。返回类型函数名称决定返回类型,如下所示:函数 返回类型 expression 参数范围
CBool Boolean 任何有效的字符串或数值表达式。
CByte Byte 0 至 255。
CCur Currency -922,337,203,685,477.5808 至922,337,203,685,477.5807。
CDate Date 任何有效的日期表达式。
CDbl Double 负数从 -1.79769313486232E308 至 -4.94065645841247E-324;正数从 4.94065645841247E-324 至 1.79769313486232E308。
CDec Decimal 零变比数值,即无小数位数值,为
+/-79,228,162,514,264,337,593,543,950,335。对于 28 位小数的数值,范围则为
+/-7.9228162514264337593543950335;最小的可能非零值是 0.0000000000000000000000000001。
CInt Integer -32,768 至 32,767,小数部分四舍五入。
CLng Long -2,147,483,648 至 2,147,483,647,小数部分四舍五入。
CSng Single 负数为 -3.402823E38 至 -1.401298E-45;正数为 1.401298E-45 至 3.402823E38。
CVar Variant 若为数值,则范围与 Double 相同;若不为数值,则范围与 String 相同。
CStr String CStr 返回值依据 expression 参数而定。
说明如果传递给函数的 expression 超过转换目标数据类型的范围,将发生错误。通常,在编码时可以使用数据类型转换函数,来体现某些操作的结果应该表示为特定的数据类型,而不是缺省的数据类型。例如,当单精度、双精度或整数运算发生的情况下,使用 CCur 来强制执行货币运算。应该使用数据类型转换函数来代替 Val,以使国际版的数据转换可以从一种数据类型转换为另一种。例如,当使用 Ccur 时,不同的小数点分隔符、千分位分隔符和各种货币选项,依据系统的区域设置都会被妥善识别。当小数部分恰好为 0.5 时,Cint 和 CLng 函数会将它转换为最接近的偶数值。例如,0.5 转换为 0、1.5 转换为 2。Cint 和 CLng 函数不同于 Fix 和 Int 函数,Fix 和
Int 函数会将小数部分截断而不是四舍五入。并且 Fix 和 Int 函数总是返回与传入的数据类型相同的值。使用 IsDate 函数,可判断 date 是否可以被转换为日期或时间。Cdate 可用来识别日期文字和时间文字,以及落入可接受的日期范围内的数值。当转换一个数字成为日期时,是将整数部分转换为日期,小数部分转换为从午夜起算的时间。CDate 依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置,则不能正确判断年、月、日的顺序。另外,长日期格式,若包含有星期的字符串,也不能被识别。CVDate 函数也提供对早期 Visual Basic 版本的兼容性。CVDate 函数的语法与 CDate 函数是完全相同的,不过,CVDate 是返回一个 Variant,它的子类型是 Date
,而不是实际的 Date 类型。因为现在已有真正的 Date 类型,所以 CVDate 也不再需要了。转换一个表达式成为 Date,再赋值给一个 Variant,也可以达到同样的效果。也可以使用这种技巧将其他真正的数据类型转换为对等的 Variant 子类型。注意 CDec 函数不能返回独立的数据类型,而总是返回一个 Variant,它的值已经被转换为 Decimal 子类型。
temp = si = 0mult = 1
While Len(temp) <> 0ch = Right(temp, 1)i = i + mult * (Asc(ch) - Asc("0"))mult = mult * 10temp = Left(temp, Len(temp) - 1)Wend
Str2Int = iEnd Function
End SelectEnd If' Poner terminación del grupo anterior:' Puede haber quedado "y tres":If Left(a, 1) = "y" Thena = Right(a, Len(a) - 2)End If' Millones:If n = 4 ThenIf CInt(Left(X, 3)) = 1 Thena = "millón " & aElseIf CInt(Left(X, 3)) <> 0 Thena = "millones " & aEnd IfEnd IfElseIf n = 7 Then' Miles:If CInt(Mid(X, 4, 3)) = 1 Thena = "mil " & aElseIf CInt(Mid(X, 4, 3)) <> 0 Thena = "mil " & aEnd IfEnd IfEnd IfEnd If' Traducir género, "$" en el texto. Para el grupo de los' millones, se traduce siempre por masculino:If n = 1 Thenmasculino = TrueEnd IfPosic = 1Do While Posic <> 0Posic = InStr(a, "$")If Posic <> 0 Thenante = Left(a, Posic - 1)post = Right(a, Len(a) - Posic)If masculino Thena = ante & "o" & postElsea = ante & "a" & postEnd IfEnd IfLoopNext n' Caso especial: puede haber quedado "unx mil "If Left(a, 7) = "un mil " Thena = Right(a, Len(a) - 3)ElseIf Left(a, 8) = "una mil " Thena = Right(a, Len(a) - 4)End IfEnd If' Inicial en mayúsculas:NumberToString = Trim(UCase(Left(a, 1)) & Right(a, Len(a) - 1))End Function
你编的这是什么东西啊?怎么测试结果不对啊!
Public Function Str2Int(s As String) As Integer
数字-->字符串
Function NumberToString(ByVal number As Double, ByVal masculino As Boolean) As String