Check regional settings
The following is reprinted for archival purposes from Gary Beene's Information Center, with permission from Mr. Beene himself.
Function CheckRegionalSettings() As Boolean
Dim i As Integer
Dim temp1 As String
'check for Regional Setting
ChDir App.Path
Open "temp.txt" For Output As #1
Dim s As Single
s = 12.23
Print #1, s
Close #1
Open "temp.txt" For Input As #1
Line Input #1, temp1
Close #1
i = InStr(temp1, "," )
If i <> 0 Then
CheckRegionalSettings = True
Else
CheckRegionalSettings = False
End If
end Function
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.