PDA

Visualizza versione completa : [VB] Sottrarre orari.


Emily
07-12-2006, 03.29.23
:act: Ciao,
mi diletto a fare dei piccoli programmi in VB6 (autodidatta) ed ho un piccolo problema, forse stupido, come si fa a sottarre due orari? Mi spiego meglio con un esempio, se per lavoro esco di casa il lunedý mattina alle 08:00 e rientro alle 16:00 del martedý, vorrei sapere quante ore sono rimasto fuori di casa il lunedý (24:00 - 08:00). O tentato varie formule e formattazioni ma non ho trovato niente che funzioni.

dave4mame
07-12-2006, 10.10.52
beh, se il formato in cui hai gli orari Ŕ sempre lo stesso, puoi leggere l'ora, i minuti e i secondi, convertire tutto in secondi, fare la differenza e poi riconvertire in ore e minuti

LoryOne
07-12-2006, 11.27.00
Orario d'ingresso in ufficio: 07:20:00
Orario d'uscita dall' ufficio: 07:20:01

Ho lavorato fin troppo, porco boia ! :D
MsgBox Format$(TimeValue("7.20.00") - TimeValue("7.20.01"), "Long Time")

LoryOne
07-12-2006, 11.40.26
TimeSerial ti aiuta a calcolare orari a cavallo tra due giorni, es:
"esco di casa il lunedý mattina alle 08:00 e rientro alle 16:00 del martedý"
Quindi:
24:00-08:00 + 16:00

Emily
19-12-2006, 22.10.17
:act: Perfetto, ho seguito il consiglio di LoryOne e sono riuscito a risolvere il problema anche se mi Ŕ rimasto un piccolo "enigma" che ho risolto con un piccolo sistema, ma funzionante, il problema Ŕ che non riesco ad inserire come ora la mezzanotte "24:00", il sistema mi trasforma l'ora in "00:00", quindi se debbo fare il seguente calcolo:
x=Format$(TimeValue("24.00.00") - TimeValue("19.00.00"), "Long Time")
il sistema non calcola le ore di differenza tra le 19:00 e le 24:00, quindi faccio in questo modo:
x=Format$(TimeValue("23.59.00") - TimeValue("19.00.00")+TimeValue("00.01.00"), "Long Time")
Sicuramente esisterÓ un sistema! Quale?