weergave milliseconden

Wim Bekker

unread,

Feb 13, 2003, 3:50:37 AM2/13/03

to

Hoi,

Ik wil graag de milliseconden van een datum/tijd weergeven. Hoe moet
dit?
Ik wil zoiets als 20030201 - 12:23:56.123, maar kom alleen tot:
jjjjmmdd - uu:mm:ss.???

Wim

Ingrid Baplue

unread,

Feb 13, 2003, 4:10:17 AM2/13/03

to

Vervang de vraagtekens door nullen.
Let wel op dat je het decimaal symbool gebruikt na de seconden.

Ingrid

Wim Bekker schreef in news:uiLtl3z0CHA.1624@TK2MSFTNGP11

Wim Bekker

unread,

Feb 13, 2003, 5:23:53 AM2/13/03

to

Als ik 'u:mm:ss.00' invoer krijg ik de foutmelding dat de getalnotatie
ongeldig is. Als ik een komma gebruik dan wordt de komma met de twee
nullen weergegeven.

"Ingrid Baplue" schreef

Ingrid Baplue

unread,

Feb 13, 2003, 7:14:13 AM2/13/03

to

Vermits je bij een punt een foutmelding gebruikt veronderstel ik dat op jouw
systeem een komma als decimaalsymbool is ingesteld. Met deze opmaak zou je
normaal moeten kunnen werken:

jjjjmmdd uu:mm:ss,000

Zorg er wel voor dat je ook milliseconden invoert, anders zal er wel
degelijk enkel nul staan na de komma.

Ingrid

Wim Bekker schreef in news:u8DHtr00CHA.2344@TK2MSFTNGP10

Frank

unread,

Feb 13, 2003, 2:39:47 PM2/13/03

to

Vaststelling bij weergave Milliseconden.
Heb oefeningetje op site: http://home.wxs.nl/~tidema/excel/les.html
Uitgeprobeerd en wou met de celopmaak de milliseconden uittesten maar die
blijft op 000 staan. Is dit een beperking in VBA?
Zet op elke sheet blad in cel A20 datum tijd ... volgens celeigenschap.
d/mm/jj u:mm:ss,000 als test had ik in A21 de formule nu() geplaatst en deze
geeft de Milliseconden.

Sub bereik()
Dim Teller As Integer
Dim AantalSheets As Integer
AantalSheets = Worksheets.Count
For Teller = 1 To AantalSheets
Sheets(Teller).Select
Range("A20").Value = Now
Next Teller
End Sub

Frank

"Ingrid Baplue" <ingrid_bap...@hotmail.com> schreef in bericht
news:b2g25v$1cmmn6$1...@ID-164731.news.dfncis.de...

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.449 / Virus Database: 251 - Release Date: 27/01/03

Ingrid Baplue

unread,

Feb 13, 2003, 2:58:24 PM2/13/03

to

Blijkbaar geeft de VBA-functie geen milliseconden, wat de werkbladfunctie
wel doet. Misschien kan je het zo oplossen:

Range("A20") = "=NOW()"
Range("A20").Copy
Range("A20").PasteSpecial xlPasteValues
Application.CutCopyMode = False

Ingrid

Frank schreef in news:7wS2a.17406$NO6.228...@hestia.telenet-ops.be

Frank

unread,

Feb 13, 2003, 3:22:22 PM2/13/03

to

Dat is ook weer in orde.

Sub bereik()
Dim Teller As Integer
Dim AantalSheets As Integer
AantalSheets = Worksheets.Count
For Teller = 1 To AantalSheets
Sheets(Teller).Select
'Range("A20").Value = Now

Range("A20") = "=NOW()"

Range("A20").Copy
Range("A20").PasteSpecial xlPasteValues
Application.CutCopyMode = False

Next Teller
End Sub

"Ingrid Baplue" <ingrid_bap...@hotmail.com> schreef in bericht

news:evHwqo50CHA.2564@TK2MSFTNGP12...

> Blijkbaar geeft de VBA-functie geen milliseconden, wat de werkbladfunctie
> wel doet. Misschien kan je het zo oplossen:
>
> Range("A20") = "=NOW()"
> Range("A20").Copy
> Range("A20").PasteSpecial xlPasteValues
> Application.CutCopyMode = False

---

Wim Bekker

unread,

Feb 17, 2003, 4:52:18 AM2/17/03

to

"Ingrid Baplue" schreef

> Zorg er wel voor dat je ook milliseconden invoert, anders zal er wel
> degelijk enkel nul staan na de komma.

Inderdaad, ik had een nul voor de milliseconden ingevoert.
Bedankt,
Wim