Discussion :

[YoMu1]

Bonjour à tous

Voila mon problème:
Je dois gérer une RTC initialisé grâce à un entier représentant le nombre de sec depuis le 1er janvier 1970 à 0h 0min et 0sec
J'obtiens ce résultat ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function Date_1970() As Long
    Date_1970 = DateDiff("s", "01/01/1970", Now)
End Function

Maintenant je voudrais faire l'inverse.
Partir d'un entier et obtenir une date au format jj/mm/aa et hh:mm:ss
Auriez vous une idée?

Merci

[tedo01]

Bonjour,
Excel stocke les dates sous la forme de nombres dont la partie entière représente le nombre de jours, et la partie décimale donne la fraction de jour que représente l'heure.
Si la variable date_1970 contient le nombre calculé à partir de la fonction donnée dans le post, on peut revenir à la date en ajoutant au 1.1.1970 le nombre de jours correspondant à ce nombre.
Pour passer des secondes au jours, il suffit de diviser par 60*60*24 = 86400, ce qui donne la formule suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nouvelle_date = DateSerial(1970,1,1) + date_1970/86400

[YoMu1]

Ok super, merci Tedo