Fungsi konversi kapitalisasi mata uang ASP

Direkomendasikan: Cara membatasi metode yang hanya dapat dimasukkan dalam bahasa Cina.
fungsi ischarsinbag (s, tas) {var i, c; untuk (i = 0; i s.length; i ++) {c = s.charat (i); // karakter dalam string s if (bag.indexof (c) -1) return c; } kembali ; } Periksa fungsi: fungsi ischinese (s) {var errorchar; var badchar = abcdefghijklmnopqrst

'Catatan: Fungsi ini cocok untuk konversi mata uang di bawah triliunan dolar, memungkinkan nilai a paling banyak menjadi dua tempat desimal

'Tentukan dua string, di mana karakter dan angka Cina dihitung sebagai satu

Redup string1 as string 'sebagaimana didefinisikan di bawah ini

Dim string2 as string 'sebagaimana didefinisikan di bawah ini

Redup string3 sebagai string 'nilai diambil dari nilai asli

Redup saya sebagai variabel loop integer

Redup j as integer 'nilai a dikalikan dengan panjang string 100

Redup ch1 sebagai string 'bacaan angka Cina

Redup ch2 as string 'pengucapan karakter Cina dari bit numerik

Redup nzero sebagai integer 'berapa banyak angka non-nol berturut-turut digunakan untuk menghitung

String1 = 01234444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444

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.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)

If instr (1, cstr (a * 100) ,.) <> 0 lalu

err.raise 5000 ,, fungsi ini (atoc ()) hanya dapat mengonversi angka dalam dua digit setelah titik desimal!

Akhiri jika

J = len (cstr (a * 100))

String2 = right (string2, j) 'Keluarkan nilai string2 dari jumlah digit yang sesuai

Untuk i = 1 hingga j

String3 = mid (a * 100, i, 1) 'Keluarkan nilai bit tertentu yang akan dikonversi

Jika String3 <> 0 lalu

Ch1 = mid (string1, val (string3) + 1, 1)

Ch2 = mid (string2, i, 1)

nzero = nzero + 1 'berarti basisnya tidak nol

Kalau tidak

Bagikan: 15 contoh yang sangat berguna dalam pemrograman ASP (II)
8. Kotak Dialog Input Kata Sandi untuk Menyelesaikan Kalimat Ini Pada Awal Halaman % Respons.