Christian M. Nielsen wrote in dk.edb.internet.webdesign.serverside.asp:
> "Nicolai Rugren Hansen" <mail@usefulpokertips.com> skrev i en meddelelse
> news:43a1da6d$0$15782$14726298@news.sunsite.dk...
> > Det fungerer! Måske ville du hjælpe mig med endnu en ting:
> > Mit array bliver vist i en tabel, men hvordan får jeg sorteret
> > tabellen efter "aTable1Values(5, iRowLoop)". Denne kolonne består af
> > en masse tidsforskelle, hvor den mindste skal stå øverst og den
> > største nederst.
>
>
> Hvad er værdierne i tabellen? og må vi se din SELECT sætning?
> --
>
> Mvh / Regards
> -=< Christian >=-
> What capital has 164 letters in its name? See my web page to find out.
>
http://www.cmnielsen.dk
> The scary thing about looking for truth is that you might find it.
>
>
Hej Christian!
Jeg er lidt ny mht ASP, men jeg er næsten færdig med mit projekt, så hvis du
kan hjælpe ville det vær fantastisk!
Jeg har en database med en masse tidspunkter, som bliver hentet, hvor efter
tidsforskellen mellem nu og disse tidspunkterbliver vist. Men da jeg ikke
vil have sorteret efter tidspunkt, men tidsforskel, laver jeg tids ud
regningen i et array. Jeg håber det giver mening... Her er en del af min
kode (håber det er til at finde hoved og hale i):
<%
'udregn datediff
Function CalculateDateDiff(inTime)
StartHours = DateDiff("h",Now(), inTime)
StartMinutes = DateDiff("n",Now(), inTime) mod 60
StartHours = StartHours - 1
If StartHours < 0 Then
StartHours = StartHours + 24
End If
If StartMinutes < 0 Then
StartMinutes = StartMinutes + 60
End If
If StartMinutes < 10 Then
StartMinutes = "0" & StartMinutes
End If
If StartHours < 10 Then
StartHours = "0" & StartHours
End If
ReturnString = StartHours & StartMinutes
CalculateDateDiff = ReturnString
End Function
'connect til db
---
oConn.Open connectstr
qry = "SELECT * FROM " & tablename
Set oRS = oConn.Execute(qry)
'array
Dim aTable1Values
aTable1Values = oRS.GetRows()
'loop through array
Dim iRowLoop, iColLoop
For iRowLoop = 0 to UBound(aTable1Values, 2)
'Tag arrayværdier .. regn datediff ud og gem på samme plads
aTable1Values(4, iRowLoop) = CalculateDateDiff(aTable1Values(4, iRowLoop))
aTable1Values(5, iRowLoop) = CalculateDateDiff(aTable1Values(5, iRowLoop))
'indsæt : i regtime
Del1 = Left(aTable1Values(4, iRowLoop),2)
Del2 = Right(aTable1Values(4, iRowLoop),2)
aTable1Values(4, iRowLoop) = Del1 & "h:" & Del2 & "m"
'indsæt : i starttime
Del1 = Left(aTable1Values(5, iRowLoop),2)
Del2 = Right(aTable1Values(5, iRowLoop),2)
aTable1Values(5, iRowLoop) = Del1 & "h:" & Del2 & "m"
'hvis reg er open
If aTable1Values(4, iRowLoop) > aTable1Values(5, iRowLoop) Then
aTable1Values(4, iRowLoop) = "Open"
End If
Next 'iRowLoop
' Sorter efter ...
(det var her jeg havde tænkt jeg skulle sortere)
<tr bgcolor="<%=farve%>">
<td class="main"><p class="freemain<%=aTable1Values(1,
iRowLoop)%></a></p></td>
<td class="main"><p class="freemain<%=aTable1Values(4,
iRowLoop)%></a></p></td>
<td class="main"><p class="freemain<%=aTable1Values(5,
iRowLoop)%></a></p></td>
<td class="main"><p class="freemain"><%=aTable1Values(6,
iRowLoop)%></p></td>
<td class="main"><p class="freemain"><%=aTable1Values(7,
iRowLoop)%></p></td>
<td class="main"><p class="freemain"><%=aTable1Values(8,
iRowLoop)%></p></td>
</tr>
<%
Next 'iRowLoop
%>
Dvs det er aTable1Values(5, iRowLoop) jeg ønsker at sortere efter.
Mvh
Nicolai
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials