Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 206
  • Last Modified:

International Program

I am trying to make my application support european number format that is a comma in place of a decimal
For that MSDN sugests using CDbl instead of val .However when i use cdbl it works fine on my pc but not on a system with it's regional settings set to german

It gives an error " Type Mismatch" error no. 13 as soon as the program is started


I have windows 200 pro and I have tried changing my regional settings to german from english united states.It works fine
0
gauravdhup
Asked:
gauravdhup
  • 5
  • 3
  • 3
  • +1
1 Solution
 
rovermCommented:
Take a look here:

http://www.thescarms.com/vbasic/dateformat.asp

It's how to detect it and use it!

D'Mzzl!
RoverM
0
 
appariCommented:
can you post the code?
0
 
rovermCommented:
Just click the link and download the zip file.
It's a complete project!

D'Mzzl!
RoverM
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
rovermCommented:
appari: Sorry, thought your comment was about mine .... ;-)
0
 
ruchir_khanduriCommented:
Hi gauravdhup,

CDbl() function gives type mismatch error is several cases. For example if you try CDbl("") it will give you the type mismatch error. So please check if the passed number is null! If it is then replace it with 0 (zero).

Moreover, to get the formatted number try to use Format function of VB. I hope it will work even on the German machine.

0
 
appariCommented:
0
 
gauravdhupAuthor Commented:
The code extract which is given below seems to be causing the problem
But why is it that it works fine on my machine

Perhaps you can help me by downoading the software which I have made and testing it on your

machine Once you have downloaded it send me an e-mail at hello2000g@yahoo.com and i will send

you the international update

http://members.tripod.com/gauravcreations/iumos.html


Form2.Text4.Text = CDbl(GetSetting(App.EXEName, "Monday", "Cost", 1.2))

If Text2.Text = 1 And CDbl(Text3.Text) >= CDbl(Form2.Text66.Text) And CDbl(Text3.Text) < 

CDbl(Form2.Text65.Text) Then
Text12.Text = Form2.Text63.Text
End If
Text1.Text = Text12.Text
Text7.Text = 0
Timer2.Enabled = False
Timer1.Enabled = True
End If


    totmcost = CDbl(prevresults4) + CDbl(Text50.Text)
    Text30.Text = totmcost
       
'load chart data
Open App.Path & "\01.ium" For Append As #1
Write #1, 0
Close #1

Open App.Path & "\01.ium" For Input As #1
Input #1, jan
Close #1
inmin3 = jan / 60
Text31.Text = inmin3


If Text2.Text = 1 And CDbl(Text3.Text) >= CDbl(Form2.Text66.Text) And CDbl(Text3.Text) < 

CDbl(Form2.Text65.Text) Then
Text11.Text = Form2.Text64.Text
Text12.Text = Form2.Text63.Text
Text51.Text = Text11.Text
Text52.Text = Text12.Text
End If

Text46.Text = CDbl(Text46.Text) + 1
Text49.Text = CDbl(Text49.Text) + 1
If CDbl(Text49.Text) = CDbl(Text51.Text) Then
Text50.Text = CDbl(Text52.Text) + CDbl(Text50.Text)
Text49.Text = 0
End If

  Open App.Path & "\netusage.ium" For Input As #1
    Input #1, prevresults
    Close #1
    Text8.Text = prevresults
    prevresults1 = CDbl(Text8.Text)
    totalresults = prevresults1 + CDbl(Text46.Text)
    inmin = totalresults / 60
0
 
appariCommented:
i don't know the exact reason but a simillar problem we faced when we were working for one of our french client. we solved it like this:

when reading from database (in DB the value is stored with a . as decimal separator) to convert it to French locale used val(value from DB) like val("1234566.45") returns 1234566,45

when updating to DB use str("1234566,45") returns 1234566.75

actually cdbl expects an expression which returns a numeric value. so if you try cdbl(1.2) on german locale it returns 1,2 after converting the decimal seperator.
0
 
gauravdhupAuthor Commented:
Do you find any problem with the code above
0
 
gauravdhupAuthor Commented:
Do you find any problem with the code above
0
 
gauravdhupAuthor Commented:
Do you find any problem with the code above
0
 
gauravdhupAuthor Commented:
Do you find any problem with the code above
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 5
  • 3
  • 3
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now