Errore handle in una conversione di data da secondi a giorno,ore,minuti

[bigdaniel]

Salve,

devo convertire la differenza di date, calcolata in secondi, in giorni,ore,minuti. Ho fatto questo:

<%
'**************************************************************
'******************CALCOLO TEMPO RESIDUO***********************
'**************************************************************

Dim TempoResiduo
Dim Scad
Dim Oggi

Scad = (RsAnnuncio.Fields.Item("scadenza").Value)
Oggi = Now()

TempoResiduo = DateDiff("s" , Oggi , Scad)


'************************FINE CALCOLO**************************



%>
<%

'**************************************************************
'******************FUNZIONE DI CONVERSIONE***********************
'**************************************************************

Function SplitSec(pNumSec)
  Dim d, h, m, s
  Dim h1, m1

  d = int(pNumSec/86400)
  h1 = pNumSec - (d * 86400)
  h = int(h1/3600)
  m1 = h1 - (h * 3600)
  m = int(m1/60)
  s = m1 - (m * 60)

  SplitSec = cStr(d) & "," & cStr(h) & "," & cStr(m) & "," & cStr(s)
End Function

'************************FINE CONVERSIONE**************************

%>


<%
MyTime = split(SplitSec(TempoResiduo),",")
%>

Mi restituisce questo errore:

Oggetto risposta, ASP 0106 (0x80020005)
È stato individuato un tipo di dati privo di handle.

Mi da lo stesso errore anche se al posto di TempoResiduo metto un numero qualsiasi.

Dove ho sbagliato??
Qualcuno potrebbe darmi qualche suggerimento, please.

Grazie e Buona giornata a tutti

[Grambo]

per prima cosa, se stampi TempoResiduo visualizzi un valore corretto?

ora guardo il resto (ma in genere per trovare l'errore si cerca di visualizzare tutto passo passo )

EDIT: prova a stampare a video myTime prima di fare lo split()
MyTime = SplitSec(TempoResiduo)

[bigdaniel]

Grazie per la risposta.

Si, ho provatio con TempoResiduo e stampa un valore corretto.

Ho provato a stampare MyTime, come hai detto tu, e lo fa, solo che il risultato è sballato. Dovrebbero essere 25 giorni + ore, minuti e secondi più o meno, solo che me ne da 450 di giorni

[Grambo]

Originariamente inviato da bigdaniel
Grazie per la risposta.

Si, ho provatio con TempoResiduo e stampa un valore corretto.

Ho provato a stampare MyTime, come hai detto tu, e lo fa, solo che il risultato è sballato. Dovrebbero essere 25 giorni + ore, minuti e secondi più o meno, solo che me ne da 450 di giorni

probabilmente la funzione SplitSec() è errata, il che ti comporta un errore di handle mancante con lo split

EDIT:
in genere io faccio così

sec=pnumsec mod 60
min1=(pnumsec-sec)/60
min=min1 mod 60
ora1=(min1-min)/60
ora=ora1 mod 24
giorno=(ora1-ora)/24

[bigdaniel]

Non ho capito, scusa

[Grambo]

devi rivedere la funzione SplitSec() e trovare l'errore

[Alethesnake]

Ma la riga dell'errore qual'è?

[br1]

Cambia il nome alla variabile... per qualche arcana ragione non gli piace MyTime

Edit: no... come non detto

Edit2: ho riscritto tutto e l'errore non me lo da piu'

<%
'**************************************************************
'******************CALCOLO TEMPO RESIDUO***********************
'**************************************************************

Dim TempoResiduo
Dim Scad
Dim Oggi

' Scad = (RsAnnuncio.Fields.Item("scadenza").Value)

Scad = DateAdd("D",1,Now())
Scad = DateAdd("H",2,Scad)
Scad = DateAdd("N",3,Scad)
Scad = DateAdd("S",4,Scad)

Oggi = Now()

TempoResiduo = DateDiff("s" , Oggi , Scad)


'************************FINE CALCOLO**************************



%>
<%

'**************************************************************
'******************FUNZIONE DI CONVERSIONE***********************
'**************************************************************

Function SplitSec(pNumSec)
  Dim d, h, m, s
  Dim h1, m1

  d = int(pNumSec/86400)
  h1 = pNumSec - (d * 86400)
  h = int(h1/3600)
  m1 = h1 - (h * 3600)
  m = int(m1/60)
  s = m1 - (m * 60)

  SplitSec = cStr(d) & "," & cStr(h) & "," & cStr(m) & "," & cStr(s)
End Function

'************************FINE CONVERSIONE**************************

%>


<%
MyTime = split(SplitSec(TempoResiduo),",")
%>

[bigdaniel]

Grazie a tutti per le risposte. Ora funziona regolarmente.

Solo che adesso mi ritrovo con questo problema e non so proprio da dove cominciare.

Il risultato che mi dà è, ad esempio, 52,13,23,54 (giorni, ore, minuti, secondi) E fin qui è tutto OK
Solo che avrei la necessità di formattarlo in questo modo:

52 giorni, 13 ore, 23 minuti, 15 secondi

Qualche suggerimento, per favore

Grazie e buona settimana a tutti

[bigdaniel]

Risolto:

 SplitSec = cStr(d) & " Giorni" &"," & cStr(h) & " Ore" & "," & cStr(m) & " Minuti" & "," & cStr(s) & " Secondi"