overloop ??

[sylvester-ponte]

bij mij geeft dit :

Sub test()
    A = 24 * 60 * 60
End Sub

overloop .
en bij jullie?

 

[mvdvlist]

Maak er van:

A = "=24 * 60 * 60"

Waarbij A wel ergens naar moet verwijzen, b.v.

Sheets("Blad1").[A1] = "=24 * 60 * 60"

In dit geval is het cel A1 op blad1

 

[edmoor]

Zorg ervoor dat VBA automatisch een ander datatype dan Integer gebruikt voor een dergelijke berekening.
Probeer dit eens:

Sub test()
    A = 24# * 60 * 60
End Sub

Of:

Sub test()
    A = CLng(24) * 60 * 60
End Sub

 

[sylvester-ponte]

dank voor jullie oplossingen :thumb:
ik ben blij dat het niet aan mijn instellingen licht.

 

[edmoor]

Stukje uitleg bij mijn oplossing.

VBA doet over het algemeen bij berekeningen intern een impliciete conversie naar een juist datatype.
In het geval van je voorbeeld heeft 'ie even een zetje nodig.

De maximale waarde voor een Integer is 32767.
Jouw berekening levert een veel groter getal op, nl. 86400
Door de expliciete conversie met CLng wordt er een Long van gemaakt en gaat dat wel goed.

 

[sylvester-ponte]

wat dan wel vreemd is dat
Dim A as long
A=24*60*60
ook overloop veroorzaakt

 

[edmoor]

Dat komt dus door de foute impliciete berekening.
A is daar je uiteindelijke doel, maar het gaat daarvoor al mis.

 

[sylvester-ponte]

ik begrijp het , het gaat fout tijdens de berekening, niet bij de toekenning.

 

[edmoor]

Precies

 

[sylvester-ponte]

gaat het ook fout bij de nieuwere excel versies ?

 

[Piet Bom]

Bij Excel 2019 gaat het ook fout.
Met het #je achter 24 geeft het geen fout

 

[HSV]

evalueren.

a = [COLOR=#ff0000][[/COLOR]24 * 60 * 60[COLOR=#ff0000]][/COLOR]

 

[sylvester-ponte]

nogmaals bedankt