Differenza tra valori

[Enrique_Rojas]

Ciao.

E' un pomeriggio che ci sbatto la testa:

if Trim(Rs("strORENONLAVORATE") & "[]") = "[]" then
   strORENONLAVORATE = Rs("strORENONLAVORATE")
else
   strORENONLAVORATE = cDbl(Rs("strORENONLAVORATE"))
   strORENONLAVORATE = strORENONLAVORATE MOD 60
End if

   strORESTRAORDINARIO = Rs("strORESTRAORDINARIO")
   strDifferenza = (strORESTRAORDINARIO-strORENONLAVORATE)

Risponde:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente

sulla riga:

strDifferenza = (strORESTRAORDINARIO-strORENONLAVORATE)

Ma perchè???

[Roby_72]

strORESTRAORDINARIO = CDbl(strORESTRAORDINARIO)

Roby

[Enrique_Rojas]

Grazie Roby, era una possibilità che non avevo provato...

Come avrai intuito devo calcolare la differenza tra:

strDifferenza = (strORESTRAORDINARIO-strORENONLAVORATE)

Cioè devo detrarre eventuali OreNonLavorate dalle OreStraordinario.

Però quando:

strORESTRAORDINARIO = 10
strORENONLAVORATE = 0

Differenza, cioè le OreStraordinario - OreNonLavorate = 10

:master:

[Roby_72]

Va beh ma funziona ora o no?

Roby

[Enrique_Rojas]

si, tutto ok, grazie!