dấu dot và comma trong kiểu dữ liệu currency (1 người xem)

[banchieurach]

ở đây có 2 cú pháp trích từ trong sách của tác giả nước ngoài:

cú pháp 1

Sub Conversion()
Dim curA As Currency
Dim curB As Currency
Dim curC As Currency
curA = "78.8" 'result: curA = 78.8
curB = "78,8" 'result: curB = 78.8
curC = "78;8" 'result is absent
End Sub

ở dòng curA = "78.8" 'result: curA = 78.8 thì đúng nhưng qua dòng curB = "78,8" 'result: curB = 78.8 thì kết quả của em là 788 mà theo như comment tác giả khẳng định nó là 78.8.

Cú pháp 2

Sub Functions()
Dim intN As Integer
Dim strN As String
Dim curN As Currency
intN = -15
strN = Str(intN) 'result: strN = "-15"
strN = CStr(intN) 'result: strN = "-15"
intN = 15 '8th operator
strN = Str(intN) '9th operator
'result: strN = " 15"
strN = CStr(intN) '10th operator
'result: strN = "15"
curN = 25.5 '11th operator
intN = 1 + CInt(curN) '12th operator
'result: intN = 27
intN = CInt(1 + curN) '13th operator
'result: intN = 26
intN = CInt("78.8") '14th operator
'result: intN = 79
intN = CInt("78,8") '15th operator
'result: intN = 79
End Sub

ở dòng intN = CInt("78,8") '15th operator 'result: intN = 79 tác giả khẳng định nó là 79 trong khi kết quả của e làm 788.

Có phải do cách lựa chọn dấu thập phân từ đầu của tác giả là dấu , thay vì dấu . nên vậy không? Có ai giải thích em hiểu được không ạ