Recomendado: Como limitar o método que só pode ser inserido em chinês. função ischarsinbag (s, bolsa) {var i, c; for (i = 0; i s.length; i ++) {c = s.charat (i); // o caractere na string s if (bag.indexof (c) -1) retorna c; } retornar ; } Verificar função: função ischinês (s) {var errorcharchar; var Badchar = abcdefghijklmnopqrst
Função ATOC (A como moeda) como string'Nota: Esta função é adequada para conversões de moeda abaixo de trilhões de dólares, permitindo que o valor de A seja no máximo dois lugares decimais
'Defina duas cordas, onde caracteres e números chineses são calculados como um
Dim String1 como string ', conforme definido abaixo
Dim String2 como string ', conforme definido abaixo
Dim String3 como String 'Valor retirado do valor A original
Dim i como variáveis de loop inteiro '
Dim J como o valor de inteiro 'A multiplicado pelo comprimento da string de 100
Dim Ch1 como String 'Reading Chinese of Numbers
Dim Ch2 como pronúncia de caracteres chineses da String '
Dim nZero como número inteiro 'quantos números consecutivos diferentes de zero são usados para calcular
String1 = 012344444444444444444444444444444444444444444444444444444444444444444 4444444444444444444444444444444444444444444444444444444444444444444444
String2 = 10.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000
'Msgbox cstr (a * 100)
Se Instr (1, CSTR (A * 100) ,.) <> 0 Então
Err.ReSe 5000,, essa função (ATOC ()) só pode converter números dentro de dois dígitos após o ponto decimal!
Final se
J = len (cstr (a * 100))
String2 = Right (String2, J) 'Retire o valor de String2 do número correspondente de dígitos
Para i = 1 a j
String3 = MID (A * 100, i, 1) 'Retire o valor de um certo bit a ser convertido
Se string3 <> 0 então
CH1 = MID (String1, Val (String3) + 1, 1)
CH2 = MID (String2, i, 1)
nZero = nZero + 1 'significa que a base não é zero
Outro
Compartilhar: 15 exemplos muito úteis na programação ASP (ii) 8. Caixa de diálogo de entrada da senha de força para colocar esta frase no início da página % resposta.status = 401 Resposta não autorizada.END % 9 Como passar a variável de uma página para outra resposta Use o tipo oculto para passar a variável % formul
2 páginas no total Página anterior 12 Próxima página