Notifikationer

Markér alle som læst Log ud

duno Nybegynder

03. maj 2005 - 17:09 Der er 9 kommentarer og
2 løsninger

Kan man trække et tilfældigt tal fra nedenstående

meningen er at jeg vil tælle ned i uger og dage, i stedet for op.. har i en bedre løsning så kom endelig med den.

den skal tælle ned fra 20 uger og naturligvis 7 dage

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Function CountDown(Slut)
s_s = DateDiff("s", Now, Slut)
s_u = s_s Mod 604800
u = (s_s - s_u) / 604800
s_d = s_u Mod 86400
d = (s_u - s_d) / 86400
t = Round(s_d / 3600)
CountDown = "Du er nu " & u & " uger + " & d & ""

Session("minus") = " & u & "
Response.Write Session("minus")

End Function

' Med angivelse af dato
Response.Write CountDown("11-05-2005")

%>
 

</body>
</html>

Synes godt om

nythjem Nybegynder

03. maj 2005 - 17:26 #1

Hej Duno..

Jeg er ikke helt med, men er det ikke bare at bytte om på Now og Slut..

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Function CountDown(Slut)
s_s = DateDiff("s", Slut, Now)
s_u = s_s Mod 604800
u = (s_s - s_u) / 604800
s_d = s_u Mod 86400
d = (s_u - s_d) / 86400
t = Round(s_d / 3600)
CountDown = "Der er nu " & u & " uger og " & d & " dage tilbage til den "

& Slut & ".."

End Function

' Med angivelse af dato
Response.Write CountDown("11-04-2005")
%>
 

</body>
</html>

Synes godt om

nythjem Nybegynder

03. maj 2005 - 17:27 #2

Hvad mener du egentlig med at den skal tælle ned fra 20 uger og 7 dage? :)

Synes godt om

duno Nybegynder

03. maj 2005 - 17:36 #3

bare glem hvad den skal tælle ned fra, kan jeg trække tal fra det viste tal??

eks

" & u & " - 4

hvis u er 5 ville resultatet blive 1

Synes godt om

nythjem Nybegynder

03. maj 2005 - 18:36 #4

Ja det skulle der ikke være nogle problemer i :)

CountDown = "Der er nu " & u-4 & " uger og " & d & " dage tilbage til den "

Synes godt om

winman Nybegynder

03. maj 2005 - 19:17 #5

her er en Simple og nem countdown function, som jeg lige bikset sammen for dig:
<%
Function WeekAndDaysToGo(TargetDate)
Dim DaysToGo,WeekSToGo,OutPutString
DaysToGo = datediff("d",now,TargetDate)
WeekSToGo = Fix(DaysToGo / 7)
DaysToGo = DaysToGo - cint(WeekSToGo * 7)
if WeekSToGo > 0 then OutPutString = OutPutString & WeekSToGo & " Uge"
if WeekSToGo > 1 then OutPutString = OutPutString & "r"
if WeekSToGo > 0 then OutPutString = OutPutString & " og "
if DaysToGo > 0 then OutPutString = OutPutString & DaysToGo & " Dag"
if DaysToGo > 1 then OutPutString = OutPutString & "e"
WeekAndDaysToGo = OutPutString
end function
%>

Brug den på følgende måde

<Body>
<%= WeekAndDaysToGo("")%>
</body>

Udskriften ville være (Hvis vi antager Now = idag 03-05-2005): 4 Uger og 1 Dag

Håber det hjalp....

Synes godt om

winman Nybegynder

03. maj 2005 - 19:35 #6

UPS!!!!!!!! glemte lige TargetDate'en hehe
Så det jeg mente var...
Udskift ovenstående fra body tag til body end tag
<Body>
<%= WeekAndDaysToGo("1-06-2005")%>
</body>

Synes godt om

duno Nybegynder

03. maj 2005 - 20:29 #7

hmm.. det ser skide godt ud rent kode, jeg kan forstå hvad du mener, men min side er helt blank... :o)

hvad er det lige jeg har gjort galt??

Synes godt om

duno Nybegynder

03. maj 2005 - 20:30 #8

