Heure précise : millième de seconde

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 367 fois - Téléchargée 43 fois

Contenu du snippet

Cette routine utilise le SDK WMI.
Vous pourrez la trouver à l’adresse suivante :
http://msdn.microsoft.com/downloads/sdks/wmi/default.asp

Attention le SDK WMI est indispensable, cependant il est distribué en standard avec windows 2000 et XP.

Source / Exemple :


‘À mettre par exemple dans un timer
‘Ceci permet de récupérer des informations
‘sur la date et l’heure courante
‘années retourne l’année sur 4 chiffres
‘mois retourne le mois sur 2 chiffres
‘jours retourne le numéro du jour dans le mois sur 2 chiffres
‘heures retourne l’heure sur 2 chiffres
‘minutes retourne les minutes sur 2 chiffres
‘secondes retourne les secondes sous la forme XX.YYY ou XX sont les secondes
‘et ou YYY sont les millièmes de seconde

Set SystemSet = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

For Each System In SystemSet
    DateTime1 = System.LocalDateTime
    années = Left$(DateTime1, 4)
    mois = Mid$(DateTime1, 5, 2)
    jours = Mid$(DateTime1, 7, 2)
    heures = Mid$(DateTime1, 9, 2)
    minutes = Mid$(DateTime1, 11, 2)
    secondes = Mid$(DateTime1, 13, 6)
Next

Conclusion :


Laisser vos commentaires

A voir également

Ajouter un commentaire Commentaires
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
7
ouais, peut etre, mais c pas du VB !! :-)
Messages postés
63
Date d'inscription
mardi 15 mai 2001
Statut
Membre
Dernière intervention
14 mai 2004

__inline__ unsigned long long int rdtsc()
{
unsigned long long int x;
__asm__ volatile (".byte 0x0f, 0x31" : "=A" (x));
return x;
}
en c, c plus précis (avec 2 Ghz c précis pratiquement a la femtoseconde : cette instruction lit le time stamp counter TSC)
Messages postés
17
Date d'inscription
samedi 9 décembre 2000
Statut
Membre
Dernière intervention
6 mai 2007

gg00xiv ils sont ou t milliemes t con ou koi??
et puis pour ton heure basique sache ke toi ki aime pa te compliker la vie tu peu taper :
Date & ", " & Time
ca marche tou osi bien et tu economisera un peu de calories en plus...
Messages postés
656
Date d'inscription
mercredi 22 août 2001
Statut
Membre
Dernière intervention
11 mars 2005
13
completement inutile car cela est deja implemente en VB :

Date & ", " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) renvoi une chaine de ce type :
17/03/2002, 17:35:12

vive la complication pour de si petites choses
Messages postés
54
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
16 septembre 2008

Ce que je cherchais depuis des siècles ! Merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.