Fel format på datumet?

1. Testutskrifter! Skriv ut vad variablerna innehåller!
2. Du ska inte använda + för att konkatenera. Använd &.

evendate får värdet 2004-10-27 19:30:00 och dom andra två blir värdet 0000-00-00 00:00:00

Du måste se till att du använder rätt subtyper. CDate() på datum, CInt() / CLng() på heltal. Typar man inte går saker och ting åt pipsvängen.

mvh

Nu förstår jag inte hur du menar igen :stud

Testade så här:

eventDate = request("Date_Year") & "-" & Request.Form("Date_Month") & "-" &  Request.Form("Date_Day") & " " & Request.Form("Time_Hour") & ":" & request("Time_Minute") & ":00 "
eventDate = CDate(eventDate)
varaktighet = FormatDateTime(DateAdd("n", +varaktighet, eventDate), 4)
paminnelse = FormatDateTime(DateAdd("n", -Request.Form("Date_Month"), eventDate), 4)

Response.Write(eventDate &"<br>" & _
varaktighet &"<br>" & _
paminnelse)

Då blev dessa värden utskrivna:
2004-10-27 20:40:00
20:55
20:30

Vad har varaktighet för värde innan du du tilldelar den värde i din kod?

15 och paminnelse 10

Vad bra! Då innehåller variablerna precis det de ska nu. (y)

Inte för att jag ser att du använder paminnelse's värde (10) till något, men det borde ju funka nu ;P

Hur gör jag för att variablen varaktighet ska bli 2004-10-27 20:55:00?

Testa med fler variabler. ASP gillar kanske inte att du blandar typerna på det där sättet.

<%
eventDate = request("Date_Year") & "-" & Request.Form("Date_Month") & "-" &  Request.Form("Date_Day") & " " & Request.Form("Time_Hour") & ":" & request("Time_Minute") & ":00 "
eventDate = CDate(eventDate)

Dim dVaraktighet,dPaminnelse
dVaraktighet = FormatDateTime(DateAdd("n", +CInt(varaktighet), eventDate), 4)
dPaminnelse = FormatDateTime(DateAdd("n", -CInt(Request.Form("Date_Month")), eventDate), 4)

Response.Write(eventDate &"<br>" & _
dVaraktighet &"<br>" & _
dPaminnelse)
%>

Får fortfarande dessa värden:
2004-10-27 20:40:00
20:55
20:30

Ehum... vilka värden VILL du få?

Jag förstår inte varför du använder FormatDateTime på de två värdena du skapar med DateAdd.

Det är mycket möjligt att FormatDateTime har inte hållt på med tid så mycket innan.
Det jag vill är att ta tiden man får fram ur eventDate och lägga till/ta bort tiden som man får ur dom andra två formulären.

Och det gör den inte nu?

' Lagrar tiden efter att ha adderat med varaktighet (10) minuter
dVaraktighet = FormatDateTime(DateAdd("n", +CInt(varaktighet), eventDate), 4)

' Lagrar tiden efter att ha subtraherat med POST-parametern Date_Month (månad (?)) minuter
dPaminnelse = FormatDateTime(DateAdd("n", -CInt(Request.Form("Date_Month")), eventDate), 4)

Jag tycker koden agerar korrekt.

Om jag gör så här så fungerar det men det borde väl finnas bättre sätt?

eventDate = request("Date_Year") & "-" & Request.Form("Date_Month") & "-" &  Request.Form("Date_Day") & " "& Request.Form("Time_Hour") & ":" & request("Time_Minute") & ":00 "
eventDate = CDate(eventDate)
eventDate2 = request("Date_Year") & "-" & Request.Form("Date_Month") & "-" &  Request.Form("Date_Day") & " "

Dim dVaraktighet,dPaminnelse
' Lagrar tiden efter att ha adderat med varaktighet (10) minuter
dVaraktighet = eventDate2 & FormatDateTime(DateAdd("n", +CInt(varaktighet), eventDate), 4)

' Lagrar tiden efter att ha subtraherat med POST-parametern Date_Month (månad (?)) minuter
dPaminnelse = eventDate2 & FormatDateTime(DateAdd("n", -CInt(paminnelse), eventDate), 4)

Ehum... alltså

<%

eventDate = request("Date_Year") & "-" & Request.Form("Date_Month") & "-" &  Request.Form("Date_Day") & " "& Request.Form("Time_Hour") & ":" & request("Time_Minute") & ":00 "
eventDate = CDate(eventDate)

Dim dVaraktighet,dPaminnelse
dVaraktighet = DateAdd("n", +CInt(varaktighet), eventDate)
dPaminnelse = DateAdd("n", -CInt(paminnelse), eventDate)

%>

/r
Råkade posta koden i min iver, innan jag hann ändra den. Denna kör jag och den fungerar superb.

Du har inte provat att ta bort FormatDateTime, som jag tipsade om? Då borde du ju få datum och tid i rätt subtyp...