donini
24-03-2008, 20:47
VB6
Dim data1 As Date
Dim data2 As Date
data1 = CDate(GME1.Text)
data2 = CDate(GMU1.Text)
Data3 = CDate(GPE1.Text)
Data4 = CDate(GPU1.Text)
GTO1.Text = Format((data2 - data1) + (Data4 - Data3), "hh.mm")
tramite questo codice eseguo una
operazione matematica con 4 textbox formato orario e fin qui tutto bene il problema nasce quando le textbox non hanno ore da calcolare
esempio
GME1= 0
GME2=0
GPE1=08:00
GPE2=12:00
mi dovrebbe restituire GTO1= 04:00
invece mi restituisce errore di runtime 13 come posso evitare questo tipo di errore
Dim data1 As Date
Dim data2 As Date
data1 = CDate(GME1.Text)
data2 = CDate(GMU1.Text)
Data3 = CDate(GPE1.Text)
Data4 = CDate(GPU1.Text)
GTO1.Text = Format((data2 - data1) + (Data4 - Data3), "hh.mm")
tramite questo codice eseguo una
operazione matematica con 4 textbox formato orario e fin qui tutto bene il problema nasce quando le textbox non hanno ore da calcolare
esempio
GME1= 0
GME2=0
GPE1=08:00
GPE2=12:00
mi dovrebbe restituire GTO1= 04:00
invece mi restituisce errore di runtime 13 come posso evitare questo tipo di errore