Excel : Convertir date décimale en MM/JJ/HH/m

Résolu/Fermé
Signaler
-
 mustang -
Bonjour,

Existe-t-il un moyen simple de résoudre ce problème :

J'ai une série de dates :

prenons par exemple :

1997.765

La première partie, avant le point, représente l'année. Il suffit donc de séparer les deux parties pour avoir déjà l'année.

IL nous reste 0.765 qui est une fraction de l'année.

Pour savoir le jour, il faut donc multiplier par 365 OU 366 si c'est une année bisextile.

Ensuite il faut diviser par 30 ou 31 en fonction du nombre de jours dans le mois, et c'est là que ça se corse.

Avez-vous une idée ou un programme qui résolve ce pb ?

2 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 197
Bonjour,
Avec quel language ?
A+
0
Je travaille sous excel
0
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 197 > mustang
Oui, c'est dans ton titre, mais en VBA ou par des formules ?
Mon avis faut passer par du VBA, mais il y a des amis sur CCM qui sont super fort en formule (pas moi)
0
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 197
Mais avec VBA...
Function CodeJour() As String
Dim B As Double
Dim An As Integer
Dim Reste As Single
Dim Da1 As Long, Da2 As Long
Dim MaDate As Date

    Sheets("Feuil1").Select
    B = Cells(1, 1).Value
    An = Int(B)
    Reste = B - An
    Da1 = DateSerial(An, 1, 1)
    Da2 = DateSerial(An, 12, 31)
    MaDate = Da1 + ((Da2 - Da1 + 1) * Reste) + 1
    Cells(1, 2).Value = MaDate
End Function


Mettre le nombre en A1 (1997,765) résultat en B1 = 8/10/1997 5:24:00
Sais pas si c'est ca que tu cherche ?
A+
-1
C'est ça dont j'avais besoin.

Merci beaucoup!
0