<%
Function WeekAndDaysToGo(TargetDate)
Dim DaysToGo,WeekSToGo,OutPutString
DaysToGo = datediff("d",now,TargetDate)
WeekSToGo = Fix(DaysToGo / 7)
DaysToGo = DaysToGo - cint(WeekSToGo * 7)
if WeekSToGo > 0 then OutPutString = OutPutString & WeekSToGo & " Uge"
if WeekSToGo > 1 then OutPutString = OutPutString & "r"
if WeekSToGo > 0 then OutPutString = OutPutString & " og "
if DaysToGo > 0 then OutPutString = OutPutString & DaysToGo & " Dag"
if DaysToGo > 1 then OutPutString = OutPutString & "e"
WeekAndDaysToGo = OutPutString
end function
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<Body>
<%= WeekAndDaysToGo("1-06-2005")%>
</body>
</html>

Synes godt om

duno Nybegynder

03. maj 2005 - 22:35 #9

Winman
Jeg kan simpelthen ikke se hvad der skulle være galt med din kode, alt ser jo ganske godt ud, har du nogen gode forslag??

Synes godt om

winman Nybegynder

04. maj 2005 - 01:05 #10

Hmmm... jeg har lige taget den kode du skrev om på min køre det bare...
Kommer den ikke med fejl eller noget som helst????

NB: der er lige en rettelse...
koden skal se sådan her ud:
<%
function WeekAndDaysToGo(TargetDate)
Dim DaysToGo,WeekSToGo,OutPutString
DaysToGo = datediff("d",now,Cdate(TargetDate))
WeekSToGo = Fix(DaysToGo / 7)
DaysToGo = DaysToGo - cint(WeekSToGo * 7)
if WeekSToGo > 0 then OutPutString = OutPutString & WeekSToGo & " Uge"
if WeekSToGo > 1 then OutPutString = OutPutString & "r"
if DaysToGo > 0 then OutPutString = OutPutString & " og "
if DaysToGo > 0 then OutPutString = OutPutString & DaysToGo & " Dag"
if DaysToGo > 1 then OutPutString = OutPutString & "e"
WeekAndDaysToGo = OutPutString
end function
%>

- Før var denne linie:
if WeekSToGo > 0 then OutPutString = OutPutString & " og "

- Er blevet ændret til:
if DaysToGo > 0 then OutPutString = OutPutString & " og "

- Før var det WeekSToGo to bestemte om "Og" skulle med i virkeligheden skal det jo selvfølgelig være DaysToGo variablen.

Plus jeg også lige for en sikkerheds skyld bruger Dato konvertering funktionen på Targetdate, så den nu er
Cdate(TargetDate)

Nå men for at teste det her kan vi jo gøre følgende:
- Er det på din egen computer du tester den ???
- Hvilken server køre det på (OS version ???)
- Prøv at udskrive de forskellige variabler sådan her: (herunder test versionen af funktioenen)

<%
function WeekAndDaysToGo(TargetDate)
Dim DaysToGo,WeekSToGo,OutPutString
DaysToGo = datediff("d",now,TargetDate)
response.write "DaysToGo = " & DaysToGo & " "

WeekSToGo = Fix(DaysToGo / 7)
response.write "WeekSToGo = " & WeekSToGo & " "

DaysToGo = DaysToGo - cint(WeekSToGo * 7)
response.write "DaysToGo efter uge berregning = " & DaysToGo & " "

if WeekSToGo > 0 then OutPutString = OutPutString & WeekSToGo & " Uge"
if WeekSToGo > 1 then OutPutString = OutPutString & "r"
if DaysToGo > 0 then OutPutString = OutPutString & " og "
if DaysToGo > 0 then OutPutString = OutPutString & DaysToGo & " Dag"
if DaysToGo > 1 then OutPutString = OutPutString & "e"
WeekAndDaysToGo = OutPutString
end function
%>

vi skal nok finde fejlen... :o)

Synes godt om

duno Nybegynder

25. maj 2005 - 18:55 #11

jeg håber i kan leve med at dele

jeg deler points imellem jer :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS