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

About this post

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

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.