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

Résolu
mustang -  
 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

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Avec quel language ?
    A+
    0
    1. mustang
       
      Je travaille sous excel
      0
      1. lermite222 Messages postés 9042 Statut Contributeur 1 199 > 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
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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
    1. mustang
       
      C'est ça dont j'avais besoin.

      Merci beaucoup!
      0