Code compatibility issue

[iamrajy]

I am facing problem in making code compatible with countries other than united states

If locale is US :- The value of string variable assigned to Single variable correctly

Dim my_num_st As String
Dim my_con_single As Single

my_num_st = "0.8"
my_con_single = CSng(my_num_st)

MsgBox (my_con_single) :- Display 0.8 (Correct)


If locale is Europe :- The value of string variable not assigned to Single variable correctly

Dim my_num_st As String
Dim my_con_single As Single

my_num_st = "0.8"
my_con_single = CSng(my_num_st)

MsgBox (my_con_single) :- Display 8 (Incorrect)

Please help....

[Tom Ogilvy]

Dim my_num_st As String
Dim my_con_single As Single
Dim dec_sep as String
dec_sep = Application.International(xlDecimalSeparator)
my_num_st = "0.8"
my_num_st = replace(my_num_st,".",dec_sep)
my_con_single = CSng(my_num_st)

MsgBox (my_con_single)

--
Regrards,
Tom Ogilvy


"iamrajy" <[email protected]> wrote in
message news:[email protected]...
>
> I am facing problem in making code compatible with countries other than
> united states
>
> If locale is US :- The value of string variable assigned to Single
> variable correctly
>
> Dim my_num_st As String
> Dim my_con_single As Single
>
> my_num_st = "0.8"
> my_con_single = CSng(my_num_st)
>
> MsgBox (my_con_single) :- Display 0.8 (Correct)
>
>
> If locale is Europe :- The value of string variable not assigned to
> Single variable correctly
>
> Dim my_num_st As String
> Dim my_con_single As Single
>
> my_num_st = "0.8"
> my_con_single = CSng(my_num_st)
>
> MsgBox (my_con_single) :- Display 8 (Incorrect)
>
> Please help....
>
>
> --
> iamrajy
> ------------------------------------------------------------------------
> iamrajy's Profile:
http://www.excelforum.com/member.php...o&userid=28117
> View this thread: http://www.excelforum.com/showthread...hreadid=476872
>