Gestion des dates depuis 1 janvier 1970

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:

---

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

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:

---

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

---

Ok super, merci Tedo