truongquangtrong
Thành viên mới

- Tham gia
- 6/1/17
- Bài viết
- 37
- Được thích
- 0
Chào các bạn.
Mình đang tìm hiểu về ững dụng lập trình trên excel và muốn tham khảo ý kiến các bạn.
Trong bài tập ở đâ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
Xem thêm>>> https://internetvietnam.net/
ở 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 ạ??
Mình đang tìm hiểu về ững dụng lập trình trên excel và muốn tham khảo ý kiến các bạn.
Trong bài tập ở đâ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
Xem thêm>>> https://internetvietnam.net/
ở 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 ạ??

Lần chỉnh sửa cuối: