Konvertering af dato i sekunder til vbLongDate

Jeg har dette som regner X antal sekuner om til timer-minutter-sekuner:

diff = 23645 'Antal sekunder
hours = int(diff / (60*60))
mins = round(60*(diff / (60*60) - hours),0)
secs = round(diff - ((60*60)* hours) - (60 * mins),0)
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
secs = string(2-len(secs),"0") & secs
timeStr = hours & ":" & mins & ":" & secs


Response.write timeStr

hvis du kender udgangs datoen kan du bruge DateAdd....

antal_sekunder = 354625
dato = "01-01-1980"

Response.write DateAdd("s", antal_sekunder, dato)

Hopla

DateAdd funktionen, var lige den jeg stod og manglede.

Ved du så evt også om der er mulighed for at detecte om serveren kører i sommer- eller vintertid?

/Duen