/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Dato/tid med hundrededele sekunder
Fra : Tomas Christiansen


Dato : 20-09-01 09:37

Er der nogen som har et godt bud på hvordan jeg kan skaffe dato+tid med hundrededele sekunder.

Den indbyggede funktion Now(), giver kun en nøjagtighed på sekunder (og værdien ændrer sig faktisk kun én gang i sekundet).

-------
Tomas


 
 
@sbjørn (20-09-2001)
Kommentar
Fra : @sbjørn


Dato : 20-09-01 10:47

Jeg sender lige noget kode til dig
"Tomas Christiansen" <toc@blikroer.dk.removethis> wrote in message
news:9oc9r5$2n08$1@news.cybercity.dk...
> Er der nogen som har et godt bud på hvordan jeg kan skaffe dato+tid med
hundrededele sekunder.
>
> Den indbyggede funktion Now(), giver kun en nøjagtighed på sekunder (og
værdien ændrer sig faktisk kun én gang i sekundet).
>
> -------
> Tomas
>



Anders Lund (20-09-2001)
Kommentar
Fra : Anders Lund


Dato : 20-09-01 15:55

"@sbjørn" <asbjorn@caduceus.dk> skrev i en meddelelse
news:XViq7.1161$tm.36235@news000.worldonline.dk...
> Jeg sender lige noget kode til dig

Kan du ikke sende det til anders@itnews.dk også
--
Mvh
Anders Lund
anders@itnews.dk
---------------------------------------------------
Webmaster for www.GEnet.dk, Jyllands bedste netparty




Allan R. (20-09-2001)
Kommentar
Fra : Allan R.


Dato : 20-09-01 19:41

er der noget galt i at sende det hertil, jeg ville da også godt se koden !?!



Tomas Christiansen (20-09-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 20-09-01 20:13

@sbjørn skrev:
> Jeg sender lige noget kode til dig

Tak! Jeg har desværre ikke set det endnu, idet vores mail-gateways er
ret sippede (for at undgå virus, orm eller andet småkryb).

Jeg fandt dog noget selv lidt senere på dagen, og det vil jeg da gerne
lige vise her:

Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Dim t As SYSTEMTIME
GetLocalTime t
MsgBox .wYear & "-" & Format(.wMonth, "00") & "-" & _
Format(.wDay, "00") & " " & _
Format(.wHour, "00") & ":" & _
Format(.wMinute, "00") & ":" & _
Format(.wSecond, "00") & "." & _
Format(.wMilliseconds, "0000")

-------
Tomas


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste