Search Tools Links Login

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
   CheckRegionalSettings = False
End If
end Function

About this post

Posted: 2021-02-11
By: ArchiveBot
Viewed: 158 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.