datokonvertering

Ændr alle datoreferencer til formatet yyyymmdd.

Hvad mener du med RecYearlyDate = '1/7'?

Det må du nok spørge om. Det er en kalender jeg har overtaget og skal rette fejl i.

Det går jo så galt fx her:

ThisMonthsFirstDay = cDate("1/" & Month(theDate) & "/" & Year(theDate))

hvor thedate er: 20021023

Jeg tror, at det her er i to niveauer.

1. SQL Server. I kommunikationen med SQL Server skal alle datokonstanter være på formen yyyymmdd.

2. Visual Basic. Datoer gemmes i Date variabler, og du bruger Visual Basics egne rutiner til håndtering af dem. Datoer fra recordsets ligger i date variabler.

Hvordan opbygger du din Select i kode? Datokonstanten burde have været 20020701 forudsat, at datoen, der refereres er 1. juli 2002.

theDate skal være af type Date.

Min SQL er opbygget således:

SQL = "SELECT * FROM Events WHERE StartDate <= '" & theDate & "' AND EndDate >= '" & theDate & "' OR RecType = 'weekly' AND RecEndDate > '" & theDate & "' AND StartDate < '" & theDate & "' AND RecWeeklyDay = '" & DayName & "' OR RecType = 'monthly' AND RecEndDate > '" & theDate & "' AND StartDate < '" & theDate & "' AND RecMonthlyDay = '" & DayNumber & "' OR RecType = 'Yearly' AND RecEndDate > '" & theDate & "' AND StartDate < '" & theDate & "' AND RecYearlyDate = '" & DayWithOutYear & "' ORDER BY StartTime"

set RS=Server.CreateObject("adodb.Recordset")
RS.Open SQL, dbc, adopenstatic

Nu skriver du at thedate skal være at typen date, mener du at jeg skal skrive:
thedate = date(thedate)

dim theDate as date

theDate = "1-7-2002"

SQL = "SELECT * FROM Events WHERE StartDate <= '" & format$(theDate, "yyyymmdd") & "' AND EndDate >= '" & format$(theDate, "yyyymmdd") & "' OR RecType = 'weekly' AND RecEndDate > '" & format$(theDate, "yyyymmdd") & "' AND StartDate < '" & format$(theDate, "yyyymmdd") & "' AND RecWeeklyDay = '" & DayName & "' OR RecType = 'monthly' AND RecEndDate > '" & format$(theDate, "yyyymmdd") & "' AND StartDate < '" & format$(theDate, "yyyymmdd") & "' AND RecMonthlyDay = '" & DayNumber & "' OR RecType = 'Yearly' AND RecEndDate > '" & format$(theDate, "yyyymmdd") & "' AND StartDate < '" & format$(theDate, "yyyymmdd") & "' AND RecYearlyDate = '" & DayWithOutYear & "' ORDER BY StartTime"

set RS=Server.CreateObject("adodb.Recordset")
RS.Open SQL, dbc, adopenstatic

Du kan evt. lave en hjælpefunktion:

function SQLServerDate(aDate as Date) as string
  SQLServerDate = format$(aDate, "yyyymmdd")
end function

Det er asp jeg arbejder i.
Ved du hvordan format$(theDate, "yyyymmdd") ser ud i asp?

format()?

Det er jo VBScript (så vidt jeg kan se på kodestumperne)

ihvertfald får jeg følgende fejl:
Invalid character

theDate= format$(theDate, "yyyymmdd")

Uden $ får jeg en Type mismatch: 'format'

Prøv at læse mit eksempel fra i dat 08:51:47

Du skal ikke tildele resultatet af format$ til theDate.

Min select ser nu således ud:
SQL = "SELECT * FROM Events WHERE StartDate <= '" & format$(theDate, "yyyymmdd") & "' AND EndDate >= '" & format$(theDate, "yyyymmdd") & "' OR RecType = 'weekly' AND RecEndDate > '" & format$(theDate, "yyyymmdd") & "' AND StartDate < '" & format$(theDate, "yyyymmdd") & "' AND RecWeeklyDay = '" & DayName & "' OR RecType = 'monthly' AND RecEndDate > '" & format$(theDate, "yyyymmdd") & "' AND StartDate < '" & format$(theDate, "yyyymmdd") & "' AND RecMonthlyDay = '" & DayNumber & "' OR RecType = 'Yearly' AND RecEndDate > '" & format$(theDate, "yyyymmdd") & "' AND StartDate < '" & format$(theDate, "yyyymmdd") & "' AND RecYearlyDate = '" & DayWithOutYear & "' ORDER BY StartTime"

Den giver samme fejl som skrevet i kommentaren 09:21:30

Det er asp jeg arbejder med så jeg kan ikke definerer min variabel til være af typen date sådan som du skriver jeg skal gøre.

Thedate er i det her tilfælde: 1/10/2002

Kan du lave en funktion i asp?

Hvis du kan, kan du lave funktionen til at danne formatet yyyymmdd, og så kalde den funktion ved opbygningen af din SQL i stedet for format.

Det virker hvis jeg bare sætter thedate til fx at være 20021001, så du har hjulpet rigeligt.
jeg skal nok få en funktion banket sammen.
Tak for hjælpen.