Mã nguồn PHP:
[COLOR=#000000]
[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]SoRaChu[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal NumCurrency [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Currency[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]String
[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]NumCurrency [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 Then
SoRaChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"không " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]273[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"ô" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]768[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"ng"
[/COLOR][COLOR=#007700]Exit Function
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
If [/COLOR][COLOR=#0000BB]NumCurrency [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]922337203685477[/COLOR][COLOR=#FF8000]# Then ' soì loìn nhaìt cua loai tieÌn
[/COLOR][COLOR=#0000BB]SoRaChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"không " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]273[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"ô" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]777[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"i " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]_
ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]273[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]432[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]803[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"c sô" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]769[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]" l " [/COLOR][COLOR=#0000BB]_
[/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]769[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"n h" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"n " '012,249,443,333,651"
Exit Function
End If
Static CharVND(9) As String, BangChu As String, I As Integer
Dim SoLe, SoDoi As Integer, PhanChan, Ten As String
Dim DonViTien As String, DonViLe As String
Dim NganTy As Integer, Ty As Integer, Trieu As Integer, Ngan As Integer
Dim Dong As Integer, Tram As Integer, Muoi As Integer, DonVi As Integer
DonViTien = ChrW(273) & "ô" & ChrW(768) & "ng"
DonViLe = "xu"
CharVND(1) = "mô" & ChrW(803) & "t "
CharVND(2) = "hai"
CharVND(3) = "ba"
CharVND(4) = "bô" & ChrW(769) & "n "
CharVND(5) = "n" & ChrW(259) & "m "
CharVND(6) = "sa" & ChrW(769) & "u "
CharVND(7) = "ba" & ChrW(777) & "y "
CharVND(8) = "ta" & ChrW(769) & "m "
CharVND(9) = "chi" & ChrW(769) & "n "
SoLe = Int((NumCurrency - Int(NumCurrency)) * 100)
PhanChan = Trim$(Str$(Int(NumCurrency)))
PhanChan = Space(15 - Len(PhanChan)) + PhanChan
NganTy = Val(Left(PhanChan, 3))
Ty = Val(Mid$(PhanChan, 4, 3))
Trieu = Val(Mid$(PhanChan, 7, 3))
Ngan = Val(Mid$(PhanChan, 10, 3))
Dong = Val(Mid$(PhanChan, 13, 3))
If NganTy = 0 And Ty = 0 And Trieu = 0 And Ngan = 0 And Dong = 0 Then
BangChu = "không " + DonViTien + " "
I = 5
Else
BangChu = ""
I = 0
End If
While I <= 5
Select Case I
Case 0
SoDoi = NganTy
Ten = "nga" & ChrW(768) & "n ty" & ChrW(777)
Case 1
SoDoi = Ty
Ten = "ty" & ChrW(777)
Case 2
SoDoi = Trieu
Ten = "triê" & ChrW(803) & "u"
Case 3
SoDoi = Ngan
Ten = "ngàn"
Case 4
SoDoi = Dong
Ten = DonViTien
Case 5
SoDoi = SoLe
'[/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DonViLe
Ten [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"le" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]771[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Select
[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]SoDoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 Then
Tram [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Int[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]SoDoi [/COLOR][COLOR=#007700]/ [/COLOR][COLOR=#0000BB]100[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Int[/COLOR][COLOR=#007700](([/COLOR][COLOR=#0000BB]SoDoi [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Tram [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]100[/COLOR][COLOR=#007700]) / [/COLOR][COLOR=#0000BB]10[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#0000BB]SoDoi [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Tram [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]100[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]10
BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]BangChu[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]BangChu[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]", "[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]_
IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Tram [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CharVND[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Tram[/COLOR][COLOR=#007700])) + [/COLOR][COLOR=#DD0000]" tr" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]259[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"m "[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#007700])
If [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Tram [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 Then
BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"l? "
[/COLOR][COLOR=#007700]Else
If [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 Then
BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]_
Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CharVND[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Muoi[/COLOR][COLOR=#007700])) + [/COLOR][COLOR=#DD0000]" m" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]432[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"i "[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"m" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]432[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]768[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"i "[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
If [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]5 Then
BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"l" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]259[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"m " [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "
[/COLOR][COLOR=#007700]Else
If [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 Then
BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"mô" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]803[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"t " [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "
[/COLOR][COLOR=#007700]Else
[/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CharVND[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]DonVi[/COLOR][COLOR=#007700])) + [/COLOR][COLOR=#DD0000]" " [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
Else
[/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]I [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]DonViTien [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]I [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]I [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1
Wend
[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]SoLe [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 Then
BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"ch" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]259[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]777[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"n)"
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]BangChu[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]UCase[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]BangChu[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]))
[/COLOR][COLOR=#0000BB]SoRaChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu
End [/COLOR][COLOR=#007700]Function
[/COLOR]
Bất kỳ Ô cần đọc số ra chữ bạn sử dụng công thức sau:
QUAN HỆ NHANH RA Ở NAM GIỚI LÀ GÌ? Quan hệ nhanh ra hay còn gọi là xuất tinh sớm, là hiện tượng xuất tinh trong khoảng thời gian quá ngắn bình thường là dưới 3 phút, nam giới không thể làm chủ, điều...
"Quan hệ nhanh ra" phái mạnh có nên kiêng rượu bia không?