[vb6] da ore a secondi... e viceversa

[SuperMariano81]

ciao ragazzi, dovrei trasformare un valore orario (del tipo 10:07:15) in secondi, salvarlo in un file, e poi recuperarlo (quindi riconvertire il numero di secondi in ore...)

C'è qualcosa di pronto in VB6? Timeserial forse? grazie 1000

[goku370]

Bhè... se per trasformare in secondi è facile. Usa questa formula:

(3600 * ore) + (60 * minuti) + secondi = ecco i tuoi secondi

Per riconvertirli in ore minuti e secondi puoi fare così:

dim secondi_tot as variant ' questi sono tutti i secondi che devi convertire
dim secondi as variant
ore = Int(secondi_tot / 3600)
secondi = secondi_tot - (3600 * ore)
minuti = Int(secondi / 60)
secondi = secondi - (minuti * 60)

CIAO, CIAO

[XVincentX]

Per salvarlo in un file crearlo prima (un .txt rinominato in .dat può nadare benissimo), poi aprilo e aggiungigi

""

Quindi fai

dim secondi_tot as variant 'non si sa mai
open "percorso" for random as #1
secondi_tot = numerototaledeisecondi
write #1, seconti_tot
close #1

Dati scritti con successo!
Per la lettura

open "percorso" for random as #1
read #1, secondi_tot

I dati sono memorizzati nella variabile secondi_tot
Oltre a random ci sono i metodi
input
output
un altro
random
Random hai il pieno controllo del file, input e output penso che tu sappia cosa significhi...
ciao!