[R] Excel, problème format cellule

[Eldes]

Bonjour.

J ai encore un soucis équivalent a la date cité sur le poste précédent.
dans une cellule excel qui a format heure, je copie le contenant de cette cellule qui est 06:10:00 (donc une heure)
Quand je lis cette heure en message box j obtiens 0.25694444444
Et moi j aurais besoin d'avoir une forme 0610.

Merci et je m excuse d'abuser de votre aide.

[TommyDDR]

Pouvez vous poster un fichier contenant une heure ainsi que votre programme qui lis cette heure ?

Pour se trouver dans les même conditions que vous.

[zeshrek]

Tu multiplie ton résultat par 24, ce qui te donne 6,16666666656
tu garde la partie entiere qui te donne le nombre d'heures et tu multiplie le reste par 60 ce qui te donne 9,9999999936 minutes, que tu peux arondir a 10

[TommyDDR]

Bien joué zeshrek

Le résultat est bien stocké sous forme de jour.

Voilà le code qui va avec.

► Afficher le texte

Code : Tout sélectionner

Func GetGoodFormat($MonRetourExcel)
    Local $Heure
    Local $Min
    Local $Sec
    $MonRetourExcel *= 24
    $Heure = Floor($MonRetourExcel)
    $MonRetourExcel -= $Heure
    $MonRetourExcel *= 60
    $Min = Floor($MonRetourExcel)
    $MonRetourExcel -= $Min
    $MonRetourExcel *= 60
    $Sec = Floor($MonRetourExcel)
    Return $Heure & $Min & $Sec
EndFunc

Edit : Voila le code prenant en compte que la valeur n'est pas exacte (444444....)

► Afficher le texte

Code : Tout sélectionner

Func GetGoodFormat($MonRetourExcel)
    Local $Heure
    Local $Min
    Local $Sec
    $MonRetourExcel *= 24
    $Heure = Floor($MonRetourExcel)
    $MonRetourExcel -= $Heure
    $MonRetourExcel *= 60
    $Min = Floor($MonRetourExcel)
    $MonRetourExcel -= $Min
    $MonRetourExcel *= 60
    $Sec = Ceiling($MonRetourExcel)
    If($Sec >= 60) Then
        $Sec -= 60
        $Min += 1
        If($Min >= 60) Then
            $Min -= 60
            $Heure += 1
        EndIf
    EndIf
    Return StringFormat("%02s%02s%02s", $Heure, $Min, $Sec)
EndFunc

[Tlem]

@Eldes
Merci de modifier le titre de votre message afin qu'il corresponde à votre problème.

[Eldes]

Merci a vous sa fonctionne je peux avancer dans la création de mon programme encore une fois merci

@Tlem désoler pour le titre je l ai modifier.

Cordialement.