1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Heure précise : millième de seconde

Heure précise : millième de seconde

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 842 fois - Téléchargée 45 fois

Commenter

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
Tilois Messages postés 721 Date d'inscription dimanche 10 juin 2001 Statut Membre Dernière intervention 27 mars 2011 7
22 juin 2003 à 14:46
ouais, peut etre, mais c pas du VB !! :-)
ADN733R Messages postés 63 Date d'inscription mardi 15 mai 2001 Statut Membre Dernière intervention 14 mai 2004
22 juin 2003 à 14:25
__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)
cs_Djedj Messages postés 17 Date d'inscription samedi 9 décembre 2000 Statut Membre Dernière intervention 6 mai 2007
16 août 2002 à 01:03
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...
gg00xiv Messages postés 656 Date d'inscription mercredi 22 août 2001 Statut Membre Dernière intervention 11 mars 2005 13
15 août 2002 à 20:12
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
cs_Danette Messages postés 54 Date d'inscription mardi 23 juillet 2002 Statut Membre Dernière intervention 16 septembre 2008
15 août 2002 à 18:00
Ce que je cherchais depuis des siècles ! Merci
S'inscrire maintenant

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.

Du même auteur (Tilois)