Inserisci la seguente funzione in un modulo o in un form.
L'output può essere applicato a qualsiasi oggetto (textbox, label...)
es: txttempo.text=dividi_secondi(5400)
Questo esempio assegna a txttempo il valore "1 ora e 30 minuti".
------------------------
Public Function dividi_secondi(secondi As Single)
'Trasforma i secondi in ore e minuti
Dim ore As Single
Dim minuti As Single
Dim count As Single
'Toglie i decimali dai secondi totali (se ci sono...)
Dim pos_separatore As Single
Dim tiposeparatore As String
tiposeparatore = Mid(CStr(5 / 2), 2, 1)
ore = 0
tempox = secondi / 60
pos_separatore = InStr(CStr(tempox), tiposeparatore)
If pos_separatore <> 0 Then tempox = Left(tempox, pos_separatore)
'Crea la stringa per l'output
Do
ore = ore + 1
count = ore * 60
Loop Until count > tempox
ore = ore - 1
minuti = tempox - (ore * 60)
'Manda l'output alla chiamata
If ore = 0 And minuti = 0 Then
dividi_secondi = "Meno di un minuto"
ElseIf ore = 0 Then
dividi_secondi = minuti & " minuti"
ElseIf minuti = 0 Then
dividi_secondi = ore & " ore"
Else
dividi_secondi = ore & " Ore e " & minuti & " Minuti"
End If
End Function
Dividi secondi
Pubblicato prima del 07/05/2008 - Informazione assente
E' un appassionato di programmazione con un particolare interesse per le tecnologie web e mobile. Da 11 anni gestisce il sito pierotofy.it e lavora negli Stati Uniti come consulente informatico tramite la sua azienda, MasseranoLabs LLC. Seguilo su Twitter: @pierotofy
|
Aggiungi un commento