Problema variabile if

[morangel]

Buongiorno a tutti, avrei bisogno del vostro aiuto per risolvere un piccolo problema, ho fatto questa variabile ma non funziona.
il campo diff, indica i minuti lavorativi della giornata per un totale max di 1440, però se si accavallano due giorni, mi restituisce un valore superiore ai 1440, con questo script dovrei fare in modo che se il risultato di diff fosse superiore a 1440 minuti, mi togliesse 1440 minuti dal calcolo ovvero se il risultato dovesse essere 1640 minuti mi dovrebbe restituire 200 minuti.
dove sbaglio?
Grazie.

<%
Dim Diff
Diff = (Presenze.Fields.Item("diff").Value)
if  (Presenze.Fields.Item("diff").Value) > 1440 then
Diff = (Presenze.Fields.Item("diff").Value) - 1440
else
Diff=  (Presenze.Fields.Item("diff").Value)
End If
%>

[optime]

"If = "????

if qualcosa, non if uguale...

[morangel]

corretto sucsa, però non mi da sempre errore

Errore di run-time di Microsoft VBScript error '800a000d'
Tipo non corrispondente

/miosito/Straordinario1/Mese.asp, line 199

[optime]

1. NON avevi detto che data errore
2. quale sarebbe la riga 199?

dai, oramai dovresti sapere come funziona...

[morangel]

 
196 <%
197 Dim Diff
198 Diff = (Presenze.Fields.Item("diff").Value)
199 if  (Presenze.Fields.Item("diff").Value) > 1440 then 
200 Diff = (Presenze.Fields.Item("diff").Value) - 1440
201 else
202 Diff=  (Presenze.Fields.Item("diff").Value)
203 End If
204 %>

[optime]

ma se hai già riempito la variabile Diff col contenuto del database, perché continui a interrogare il db? usa la variabile!

[morangel]

Scusa devo essere entrato nel pallone, ho modificato così ma mi da sempre lo stesso errore....
helppppppp!!!!

<%
Dim Diff
Diff = (Presenze.Fields.Item("diff").Value)
if Diff >1440 then
Diff = Diff - 1440 
else
Diff= Diff
End If
%>
<%= Diff %>

[morangel]

forse ho risolto in questo modo

 <%
Dim Diff
Diff = cint (Presenze.Fields.Item("diff").Value) if Diff >1440 then
Diff = Diff - 1440 
else
Diff = (Presenze.Fields.Item("diff").Value)
End If
%>

[optime]

optime!