Opgelost Oplossing Sub FormatDates2()

[Georgyboy]

Goeiedag,
Mag ik hier een vraag stellen of moet dit via een nieuwe vraag?

Mijn vraag is op het antwoord van Snb #3 om het resultaat via VBA in Excel te zien.

Oplossing Sub FormatDates1()

Kolom E	Kolom F	Kolom G
MsgBox CDbl(Now)	16/12/2023	16/12/2023​
MsgBox CDec(Now)	16/12/2023	16/12/2023​
MsgBox CSng(Now)	16/12/2023	16/12/2023​
MsgBox CLng(Now)	16/12/2023	17/12/2023​
MsgBox 1 * Now	16/12/2023	16/12/2023​
MsgBox Now / 1	16/12/2023	16/12/2023​
MsgBox Now ^ 1	16/12/2023	16/12/2023​
MsgBox --Now	16/12/2023	16/12/2023​
MsgBox CVar(Now)	16/12/2023	16/12/2023​
MsgBox Str(Now)	16/12/2023	16/12/2023​
MsgBox Abs(Now)	16/12/2023	16/12/2023​
MsgBox Fix(Now)	16/12/2023	16/12/2023​
MsgBox Int(Now)	16/12/2023	16/12/2023​
MsgBox Val(Now)	16/12/2023	15/01/1900​

Oplossing Sub FormatDates2()

Kolom E	Kolom F	Kolom G
MsgBox CDbl(Now)	16/12/2023	16/12/202316bl(0o7)
MsgBox CDec(Now)	16/12/2023	16/12/202316e16/12/2023(0o7)
MsgBox CSng(Now)	16/12/2023	16/12/202300g(0o7)
MsgBox CLng(Now)	16/12/2023	16/12/2023L0g(0o7)
MsgBox 1 * Now	16/12/2023	1 0o7
MsgBox Now / 1	16/12/2023	0o7 / 1
MsgBox Now ^ 1	16/12/2023	0o7 ^ 1
MsgBox --Now	16/12/2023	--0o7
MsgBox CVar(Now)	16/12/2023	16/12/2023Var(0o7)
MsgBox Str(Now)	16/12/2023	0tr(0o7)
MsgBox Abs(Now)	16/12/2023	Ab0(0o7)
MsgBox Fix(Now)	16/12/2023	Fix(0o7)
MsgBox Int(Now)	16/12/2023	I0t(0o7)
MsgBox Val(Now)	16/12/2023	Val(0o7)

Neem aan dat dit niet (helemaal) correct is?

Alvast bedankt!

 

[huijb]

Je vraag een eigen plek gegeven. Je weet vast wel na 17 jaar dat het niet gewenst is om in iemand zijn topic jouw vraag te plaatsen.

 

[Georgyboy]

Mijn excuses, helemaal fout van mij!
Mag ik deze vraag alsnog in een een topic plaatsen en kan mijn vraag hier worden verwijderd?

Nogmaals excuses

 

[snb]

Het is volledig correct.
Het is alleen anders dan jij verwacht, omdat je een denkfout maakt.

 

[Georgyboy]

Inderdaad correct! leer iedere dag, ook van mijn fouten.

Wilde het doen via VBA zonder iedere keer de uitkomst in de MsgBox te zien.
Even enkele in Excel geplaatst om beter te begrijpen.

	16/12/2023 18:53​
CDbl(Now) wordt CDubbel(Nu)			= CDubbel(Nu)
CDec(Now) wordt CDecimaal(Nu)			= CDecimaal(Nu)
CSng(Now) wordt CEenkel(Nu)			= CEenkel(Nu)
CLng(Now) wordt CLang(Nu)			= CLang(Nu)
1 * Now wordt 1 * Nu	45276,78749​	=NU()*1	= 1 * Nu
Now / 1 wordt Nu / 1	45276,78749​	=NU()/1	= Nu / 1
Now ^ 1 wordt Nu ^ 1	45276,78749​	=NU()^1	= Nu ^ 1
–Now wordt --Nu	16/12/2023 18:53​	=NU()	= --Nu
CVar(Now) wordt CVariabele(Nu)			= CVariabele(Nu)
Str(Now) wordt Tekst(Nu)			= Tekst(Nu)
Abs(Now) wordt Abs(Nu)			= Abs(Nu)
Fix(Now) wordt AfrondenBeneden(Nu)	45276​	=AFRONDEN.BENEDEN(E1;1)	= AfrondenBeneden(Nu)
Int(Now) wordt Geheel(Nu)			= Geheel(Nu)
Val(Now) wordt Getal(Nu			= Getal(Nu