Temps universel

dodineau

XLDnaute Occasionnel
Bonjour,
Je voudrais savoir comment obtenir l'heure universelle, c'est-à-dire l'heure au méridien de Greenwich.
Je suis en train de faire un programme d'astronomie qui réclame l'heure TU.

Merci
A+
 

andré

XLDnaute Barbatruc
Salut,

Je ne saisis pas bien ton problème.

Si je ne me trompes, entre le dernier dimanche d'octobre à 2:00 et le dernier dimanche de mars à 2:00, c'est l'heure de ton ordinateur - 1:00, sinon c'est - 2:00 (pour autant que habites la France, la Belgique, la Suisse, ...).

Rencontres-tu une difficulté à écrire cette formule ?

Â+
 

andré

XLDnaute Barbatruc
Resalut,

J'ai un peu regardé partout, mais je n'ai pas trouvé réponse à ta question.

Il faudrait en effet pouvoir récupérer la différence entre l'heure Greenwich et celle de l'oridinateur, mais là mes connaissances en informatique sont pour le moins quelque peu limitées.

Dommage.

Â+
 

PascalXLD

XLDnaute Barbatruc
Modérateur
Bonjour

Je pense (mais je n'en suis pas sûr) que par les API on doit pouvoir avoir l'heure TUC

Mais le problème c'est que je n'ais pas encore vraiment joué avec les API et que pour l'instant je ne sais pas faire

Mais cela me donne envie de m'y mettre

Mais pour ce soir ça va être juste

;)
 

michel_m

XLDnaute Accro
Bonjour Dodineau, Pascal, André

Ci joint procédure donnant le temps universel (d'après MSDN WMI):

Sub donner_heuregmt()
Dim datetime As Object
Set datetime = CreateObject('Wbemscripting.swbemdatetime')
datetime.setvardate (FormatDateTime(Time))
MsgBox 'heure GMT:' & datetime.getvardate(False)

End Sub

nota: pas forcément l'heure exacte car basée sur l'heure système de la bécane

a+

Michel_m
 

Discussions similaires

Réponses
26
Affichages
421

Statistiques des forums

Discussions
312 352
Messages
2 087 516
Membres
103 572
dernier inscrit
hamzahaha