select case

case is > 3

//akj

Microsoft VBScript compilation error '800a03ea'

Syntax error

/alpha/datediff.asp, line 12

case is > 3
-----^

if varDay > 3 then
    varDay = 4
end if


Select Case varDay
Case 0
Response.Write("(i dag) ")
Case 1
Response.Write("(i går) ")
Case 2
Response.Write("(i forgårs) ")
Case 3
Response.Write("(3 dage siden) ")
Case 4
Response.Write("(Bla Bla Bla....) ")
Case Else
Response.Write "(" & varDay & " dage siden)"
End Select

>>a-torsten - jeg vil bruge funktionen til at vise hvor mange dage der er gået... hvis jeg indsætter if-sætningen så vil der næsten altid være gået 4 dage ... (ved godt at det er mig der har formuleret mig dårligt)

Jeg har en dato - som jeg gerne vil vise hvor dage der er til (negativt tal - deraf min "else" sætning) og med hvor mange dage datoen er overskredet... (positivt tal) - tror desværre jeg er nødt til at lave min "select" sætning om til en helvedes masse if-sætninger

Jeg forstår squ ikke hvorfor det ikke virker med "case is > 3", roder lige lidt med det.

//akj

Troede bare at der måske var en nem måde som f.eks tidligere nævnte "case is >3"

Den her syntax her virker hos mig

Dim Number
Number = 9
Select Case True
Case Number = 8
  Response.Write "otte"
Case Number > 8
  Response.Write "større end 8"
Case Else
  Response.Write "et andet tal"
End Select

//akj

Din select kommer så til at se sådan her ud:

Dim varDay

varday = 7
'varday = 3

Select Case varDay
    Case 0
        Response.Write("(i dag) ")
    Case 1
        Response.Write("(i går) ")
    Case 2
        Response.Write("(i forgårs) ")
    Case 3
        Response.Write("(3 dage siden) ")
    case varday > 3
        Response.Write("(mere end 3 dage siden) ")
    Case Else
        Response.Write "(" & varDay & " dage siden)"
End Select

//akj

Dk_akj >> jeg kegler lidt i det nu ... (det er stadig tidligt om morgen)
kan du tilpasse min kode ?

<%
Sub Diff(strDate)
    Dim varDay
    varDay = DateDiff("d", (strDate), Now)

Select Case varDay
    Case 0
        Response.Write("(i dag) ")
    Case 1
        Response.Write("(i går) ")
    Case 2
        Response.Write("(i forgårs) ")
    Case 3
        Response.Write("(3 dage siden) ")
    Case varDay > 3
        Response.Write("(mere end 3 dage siden) ")
    Case Else
        Response.Write "(" & varDay & " dage siden)"
End Select

End Sub
%>

Hurtigt lavet og IKKE testet, er tilbage om ½ time.

//akj

Sub Diff(strDate)
    Dim varDay
    varDay = DateDiff("d", (strDate), Now)
   
    Select Case varDay
        Case 0
            Response.Write("(i dag) ")
        Case 1
            Response.Write("(i går) ")
        Case 2
            Response.Write("(i forgårs) ")
        Case 3
            Response.Write("(3 dage siden) ")
        case varday > 3
            Response.Write("(mere end 3 dage siden) ")
        Case Else
            Response.Write "(" & varDay & " dage siden)"
    End Select
End Sub

hmm - den bliver ved med at vælge min "else" case.
ud fra Response.Write "(" & varDay & " dage siden)"
kan jeg se at varDay er 371  ... weird ... jeg er sgu ved at give op *G*

Parameter til funktionen er en streng i formattet dd-mm-yyyy

//akj


Sub Diff(strDate)
    ' dansk locale  - slet den bare hvis du har angivet den et andet sted
    Session.LCID = 1030

    Dim varDay
    olddate = datevalue(str_date)
    varDay = DateDiff("d", olddate, Now)

   
    Select Case varDay
        Case 0
            Response.Write("(i dag) ")
        Case 1
            Response.Write("(i går) ")
        Case 2
            Response.Write("(i forgårs) ")
        Case 3
            Response.Write("(3 dage siden) ")
        case varday > 3
            Response.Write("(mere end 3 dage siden) ")
        Case Else
            Response.Write "(" & varDay & " dage siden)"
    End Select
end sub

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'datevalue'

/alpha/datediff.asp, line 7

line 7 : olddate = datevalue(str_date)

hvaaaad . Hvilket OS kører du på ??


//akj

mit format er YYYY-MM-DD - men det kan jeg desværre ikke lave om på

det er en gammel nt4 server - med nt4 / 2000 klienter

ahh - fejlen fundet

olddate = datevalue(strdate)

der havde sneget dig en "_" med i strdate

//akj

ang format så skal du bare fjerne "Session.LCID = 1030" fra sub'en

//akj

Det fjernede så fejlen *G* men den vælger stadig "else" sætningen

prøv at erstate select delen med dette:
    Select Case true
        Case varDay = 0
            Response.Write("(i dag) ")
        Case varDay = 1
            Response.Write("(i går) ")
        Case varDay = 2
            Response.Write("(i forgårs) ")
        Case varDay = 3
            Response.Write("(3 dage siden) ")
        Case varday > 3
            Response.Write("(mere end 3 dage siden) ")
        Case Else
            Response.Write "(" & varDay & " dage siden - else sætning)"
    End Select

det virkede - tak
(som tak for hjælpen - smed jeg lidt flere point i puljen)

Det behøvede du skam ikke. Men tak.

//akj - der nu har sommerferie ;o)