ASP通貨資本化変換機能

推奨：中国語でのみ入力できる方法を制限する方法。
関数ischarsinbag（s、bag）{var i、c; for（i = 0; i s.length; i ++）{c = s.charat（i）; //文字列sの文字（bag.indexof（c）-1）return c; } 戻る ; }チェック関数：関数ischinese（s）{var errorchar; var badchar = abcdefghijklmnopqrst

'注：この関数は、数兆ドル未満の通貨変換に適しているため、Aの価値は最大2桁の場所になります

'漢字と数字が1つとして計算される2つの文字列を定義します

以下に定義されているように、string1としてdim string1

以下に定義されているように、string2としてdim string2

dim string3 as string ''値から撮影された値a value

Integer 'ループ変数としてDIM I

Integer 'Aの値としてのDim jは、100の文字列長を掛けた

dim ch1 as string '中国語の数字の読み物

文字列 '漢字の数値ビットの漢字の発音

整数としてdim nzero 'ゼロ以外の連続した数がいくつ使用されるかを計算するために使用されます

string1 = 012344444444444444444444444444444444444444444444444444444444444444444444444 444444444444444444444444444444444444444444444444444444444444444444444

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

'msgbox cstr（a * 100）

If strust（1、cstr（a * 100）、。）<> 0 then

err.raise 5000、この関数（atoc（））は、小数点の後に2桁以内に数値を変換できます！

ifを終了します

j = len（cstr（a * 100））

string2 = right（string2、j） '対応する数字のstring2の値を取り出します

i = 1からjの場合

string3 = mid（a * 100、i、1） '変換される特定のビットの値を取り出します

string3 <> 0の場合

ch1 = mid（string1、val（string3） + 1、1）

ch2 = mid（string2、i、1）

nzero = nzero + 1 'は、ベースがゼロではないことを意味します

それ以外

共有：ASPプログラミングの15の非常に便利な例（ii）
8。パスワード入力ダイアログボックスページ％応答の先頭にこの文を配置する。