en uges mærkedage??
Hvordan får jeg det her til at vise en uges mærkedage frem i tiden?Jeg har stillet et lignende spørgsmål men ikke med dete script som grundlag. Det andet kunne åbenbart ikke bruges.
<%
OneMerkeDag = false
do while not rs.EOF
sBirthdate = rs("Birthdate")
dato = sBirthdate
years = Datediff ("yyyy",dato,date)
dato = dateAdd("yyyy",years,dato)
mounths = Datediff ("m",dato,date)
if mounths < 0 then
dato = dateAdd("yyyy",-1,dato)
mounths = Datediff ("m",dato,date)
years = years - 1
end if
dato = dateAdd("m",mounths,dato)
days = Datediff ("d",dato,date)
if days < 0 then
if mounths > 0 then
mounths = mounths - 1
else
years = years - 1
mounths = 11
end if
dato = dateAdd("m",-1,dato)
days = Datediff ("d",dato,date)
end if
'TJEK OG FIND MÆRKE DAG/DAGE !!!!
merkeDag = false
if (mounths = 0) and (days = 0) then
merkeDag = true
end if
if len(sBirthdate) > 0 then
TotalCleanYear = TotalCleanYear + years
TotalCleanMounths = TotalCleanMounths + mounths
TotalCleanDays = TotalCleanDays + days
if TotalCleanDays >= 30 then
TotalCleanDays = TotalCleanDays - 30
TotalCleanMounths = TotalCleanMounths + 1
end if
if TotalCleanMounths >= 12 then
TotalCleanMounths = TotalCleanMounths - 12
TotalCleanYear = TotalCleanYear +1
end if
end if
if merkeDag = true then
OneMerkeDag = true
dinStr = years & " år "
Response.Write "<b><a href=""/dev/myDeV/users.asp?username=" & rs("UserName") & """>"
Response.Write rs("UserName") & " </b><a></a>har idag " & dinStr & " Clean!<br>"
end if
rs.movenext
loop
if OneMerkeDag = false then
Response.Write "<i>Der er ingen der der kan fejre hele år idag.</i><br>"
end if
dinStr = "" & TotalCleanYear & " år " & TotalCleanMounths & " måneder " & TotalCleanDays & " dage"
Response.Write "Samlet cleantime i mærkedagskalenderen: " & dinStr & ""
%>
