5 svar · 231 visningar · startad av Bosse168
Har en loop där jag efter varje rad hämtar ut och gör om datumet.
Någon som vet hur man gör så man slipper gå igenom alla If satser i loopen och anropa en funktion som gör om datumet.
För det måste väl vara mer resurs snålt att anropa en funktion än att köra all kod nedan efter varje ny rad i loopen?
Nuvarande:
Dim check
check = DateDiff("d", Date, Rs("datum"))
if check = 0 then
response.write "<font color='#FF0000'>Idag</font> klockan "& FormatDateTime(Rs("datum"), 4) &""
elseif check = -1 then
response.write "Igår klockan "& FormatDateTime(Rs("datum"), 4) &""
Else
Response.Write FormatDateTime(Rs("datum"), 2) &" ["& FormatDateTime(Rs("datum"), 4) &"]"
End If
Jag tror knappast att det gör någon större skillnad men, det går att använda en sub.
sub fixdate(in_date)
Dim check
check = DateDiff("d", Date, in_date)
if check = 0 then
response.write "<font color='#FF0000'>Idag</font> klockan "& FormatDateTime(in_date, 4) &""
elseif check = -1 then
response.write "Igår klockan "& FormatDateTime(in_date, 4) &""
Else
Response.Write FormatDateTime(in_date, 2) &" ["& FormatDateTime(in_date, 4) &"]"
End If
end sub
hur använder jag "subben" i loopen :)
Men den blir ingen prestanda ökning genom att sätta den i en sub?
Jag skulle inte tro det.