Millisecondes depuis 1970Résolu

Question

Existe t-il en vb une fonction qui permette de déterminer le nb de millisecondes écoulées depuis 1970... comme le fait Date.GetTime() en java/javascript ?

Merci

jmfmarques · Accepted Answer

Bonjour,

Datediff (à conditon de partir d'une date et d'une heure précises et précisées) permettrait de calculer le nombre de secondes écoulées depuius ces date et heure jusu'à maintenant (Now).
Le nombre de sesondes serait par contre probablement en dehors des limites d'un Long et il faudrait alors le calculer et l'exprimer à l'aide de puissances de 10. Celui des millisecondes serait exprimé de la même manière, en multipliant par 1000)...

Et... tu veux calculer ces millisecondes depuis 1970 dans quel but ?
Les millisecondes m'intéressent car, en plus, le temps de calcul et d'affichage lui-même rendrait le décompte imprécis ....

jmfmarques · Answer

Et attends donc : il faudrait que la date et l'heure de départ du calcul définissent également la milliseconde de départ ....en 1970 !

tinux · Answer

C'est à partir du 1er janvier 1970 à 00:00:00.

ça donne un résultat à 13 chiffres.

Pourquoi.. ? Car beaucoup de sites web l'utilisent comme ID pour avoir des url mouvantes ;)

tinux · Answer

Note : je suis en .NET :p

jmfmarques · Answer

"Note : je suis en .NET "

Non !

tu es ici : Thèmes / Visual Basic 6 /

cs_Jack · Answer

Mon grain de sel.
Le 1er janvier 1970 a été choisie par Apple pour déterminer une date de l'an zéro de l'informatique.
Le TimeStamp de pratiquement tous les langages correspond au nombre de secondes écoulées depuis cette date.
Un entier Long au sens VB6, c'est à dire 4 octets (16 bits) suffit largement : 1209084951 à cette heure tardive.
Il nous reste, nous pauvres VB6'istes, encore quelques années avant que cela ne pose de problème (4 mai 2042).

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Renfield · Answer

a cet endroit :
http://www.codyx.org/snippet_transformer-stamp-vers-date-vice-versa_73.aspx

j'avais fait:
Public Function StampToDate(ByVal vnStamp As Long) As Date
    StampToDate = DateAdd("s", vnStamp, #1/1/1970#)
End Function

Public Function DateToStamp(ByVal vdDate As Date) As Long
    DateToStamp = DateDiff("s", #1/1/1970#, vdDate)
End Function

tinux · Answer

Merci à tous ! Renfield avait déjà fait ce petit travail, merci ;)

Note : pas mal codyx, c'est vrai que je l'utilise.. jamais; j'y ferais un tour maintenant avant de poser des questions...

Millisecondes depuis 1970

8 réponses

Votre réponse

Discussions similaires