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 ?
A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Avec quel language ?
A+
0
mustang
 
Je travaille sous excel
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191 > 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
Réponse 2 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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
mustang
 
C'est ça dont j'avais besoin.

Merci beaucoup!
0