forse ho risolto in questo modo
codice:
 <%
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
%>