Hallo

ik heb een bijzonder eenvoudige berekening maar toch zie ik niet hoe ik dit kan oplossen.

a = 0,5
b = 0,22
c = 0,435

De vergelijking is a * x = b * c
De opgave bereken x rekening houden met beduidende cijfers. De regel is dat bij producten en quotiënten de uitkomst moet genoteerd worden met het kleinst aantal beduidende cijfers (BC) van de opgave.

In mijn voorbeeld heeft a 1 BC, b heeft 2 BC en c heeft 3 BC.

De uitkomst x moet dus genoteerd worden met 1 BC

dus x = 0,1914 moet worden geschreven met 1BC en wordt dus 0,2 (klassiek afronden)

Enig idee hoe dit moet? Dank bij voorbaat.

Hallo popipipo

bedankt voor je snel antwoord.

Maar als ik voor a bijvoorbeeld 55 intik krijg ik -1 als het aantal BC terwijl dit 2 BC moet zijn. Kan je dit ook nog goed krijgen?

Beste

u heeft het goed begrepen en uw bestand werkt prima voor getallen kleiner dan nul.

Ik vroeg mij af of u ook het aantal BC kan berekenen voor getallen groter dan 0.

Bijvoorbeeld 12,16 heeft 4 BC maar uw berekening geeft 2 BC (de cijfers voor de komma tellen ook mee als BC)

Ik vraag om wat voorbeelden maar die krijg ik niet???Toch nog even verder gegaan.

Ik begreep uit je vraag dat je het aantal decimalen wilde bepalen hoe de uitkomst gerapporteerd moet worden.
Deze, begreep ik, moest gelijk zijn aan het kleinst aantal decimalen van de eerst 3 getallen.
Maar je wilt kennelijk toch iets anders, maar wat is mij onduidelijk.

12,0 is dus niet gelijk aan 12

Dat is dan lastig want excel ziet hier geen verschil in.Ik heb hier geen oplossing voor.

aljechin,

Dit komt niet van mij zelf, en ik ben ook niet zo vertrouwd met excel als jij en de andere helpers hier.
Maar test mogelijk deze functie eens uit, of die doet wat je wilt:

Function AantalBC(Getal As Double) As Integer
    Dim GetalString As String
    Dim i As Integer, Count As Integer

    ' Converteer getal naar string zonder wetenschappelijke notatie
    GetalString = Trim(Str(Getal))
    GetalString = Replace(GetalString, ".", "") ' Verwijder decimale punt indien aanwezig
    GetalString = Replace(GetalString, ",", "") ' Verwijder komma indien aanwezig

    ' Verwijder voorloopnullen
    i = 1
    While i <= Len(GetalString)
        If Mid(GetalString, i, 1) <> "0" Then Exit While
        i = i + 1
    Wend
    GetalString = Mid(GetalString, i)

    ' Tel alle significante cijfers
    Count = 0
    For i = 1 To Len(GetalString)
        If Mid(GetalString, i, 1) Like "#" Then
            Count = Count + 1
        End If
    Next i

    AantalBC = Count
End Function

Vragen hierover kan ik wel doorsturen.

Succes.

SoftAid