Tjeck for rigtig dato format

kigger lige med..

Jeg har denne funktion til at gøre det.

dim returVal
returVal = false
if len(dato) = 10 then
  if isnumeric(left(dato,2)) then
  if cint(left(dato,2)) >= 1 and cint(left(dato,2)) <= 31 then
    if isnumeric(mid(dato,4,2)) then
    if cint(mid(dato,4,2)) >= 1 and cint(mid(dato,4,2)) <= 12 then
      if isnumeric(right(dato,4)) then
      if mid(dato,3,1) = "-" and mid(dato,6,1) = "-" then
        if isDate(dato) then
        returVal = true
        end if
      end if
      end if
    end if
    end if
  end if
  end if
end if
MyIsDate = returVal
end function

prøver lige igen. Der manglede lige en start.... :o)

function MyIsDate(dato)
dim returVal
returVal = false
if len(dato) = 10 then
  if isnumeric(left(dato,2)) then
  if cint(left(dato,2)) >= 1 and cint(left(dato,2)) <= 31 then
    if isnumeric(mid(dato,4,2)) then
    if cint(mid(dato,4,2)) >= 1 and cint(mid(dato,4,2)) <= 12 then
      if isnumeric(right(dato,4)) then
      if mid(dato,3,1) = "-" and mid(dato,6,1) = "-" then
        if isDate(dato) then
        returVal = true
        end if
      end if
      end if
    end if
    end if
  end if
  end if
end if
MyIsDate = returVal
end function

kan du ikke vise dem med et urtræk det er da nemme point ;-)

????

Response.write MyIsDate("24-12-2004")&"<br>" 'true
Response.write MyIsDate("12-24-2004")&"<br>" 'false
Response.write MyIsDate("24-13-2004")&"<br>" 'false
Response.write MyIsDate("32-01-2004")&"<br>" 'false
Response.write MyIsDate("31-02-2004")&"<br>" 'false
Response.write MyIsDate("hejsa")&"<br>" 'false

Det er en funk som jeg lavede til http://www.eksperten.dk/spm/486434. Den kan sikkert findes, hvis du søger her på E :o)

Og der var lige nogle point.... tak for hjælpen....

så siger jeg da tak.