Đọc điểm với 2 chữ số thập fân [Đưa bài dùm bạn] (1 người xem)

[ChanhTQ@]

Option Explicit
Function DocDiem(Number) As String
 Dim ArNum()
 Dim Nguyen As Long, TFan As Long, Ch As Byte

 ArNum = Array("không", "m" & ChrW(7897) & "t", "hai", "ba", "b" & ChrW(7889) & "n", _
    "n" & ChrW(259) & "m", "sáu", "b" & ChrW(7843) & "y", "tám", "chín", "m" & ChrW(432) & ChrW(7901) & "i")
 If Number <> "" Then Nguyen = Int(Number)
 TFan = ((Number - Nguyen) * 100) \ 1
 DocDiem = ArNum(Nguyen) & " ph" & ChrW(7849) & "y "
 If TFan < 10 Then
    If TFan Mod 10 > 0 Then
        DocDiem = DocDiem & "không" & ArNum(TFan)
    End If
 Else
    Ch = TFan \ 10
    Select Case TFan
    Case 10
        DocDiem = DocDiem & "m" & ChrW(7897) & "t"
    Case 11
        DocDiem = DocDiem & "m" & ChrW(432) & ChrW(7901) & "i m" & ChrW(7897) & "t"
    Case 15
        DocDiem = DocDiem & "m" & ChrW(432) & ChrW(7901) & "i l" & ChrW(259) & "m"
    Case Else
        If TFan Mod 10 = 1 Then
            DocDiem = DocDiem & ArNum(Ch) & " m" & ChrW(7889) & "t"
        ElseIf TFan Mod 10 = 5 Then
            DocDiem = DocDiem & ArNum(Ch) & " l" & ChrW(259) & "m"
        Else
            DocDiem = DocDiem & ArNum(Ch) & " " & ArNum(TFan Mod 10)
        End If
    End Select
 End If
End Function

 

[xuan_nam]

Nếu 10 mà đọc Mười phẩy thì không hay lắm. Có thể đọc lại thành mười tròn hoặc Mười, và viết tiếp thang điểm 20.

 

[ChanhTQ@]

Option Explicit
Function DocDiem(Number) As String
 Dim ArNum()
 Dim Nguyen As Long, TFan As Long, Ch As Byte

 ArNum = Array("không", "m" & ChrW(7897) & "t", "hai", "ba", "b" & ChrW(7889) & "n", _
    "n" & ChrW(259) & "m", "sáu", "b" & ChrW(7843) & "y", "tám", "chín", "m" & ChrW(432) & ChrW(7901) & "i")
 If Number <> "" Then Nguyen = Int(Number)
 TFan = ((Number - Nguyen) * 100) \ 1
 DocDiem = ArNum(Nguyen) & " ph" & ChrW(7849) & "y "
 If Number = 10 Or Number = 0 Then      '*'
    If Number > 9 Then
        DocDiem = "m" & ChrW(432) & ChrW(7901) & "i"
    Else
        DocDiem = "Không "
    End If
    DocDiem = DocDiem & " " & ChrW(273) & "i" & ChrW(7875) & "m."
    Exit Function
 End If                                 '*'
 If TFan < 10 Then
    If TFan Mod 10 > 0 Then
        DocDiem = DocDiem & "không" & ArNum(TFan)
    End If
 Else
    Ch = TFan \ 10
    Select Case TFan
    Case 10
        DocDiem = DocDiem & "m" & ChrW(7897) & "t"
    Case 11
        DocDiem = DocDiem & "m" & ChrW(432) & ChrW(7901) & "i m" & ChrW(7897) & "t"
    Case 15
        DocDiem = DocDiem & "m" & ChrW(432) & ChrW(7901) & "i l" & ChrW(259) & "m"
    Case Else
        If TFan Mod 10 = 1 Then
            DocDiem = DocDiem & ArNum(Ch) & " m" & ChrW(7889) & "t"
        ElseIf TFan Mod 10 = 5 Then
            DocDiem = DocDiem & ArNum(Ch) & " l" & ChrW(259) & "m"
        Else
            DocDiem = DocDiem & ArNum(Ch) & " " & ArNum(TFan Mod 10)
        End If
    End Select
 End If
End Function