Solved

International Program

Posted on 2001-08-30
12
193 Views
Last Modified: 2008-02-01
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
Comment
Question by:gauravdhup
  • 5
  • 3
  • 3
  • +1
12 Comments
 
LVL 12

Expert Comment

by:roverm
ID: 6441867
Take a look here:

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

It's how to detect it and use it!

D'Mzzl!
RoverM
0
 
LVL 39

Expert Comment

by:appari
ID: 6443184
can you post the code?
0
 
LVL 12

Expert Comment

by:roverm
ID: 6443758
Just click the link and download the zip file.
It's a complete project!

D'Mzzl!
RoverM
0
 
LVL 12

Expert Comment

by:roverm
ID: 6443760
appari: Sorry, thought your comment was about mine .... ;-)
0
 

Accepted Solution

by:
ruchir_khanduri earned 70 total points
ID: 6443980
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
 
LVL 39

Expert Comment

by:appari
ID: 6444001
0
Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

 

Author Comment

by:gauravdhup
ID: 6444172
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
 
LVL 39

Expert Comment

by:appari
ID: 6444681
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
 

Author Comment

by:gauravdhup
ID: 6446064
Do you find any problem with the code above
0
 

Author Comment

by:gauravdhup
ID: 6446066
Do you find any problem with the code above
0
 

Author Comment

by:gauravdhup
ID: 6446071
Do you find any problem with the code above
0
 

Author Comment

by:gauravdhup
ID: 6446075
Do you find any problem with the code above
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now