Buonasera, ho questo script che mi calcola il tempo rimanente da una data di scadenza,
adesso vorrei fare in modo che questo script mi calcoli il tempo trascorso da una data, è possibile? ho provato in vari modi ma non ci sono riuscito.
Potente darmi una mano?
Grazie anticipatamente
<%
Dim mm_data_scadenza, conteggio, mm_note
mm_Note = (Note.Fields.Item("FineValut").Value)
mm_data_scadenza = DateDiff("d", Date(), mm_gg)
'Response.Write(mm_data_scadenza)&"----"
If mm_data_scadenza > 365 then %>
<span class="Stile7">
<%conteggio = "Le note scadono tra "&Fix(mm_data_scadenza/365)&" anni"
elseif mm_data_scadenza > 30 and mm_data_scadenza < 365 then%>
<span class="Stile8">
<%conteggio = "Le note scadono tra "&Fix(mm_data_scadenza/30)&" mesi"
elseif mm_data_scadenza > 1 and mm_data_scadenza < 30 then
conteggio = "Le note scadono tra "&Fix(mm_data_scadenza)&" giorni"
elseif mm_data_scadenza < 0 then%>
<span class="Stile9" id="flashlink0" flashtype="1" flashcolor="yellow">
<%conteggio = "Le note sono scadute!"%>
<%elseif mm_note = "Nessun dato inserito" then%>
<span class="Stile3">
<%conteggio = "Note non compilate"
else
conteggio="Attenzione, Note non presenti"
'If mm_data_scadenza < "0" then conteggio = "Le note scadono tra "&Fix(mm_data_scadenza/12)&" mesi"
end if
If conteggio = "Le note scadono tra 1 anni" then
Response.write(Replace(conteggio, "anni", "anno"))
elseif conteggio = "Le note scadono tra 1 mesi" then
Response.write(Replace(conteggio, "mesi", "mese"))
elseif conteggio = "Le note scadono tra 1 giorni" then
Response.write(Replace(conteggio, "giorni", "giorno"))
else
response.write(conteggio)
end if
%>