forsættelse til finde dato ud fra dagsnummer

Du kan bruge ubound(whataction) det giver det sidste index i arrayet

if whataction(ubound(whataction)) <> "" then

Hvis arrayet whataction skal indeholde 3 ting så kan du gøre i stil:

if ubound(whataction) <> 2 then
  Response.Write "Fejl i strengen den indeholder ikke 3 ting"
else
.. resten af koden
end if

nu ser den sådan ud. den melder inegn fejl nu, men den udskriver heller ikke datoen når der kun er to ord i variablen....??

<% tekst = "sprut 54" %>
<% WhatAction = split(tekst," ", -1, 1) %>
<% response.write tekst %>

<%


    'if whataction(2) <> "" then
    if whataction(ubound(whataction)) <> "" then
   
    if whataction(ubound(whataction)) <> "" and whataction(ubound(whataction)) = "fre" then
    dato = DateAdd("d",VBfriday-WeekDay(date),date)
   
    else
   
    end if
   
    if whataction(ubound(whataction)) <> "" and whataction(ubound(whataction)) = "lør" then
    dato = DateAdd("d",VBSaturday-WeekDay(date),date)
    end if
   
    else
   
    tidspunkt = formatdatetime(now(),4)
    if tidspunkt > "03:01" then
    dato = date()
    end if
    if tidspunkt < "03:00" then
    dato = date() - 1
    end if
   
    end if
   
    response.write dato
%>

variablen tekst indeholder altid enten 2 eller 3 ord...

den kommer ind i den del hvor der ikke er noget imellem else og end if


    if whataction(ubound(whataction)) <> "" then
   
    if whataction(ubound(whataction)) <> "" and whataction(ubound(whataction)) = "fre" then
    dato = DateAdd("d",VBfriday-WeekDay(date),date)
   
    else
      'HER kommer den ind med 2 ord i
    end if

med mindre der står "fre" eller "lør" som sidste ord, så kommer den ind i en af de if sætnigner. Men den kommer ikke ind i else delen af denne:

if whataction(ubound(whataction)) <> "" then


Så hvis der er 2 ord skal den så komme ind i else delen??

for så skal du prøve at rette dennne:

if whataction(ubound(whataction)) <> "" then

til:

if ubound(whataction) = 2 then

nu er den sådan her, men den udskiver ikke dato variablen...??

<% tekst = "sprut 54" %>
<% WhatAction = split(tekst," ", -1, 1) %>
<% response.write tekst %>

<%


    'if whataction(2) <> "" then
    if whataction(ubound(whataction)) <> "" then
   
    if whataction(ubound(whataction)) <> "" and whataction(ubound(whataction)) <> "" = "fre" then
    dato = DateAdd("d",VBfriday-WeekDay(date),date)
    end if
   
    if whataction(ubound(whataction)) <> "" and whataction(ubound(whataction)) <> "" = "lør" then
    dato = DateAdd("d",VBSaturday-WeekDay(date),date)
    end if
   
    else
   
    tidspunkt = formatdatetime(now(),4)
    if tidspunkt > "03:01" then
    dato = date()
    end if
    if tidspunkt < "03:00" then
    dato = date() - 1
    end if
   
    end if
   
    response.write dato
%>

der er altid enten 2 eller 3 ord. I de tilfælde hvor der er 3 ord er det tredje ord altid "fre" eller "lør"

ok, så prøv at rette:

if whataction(ubound(whataction)) <> "" then

Til:

if ubound(whataction) = 2 then

yes nu virker det vist. tak eagleeye. læg et svar...

ok :) et svar.