CONVERTIR DES SECONDES EN MINUTES, HEURES, JOURS

Commentaire de econs le 26/01/2006 12:11:50 administrateur CS

Pour quelle raison aurait-on  Len(Resultat) = 0 ??
Tu l'écris juste au dessus, et il y a au moins 3 espaces dedans ...

ConvertirSecondes = "0 Seconde(s)"
S'il y en a zéro, tu peux tout de suite enlever le (s)

La fonction Format ne te sert à rien. Il s'agit ici de convertir des nombres en chaines de caractères. il faut utiliser CStr()
JoursRestants = CStr(Jours) & " Jour(s)"

Dans le cas où Jours, Heures, Minutes, Secondes valent 0, HeuresRestantes, MinutesRestantes, ... ne sont pas affectées, et dans la chaine de caractères finale, tu te retrouves avec deux espaces consécutifs : "3 Jour(s)  2 Minute(s) 4 Seconde(s)"

Le "Else Secondes=0" ne sert à rien.


A part tout çà, c'est propre. Et il y a une gestion d'erreur intégrée (ce qui est très bien).
Il n'y a pas de commentaire, mais avec des connaissances mathématiques de base, on comprend très bien ce qui se passe.
Idéal pour débutants.

Commentaire de drissou le 27/01/2006 12:50:58

voici une énième version de conversion, mais là je ne gère pas l'écriture des mots heure, minute et secondes

Sub Secondes_VersHMS(Secondes As Long, NHeures As Long, NMinutes As Long, NSecondes As Long)
Dim Départ As Long

Départ = Secondes
If Secondes = 0 Then
    NHeures = 0
    NMinutes = 0
    NSecondes = 0
Else
    ' calcul des secondes
    NSecondes = Départ Mod 60
    ' calcule des minutes
    Départ = (Départ - NSecondes) / 60
    NMinutes = Départ Mod 60
    ' calcul des heures
    Départ = (Départ - NMinutes) / 60
    NHeures = Départ / 60
End If
End Sub

Driss

Commentaire de PaTaTe le 28/01/2006 05:18:25

et moins fonctionnel !

Si on convertit depuis des secondes pas besoin des parametres minites, heures et age du capitaine.

De plus pourquoi 2 fois secondes en paramètre ?

Commentaire de Gobillot le 29/01/2006 19:17:27

une autre version.
calcul limité à une seule division.
n'affiche pas si le nombre est égal à zéro.
met le "s" si nécessaire.


Private Function ConvertirSecondes(Valeur As Double) As String
    Dim dt       As Date
    Dim Fmt      As String
    Dim Fj       As String
    Dim Fh       As String
    Dim Fm       As String
    Dim Fs       As String
    Dim x        As Long
    Dim Resultat As Long
    Dim Jours    As Long
    Dim Heures   As Long
    Dim Minutes  As Long
    Dim Secondes As Long
    
    dt = Valeur / 86400
    Jours = Int(dt)
    Heures = Hour(dt)
    Minutes = Minute(dt)
    Secondes = Second(dt)

    x = 1
    
    Select Case Secondes
       Case Is > 9: Secondes = Secondes * x: Fs = "00 secondes ": x = x * 100
       Case Is > 1: Secondes = Secondes * x: Fs = "0 secondes ":  x = x * 10
       Case Is = 1: Secondes = Secondes * x: Fs = "0 seconde ":   x = x * 10
       Case Is = 0: Fs = ""
       End Select

    Select Case Minutes
       Case Is > 9: Minutes = Minutes * x: Fm = "00 minutes ": x = x * 100
       Case Is > 1: Minutes = Minutes * x: Fm = "0 minutes ":  x = x * 10
       Case Is = 1: Minutes = Minutes * x: Fm = "0 minute ":   x = x * 10
       Case Is = 0: Fm = ""
       End Select
    
    Select Case Heures
       Case Is > 9: Heures = Heures * x: Fh = "00 heures ": x = x * 100
       Case Is > 1: Heures = Heures * x: Fh = "0 heures ": x = x * 10
       Case Is = 1: Heures = Heures * x: Fh = "0 heure ":  x = x * 10
       Case Is = 0: Fh = ""
       End Select
    
    Select Case Jours
       Case Is > 9: Jours = Jours * x: Fj = "00 jours "
       Case Is > 1: Jours = Jours * x: Fj = "0 jours "
       Case Is = 1: Jours = Jours * x: Fj = "0 jour "
       Case Is = 0: Fj = ""
       End Select

    Resultat = Jours + Heures + Minutes + Secondes
    Fmt = Fj & Fh & Fm & Fs
    ConvertirSecondes = Format$(Resultat, Fmt)
    
End Function