Định dạng số

[tuhocvba]

Trong quá trình nhân bản đề hóa, mình gặp vấn đề như sau:
Số 0,175 => Để định dạng string
Chuyển ký tự này thành 0.175
Ép kiểu sang double.
Nhưng trên máy tính của người ta hiển thị kết quả là 175.
Sau khi tìm hiểu thì đây là do thiết định trong Window.

Bạn cần đăng nhập để thấy đính kèm

Đây là do thiết định máy tính của mình đang để Decimal là "." trong khi máy tính người dùng là "," .
Thiết định Win mọi người có thể tìm hiểu thêm ở đây:

https://www.engisv.info/?p=315

Tất nhiên mình không muốn phụ thuộc vào thiết định của Win cho nên đã tìm hiểu cách lấy thông tin trên máy tính này như sau:
Với Excel:

Dim Separator As String   
Separator = Application.decimalSeparator

Nguồn tham khảo:

http://www.vbaexpress.com/forum/showthread.php?57619-Thousands-and-Decimal-Separator-Check

Với Word :

Sub vv()
     Dim CorrectDecimalSeparator As String
     CorrectDecimalSeparator = Word.Application.International(wdDecimalSeparator)
     MsgBox CorrectDecimalSeparator
End Sub