---
title: "Datumformulär..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38206-datumformulär"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Macce"
published: "2001-07-12T19:10:00.000Z"
updated: "2001-07-12T19:10:00.000Z"
replies: 0
views: 985
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38206-datumformulär"
---

# Datumformulär...

## #1 — Macce, 2001-07-12T19:10Z

Detta är ett enkelt datumformulär som
har dagens datum och tid som default, tyvärr är inte minuterna det eftersom de då måste avrundas till närmaste 5 min intervall, vilket krånglar till det hela...
Har inte lagt upp nån demo eftersom det är så enkel kod att prova själv 

Mvh Macce     [Diskussionstråd](http://cgi.webforum.nu/wf/Forum11/HTML/005236.html)

\-------------------------------------

\<HTML\>
\<body\>
\<form name="datum" method="post" action="dennas_ida.asp?action=update"\>

Datum:&nbsp;\<SELECT NAME="Ar"\>\<%For i = 0 to 5%\>
\<OPTION VALUE="\<%=left(DateAdd("yyyy",i,Now),4)%\>"\>&nbsp;
\<%=left(DateAdd("yyyy",i,Now),4)%\>&nbsp;
\</option\>\<%Next%\>\</SELECT\>-
\<SELECT NAME="Manad"\>\<%For i = 0 to 11%\>
\<OPTION VALUE="\<%=mid(DateAdd("m",i,Now),6,2)%\>"\>&nbsp;
\<%=left(Ucase(MonthName(mid(DateAdd("m",i,Now),6,2),true)),1)%\>
\<%=mid(MonthName(mid(DateAdd("m",i,Now),6,2),true),2,2)%\>
\</option\>\<%Next%\>\</SELECT\>-
\<SELECT NAME="Dag"\>
\<%For i = 1 to 31%\>
\<%If  i = DatePart("d",date) then sel="selected" else sel="" end if%\>
\<OPTION VALUE="\<%=i%\>" \<%=sel%\>\>&nbsp;
\<%=i%\>&nbsp;\</option\>\<%Next%\>
\</SELECT\>&nbsp;Kl:&nbsp;
\<SELECT NAME="Timme"\>\<%For i = 0 to 23%\>
\<OPTION VALUE="\<%=mid(DateAdd("h",i,Now),12,2)%\>"\>&nbsp;
\<%=mid(DateAdd("h",i,Now),12,2)%\>&nbsp;\</option\>
\<%Next%\>\</SELECT\>
\<SELECT NAME="Minut"\>\<%For i = 0 to 59 step 5 %\>
\<%If i \< 10 then u="0" else u="" end if%\>
\<OPTION VALUE="\<%=u&i%\>"\>&nbsp;\<%=u&i%\>&nbsp;
\</option\>\<%Next%\>\</SELECT\>

\<input type="submit" name="Submit" value="    Spara    "\>
\</body\>
\</html\>

\<%

if request.querystring("action")="update" then

strDatum= Request.Form("Ar") & "-" & Request.Form("Manad") & "-" & Request.Form("Dag") & " "
strDatum= strDatum & Request.Form("Timme") & ":" & Request.Form("Minut")

		if IsDate(strDatum) = true then
		strdatum = cdate(strDatum)%\>

		lagra osv..............

		\<%else%\>

		skicka felmeddelande..........

		\<%end if

end if %\>

\-----------------------------------

Permalänk: https://www.webforum.nu/p/38206

---

Tråden på webben: https://www.webforum.nu/amne/asp/38206-datumformulär