Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Check regional settings


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