Visualizzazione dei risultati da 1 a 2 su 2
  1. #1

    [VB6] Conversione in hh:mm:ss

    Se io ho un valore intero che mi indica i secondi, come faccio a portarlo in hh:mm:ss ?
    Grazie
    Enrico Frison
    El signore ghe da e suche a chi che no ga i porsei!

  2. #2

    Risolto a chi può interessare

    Come trasformare i secondi in hh:mm:ss
    codice:
    Function Tempo(TTCC As Long)
        'Trasformo i secondi in hh:mm:ss
        Dim Ore, Minuti, Secondi As Integer
        Minuti = Fix(TTCC / 60)
        'Se non supero l'ora, allora basta calcolare la divisione
        'e tenere il resto come secondi
        If Not Minuti >= 60 Then
            Ore = 0
            Minuti = Minuti
            Secondi = TTCC Mod 60
        Else
        'Se supero l'ora faccio un'ulteriore divisione ed il resto
        'in questo caso saranno i minuti, poi i secondi
            Ore = Fix(Minuti / 60)
            Secondi = TTCC Mod 60
            Minuti = Minuti Mod 60
        End If
        Tempo = Ore & ":" & Minuti & ":" & Secondi
    End Function
    Ciao

    PS Non usatela per valori superiori a 86400 (24h) altrimenti non è più valido.
    Enrico Frison
    El signore ghe da e suche a chi che no ga i porsei!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.