*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: vba rekenen met punt en komma  (gelezen 10179 keer)

0 leden en 1 gast bekijken dit topic.

Offline Moo

  • Ambassadeur
  • *****
  • Berichten: 1.165
  • Geslacht: Man
  • Waar het hart van vol is, loopt de tekst van over.
vba rekenen met punt en komma
« Gepost op: 10 februari 2008, 11:17:54 »
Ik doe een bewerking in een textbox met deze code:
Code: [Selecteer]
c.Offset(r, 26) = <KNIP lange reeks dezelfde code> + CDbl(Val(TextBox24.Value))) * 0.05 (vijf procent uit de som van een reeks textboxen.)
Dat werkt goed, maar ik gebruik dat resultaat in een andere berekening, deze:
Code: [Selecteer]
Label21 = CDbl((Val(TextBox6.Value)) - CDbl(Val(TextBox27.Value)))Dit geeft als resultaat geen cijfer na de komma, als ik de komma verander in een punt, dan werkt het goed.
Hoe los ik dit op? Dus, 10 min 2.5, wordt 8 en het moet 7.5 zijn.
Gelogd
ASRock P43 Pro/USB3, Intel 2 Quad cpu Q9550 2.83GHz, 2840 MHz, NVIDIA GeForce GTS 450, Win7 oem 64bit pre NL, Realtek, HD:1tb, 4 Gb DDR3, KIS, Firefox, Ms-Outlook 2007, Telenet

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: vba rekenen met punt en komma
« Reactie #1 Gepost op: 10 februari 2008, 11:25:10 »
Beste Moo   ;)

Heb je in de celeigenschappen bij getal de decimalen op 2 geplaatst.
Misschien dat het dan goed is, of via het icoontje bovenaan op meer decimalen klikken.

Groetjes Danny.  :)
Gelogd
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline Moo

  • Ambassadeur
  • *****
  • Berichten: 1.165
  • Geslacht: Man
  • Waar het hart van vol is, loopt de tekst van over.
Re: vba rekenen met punt en komma
« Reactie #2 Gepost op: 10 februari 2008, 11:54:23 »
Hi Danny, bedankt voor het snelle antwoord,  als ik de komma verander naar een punt, dan werkt het wel. In de knoop met het Amerikaans systeem zeker? De berekening met procenten geeft een komma, maar het aftrekken moet met een punt. (??)
Gelogd
ASRock P43 Pro/USB3, Intel 2 Quad cpu Q9550 2.83GHz, 2840 MHz, NVIDIA GeForce GTS 450, Win7 oem 64bit pre NL, Realtek, HD:1tb, 4 Gb DDR3, KIS, Firefox, Ms-Outlook 2007, Telenet

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: vba rekenen met punt en komma
« Reactie #3 Gepost op: 10 februari 2008, 12:04:55 »
Moo, VBA (en andere programmeertalen) zijn over het algemeen in het engels. Dit betekent dat je in je code alle instellingen e.d. moet gebruiken die in dat land gebruikelijk zijn.
In Amerika wordt de punt als decimaal-scheidingsteken gezien en de komma als duizendtal-scheidingsteken. Dit moet je dus op die manier gebruiken in je code. Pas bij het wegschrijven naar je sheet worden de locale eigenschappen overgenomen (uit de instellingen van Windows).

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline Moo

  • Ambassadeur
  • *****
  • Berichten: 1.165
  • Geslacht: Man
  • Waar het hart van vol is, loopt de tekst van over.
Re: vba rekenen met punt en komma
« Reactie #4 Gepost op: 10 februari 2008, 12:46:27 »
Kom ik er op de een of andere mannier uit? Heeft iemand een code om een aftreksom met een komma te maken?
Gelogd
ASRock P43 Pro/USB3, Intel 2 Quad cpu Q9550 2.83GHz, 2840 MHz, NVIDIA GeForce GTS 450, Win7 oem 64bit pre NL, Realtek, HD:1tb, 4 Gb DDR3, KIS, Firefox, Ms-Outlook 2007, Telenet

Offline ceasar

  • Ervaren lid
  • ***
  • Berichten: 293
  • Geslacht: Man
  • de soep eten als ze heet is
Re: vba rekenen met punt en komma
« Reactie #5 Gepost op: 14 februari 2008, 13:43:40 »
Moo,

ik moet er nog eens naar zoeken. maar het heeft met een functie te maken denk ik  ???

tot later

JC
 8)
Gelogd
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-3770K CPU @ 3.50GHz 3901
Z77X-UP5 TH-CF
AMD Radeon HD 7900 Series 4095MB 1024 x 768
Realtek High Definition Audio
Nr: 1 Model: WDC WD10 EARX-00N0YB0 SCSI Disk Device
Nr: 2 Model: INTEL SSDSC2CT120A3
C:\ NTFS 111,01GB 1,06GB 32 720MB
AV: Geen antivirus geïnstalleerd
FW: Windows Firewal Enabled: True

Offline ceasar

  • Ervaren lid
  • ***
  • Berichten: 293
  • Geslacht: Man
  • de soep eten als ze heet is
Re: vba rekenen met punt en komma
« Reactie #6 Gepost op: 04 augustus 2008, 11:33:28 »
Moo,

na lang zoeken heb ik hier de geschreven "Functie"

nl omzetten van punt en komma:

Function NumKomma(inhoud)
    inhoud2 = ""
    lengte = Len(inhoud)
    For i = 1 To lengte
        If Mid(inhoud, i, 1) <> "," Then
            inhoud2 = inhoud2 + Mid(inhoud, i, 1)
        Else
             inhoud2 = inhoud2 + "."
        End If
    Next
    NumKomma = Val(inhoud2)
End Function

dit was het, maar heb het toch gevonden

groeten

JC
 8)
Gelogd
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-3770K CPU @ 3.50GHz 3901
Z77X-UP5 TH-CF
AMD Radeon HD 7900 Series 4095MB 1024 x 768
Realtek High Definition Audio
Nr: 1 Model: WDC WD10 EARX-00N0YB0 SCSI Disk Device
Nr: 2 Model: INTEL SSDSC2CT120A3
C:\ NTFS 111,01GB 1,06GB 32 720MB
AV: Geen antivirus geïnstalleerd
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: vba rekenen met punt en komma
« Reactie #7 Gepost op: 04 augustus 2008, 20:39:20 »
ik zou dit dan doen

Code: [Selecteer]
Label21 = CDbl(replace(TextBox6.Value;",";".")) - CDbl(replace(TextBox27.Value;",";"."))
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional
Pagina's: [1]   Omhoog
 


www.combell.com