Søg
Avatar billede toni01 Nybegynder
30. november 2000 - 09:57 Der er 9 kommentarer og
1 løsning

VBscript

Er der nogen der sidder med en løsning, hvor man intaster en startdato i et felt, og alt efter om man vælger måned, kvartal, eller Halvårs periode genereres slutdatoen automatisk.

-toni
Avatar billede starleicht Nybegynder
30. november 2000 - 11:01 #1
<html>
<head>
    <title>Udregn Slutdato</title>
</head>

<body>

<% if Request.Form(\"Skjult\")=\"\" then %>
<form action=\"date.asp\" method=\"post\" id=form1 name=form1>
    <input type=hidden name=Skjult Value=\"sendt\">
    Startdato: <input type=text name=StartDato value=\"01-01-2000\"><br>
    Dage: <input type=text name=antalDage value=\"30\"><br>
    <input type=submit value=\"Send\">
</form>

<%
else
    StartDato= Request.Form(\"StartDato\")
    antalDage= Request.Form(\"antalDage\")
    x = DateAdd(\"d\", antalDage, StartDato)
    response.write \"<b>Slutdato</b>: \" & FormatDateTime(x, 1)
End If
%>

</body>
</html>
Avatar billede toni01 Nybegynder
30. november 2000 - 11:19 #2
Forudsætninger:

2 tekstfelter startdato og slutdato
3 radiobuttens Måned, Kvartal og Halvår

man skriver dato i startdatofeltet, alt efter om man vælger...vises slutdatoen i slutdatofeltet
Avatar billede kasseper Nybegynder
30. november 2000 - 11:29 #3
Det er nok et clientside script du skal bruge :
<script language=\"VBScript\">
function writeDate(a)
dim start
start = DateValue(document.myForm.start.value)
document.myForm.slut.value = DateAdd(\"m\",a,start)
end function
</script>
<form name=\"myForm\">
<input type=\"text\" name=\"start\">
<input type=\"text\" name=\"slut\"><br>

<input type=\"radio\" name=\"hvormeget\" value=\"1\" Onclick=\"writeDate(1)\">måned<br>

<input type=\"radio\" name=\"hvormeget\" value=\"3\" Onclick=\"writeDate(3)\">kvartal<br>

<input type=\"radio\" name=\"hvormeget\" value=\"6\" Onclick=\"writeDate(6)\">halvår

</form>
Avatar billede kasseper Nybegynder
30. november 2000 - 11:30 #4
husk at lave en rigtig dato i start feltet. f.eks. 01-01-00 for 1.januar år 2000
Avatar billede toni01 Nybegynder
30. november 2000 - 11:39 #5
jeps jeg har tænkt mig at lave noget formatering af det intastede, som det eksempel man kan se på ViewSource.dk
Avatar billede kasseper Nybegynder
30. november 2000 - 11:54 #6
Er det så iorden, det jeg har lavet ?
Avatar billede starleicht Nybegynder
30. november 2000 - 11:56 #7
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
x = request.querystring(\"x\")
%>
<html>
<head>
    <title>Udregn Slutdato</title>
</head>

<body>

<% if Request.Form(\"Skjult\")=\"\" then %>
<form action=\"date.asp\" method=\"post\" id=form1 name=form1>
    <input type=hidden name=Skjult Value=\"sendt\">
    Startdato: <input type=text name=StartDato value=\"01-01-00\">
    måned<input type=\"radio\" name=Rtype value=\"1\">
    kvartal<input type=\"radio\" name=Rtype value=\"3\">   
    halvår<input type=\"radio\" name=Rtype value=\"6\"><br>
        <input type=submit value=\"Beregn SlutDato\"> <br>
    Slutdato: <input type=text name=antalDage value=\"<%= x %>\"><br>
</form>

<%
else
    StartDato= Request.Form(\"StartDato\")
    Rtype = Request.Form(\"Rtype\")
    x = DateAdd(\"m\", Rtype, StartDato)
    response.redirect (\"date.asp?x=\"&x)
end if
%>

</body>
</html> 
Avatar billede toni01 Nybegynder
30. november 2000 - 12:02 #8
Jeps kasseper, jeg har lige fået det implementeret i min løsning, og det virker som det skal. Så tak for hjælpen, der er points på vej (0:

toni
Avatar billede starleicht Nybegynder
30. november 2000 - 12:06 #9
>kasseper: Ja, dit script virker langt bedre end mit, så du har fortjent pointene!!!
Avatar billede kasseper Nybegynder
30. november 2000 - 12:25 #10
tak,tak..sikke en iver..;-)
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »