[VB6] calcolo con textbox orario

[donini]

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

[okay]

Originariamente inviato da donini

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

perchè "hh.mm" equivale a 0 quindi errore tipico di una divisione per 0. Il formata data deve avere da 1 a 31 e da 1 a 12 e così anche l'anno.

prova a mettere per vedere se ti dà errore mettendo la data così: "15/10" oppure così "15/10/2001" insomma il suo formato data ma con dei numeri e i suoi separatori, ora non stò al pc e non posso provare.

ciao

[donini]

scusa ma le mie textbox sono in formato orario e non formato data

[okay]

Originariamente inviato da donini

scusa ma le mie textbox sono in formato orario e non formato data

si l'ho capito...

ma... error run-time '13' type mismatch significa assegnazione forzata di un dato di un'altro tipo.


prova con DateDiff che ti confronta l'orario trascorso tra confronti di date

e documentati ancora con now, hours, time ecc ecc

in effetti tu hai dichiarato Dim data1 As Date quindi 01/01/2005 una data e non orari