Code compatibility issue
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 |
Code compatibility issue
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" wrote in message ... 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 |
All times are GMT +1. The time now is 07:22 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com