{
BaoNhieu = Strings.Trim(BaoNhieu);
//Cat bỏ khoảng trống
while (Strings
.InStr(1, BaoNhieu,
" ") > 0) { BaoNhieu = Strings.Mid(BaoNhieu, 1, Strings.InStr(1, BaoNhieu, " ") - 1) + Strings.Mid(BaoNhieu, Strings.InStr(1, BaoNhieu, " ") + 1);
}
while (Strings
.InStr(1, BaoNhieu,
".") > 0) { BaoNhieu = Strings.Mid(BaoNhieu, 1, Strings.InStr(1, BaoNhieu, ".") - 1) + Strings.Mid(BaoNhieu, Strings.InStr(1, BaoNhieu, ".") + 1);
}
}
//================================================= ====
//Hàm này dùng để đổi tiền từ số sang chuẩn
//================================================= ====
{
Hang = Array("None", "trăm", "mươi", "gì đó");
Donvi = Array("None", "ngàn tỷ", "tỷ", "triệu", "ngàn", "đồng", "");
Dem = Array("None", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám", "chín"
);
//Đưa số về dạng chuẩn ko có dấu phân cách
dai = Strings.len(sotien);
Ketquacc = "Không đồng";
}
// sotien khác 0
sotien = Abs(sotien) + ".00";
sotien = Strings.Right(Strings.Space(15) + sotien, 18);
// Lay tong cong 18 ky tu
for (n
= 1; n
<= 6; n
++) { Nhom = Strings.Mid(sotien, (n * 3) - 2, 3);
if (Nhom
!= Strings
.Space(3)) { chu = "đồng" + Strings.Space(1);
}
chu = Strings.Space(0);
}
chu = "";
S1 = Strings.Left(Nhom, 1);
S2 = Strings.Mid(Nhom, 2, 1);
S3 = Strings.Right(Nhom, 1);
chu = Strings.Space(0);
Hang(3) = Donvi(n);
for (K
= 1; K
<= 3; K
++) { dich = Strings.Space(0);
if ((Strings
.Mid(Nhom, K,
1) != " ")) { S
= (int)Strings
.Mid(Nhom, K,
1); dich = Dem(S) + Strings.Space(1) + Hang(K) + Strings.Space(1);
}
if ((K
== 1) & (n
> 1) & (n
< 6)) { dich = "không" + Strings.Space(1) + Hang(K) + Strings.Space(1);
}
}
dich = "mười" + Strings.Space(1);
case 3 & S
== 0 & Nhom
!= Strings
.Space(2) + "0": dich = Hang(K) + Strings.Space(1);
case 3 & S
== 5 & s2
!= Strings
.Space(1) & s2
!= "0": dich = "l" + Strings.Mid(dich, 2);
case 2 & S
== 0 & S3
!= "0": if ((S1
>= "1" & S1
<= "9") | (S1
== "0" & n
== 5)) { dich = "lẻ" + Strings.Space(1);
}
}
// Của K
chu = chu + dich;
}
//Của S khác " "
}
//K
Vitri = Strings.InStr(chu, "mươi một");
chu = Thaythechuoi(chu, "mươi một", "mươi mốt");
}
Ketqua = Ketqua + chu;
}
}
}
// Của n
}
Ketquacc = Strings.UCase(Strings.Left(Ketqua, 1)) + Strings.Trim(Strings.Mid(Ketqua, 2));
if (Strings
.Instr(Ketquacc,
"đồng") == 0) { Ketquacc = Ketquacc + " đồng";
}
}