Kalde funktion igen

En funktion kan kun returnere en variabel. Så skal du sätte dit resultat i en array.

så jeg kraver f.eks lave myarray(0) = tid11 & "Sek."

myarray(1) = tid10 & " blalala"

også sætter bregn = myarray

eller hvad

Men hov den holder jo ikke helt.... fordi den skriver faktisk
0 Dage, 2 Timer, 0 Minutter, 0 sekunder 

Fordi jeg har sat dem som 0 i starten... hvis jeg ikke havde def. dem til 0 øverst var det bare tomt.. så den kan umiddelbart returnere mere end en variabel..

ttopholm -> Nej den returnerer kun en variabel, 'beregn'. Beregn er jo bare én enkelt variabel der består af de andre konkateneret.

ja.. hvordan skal jeg så gøre det....

Jeg skal lige forstå helt præcist hvad det er du gerne vil først.

Du har en værdi, forskel, som er et antal sekunder. Dette antal sekunder vil du gerne have vist i formatet dage-timer-minutter-sekunder?

Ja.. faktisk... vil gerne have det ud i dt du siger... :-)

Jeg har banket en funktion sammen til dig som klarer ærterne:

<%
' sets the current landcode id to Danish
Session.LCID = 1030

myDateTime = "17-05-2004 01:02:03"

Function FormatDateTimeNicely(foo)
    dateDifference = DateDiff("s", foo, Now())
   
    ' calculation days
    intDays = dateDifference / 86400
    tempArray = Split(intDays, ",")
    intDays = tempArray(0)
    leftOvers = DateDifference mod 86400
   
    ' calculation hours
    intHours = leftOvers / 3600
    tempArray = Split(intHours, ",")
    intHours = tempArray(0)
    leftOvers = leftOvers mod 3600
   
    ' calculation minuttes
    intMinuttes = leftOvers / 60
    tempArray = Split(intMinuttes, ",")
    intMinuttes = tempArray(0)
    leftOvers = leftOvers mod 60
   
    ' calculation seconds
    intSeconds = leftOvers
   
    ' fancies up output
    If intDays = 1 then
        strDayText = "dag"
            else
        strDayText = "dage"
    End if
   
    If intHours = 1 then
        strHourText = "time"
            else
        strHourText = "timer"
    End if
   
    If intMinuttes = 1 then
        strMinuttesText = "minut"
            else
        strMinuttesText = "minutter"
    End if
   
    If intSeconds = 1 then
        strSecondsText = "sekund"
            else
        strSecondsText = "sekunder"
    End if
   
    FormatDateTimeNicely = intDays & " " & strDayText & ", " & intHours & " " & strHourText & ", " & intMinuttes
    FormatDateTimeNicely = FormatDateTimeNicely & " " & strMinuttesText & ", " & intSeconds & " " & strSecondsText
End function

Response.Write FormatDateTimeNicely(myDateTime)
%>

Funktionen tager et Now() datoformat som parameter, altså fulddato og tid, og regner så forskellen ud i forhold til dags dato :)

Din funktion regner rimelig forkert synes.. hvis jeg taster en dato/tid for 10 sek siger den f.eks 1 dag, 3 timer, 0 minutter, 11 sekunder.. selvom der kun er gået 10 sek.

Hmm, det kigger jeg lige på..

Klarede den selv med denne:
Function CountDown(Slut)
  s_s = slut
  s_d = s_s Mod 86400
  d = int(s_s / 86400)
  s_t = s_d Mod 3600
  t = int(s_d / 3600)
  s_m = s_t mod 60
  m =  int(s_t / 60)
  s = s_m
 
  CountDown = "" & d & " dage og " & t & " timer og " & m & " minutter og " & s & " sekunder"
End Function

Er du sikker på den er korrekt?

Jo den ser faktisk ud til at være god nok :)

Lukker