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

Question

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 ?

lermite222 · Answer

Bonjour,
Avec quel language ?
A+

lermite222 · Answer

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+

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

2 réponses

Votre réponse

Newsletters