Hvordan viser man ugedage

ku du evt få noget ud af den her function en af mine kammerater har lavet?

Function SplitDate(Data)
  Data = Replace(Data, \"/\", \"-\")
  DateArray = Split(Data, \"-\")
 
  \' Retter dagen til
  ThisDay = DateArray(0)
 
  \' Retter måneden til
  ThisMonth = DateArray(1)
  If ThisMonth = \"01\" Then
    ThisMonth = \"januar\"
  ElseIf ThisMonth = \"02\" Then
    ThisMonth = \"februar\"
  ElseIf ThisMonth = \"03\" Then
    ThisMonth = \"marts\"
  ElseIf ThisMonth = \"04\" Then
    ThisMonth = \"april\"
  ElseIf ThisMonth = \"05\" Then
    ThisMonth = \"maj\"
  ElseIf ThisMonth = \"06\" Then
    ThisMonth = \"juni\"
  ElseIf ThisMonth = \"07\" Then
    ThisMonth = \"juli\"
  ElseIf ThisMonth = \"08\" Then
    ThisMonth = \"august\"
  ElseIf ThisMonth = \"09\" Then
    ThisMonth = \"september\"
  ElseIf ThisMonth = \"10\" Then
    ThisMonth = \"oktober\"
  ElseIf ThisMonth = \"11\" Then
    ThisMonth = \"november\"
  ElseIf ThisMonth = \"12\" Then
    ThisMonth = \"december\"
  End If
 
  \' Retter året til
  ThisYear = DateArray(2)
 
  SplitDate = ThisDay &\". \"& ThisMonth &\", \"& ThisYear
End Function

Zed_one:
Jeg ved ikke helt hvordan jeg skal bruge denne function - Kan du give et hint, eller måske et eksempel ? tak..

nææ faktisk ik *g* ..ergo kan du ikke bruge den...jeg smutter igen ;)

Du skal have pointene alligevel - for Det script skal jeg da bare have til at virke :)

jamm tak! :) *er overrasket* det havde du nu ik behøvet at gøre :)

-Zed

Hej echelon01

Så vidt jeg husker er datetime-formatet konstrueret således at heltalsdelen repræsenterer datoen. Hvis du tager denne del modulus\'er med 7 får du et tal der repræsenterer ugedagen. 0=Lørdag, 1=Søndag, 2=Mandag o.s.v.

I VBScript vil det vel være noget lignende:
Ugedag = Int(Dato) mod 7

</hkramer>

dag = WeekDay(date())
select case dag
case 1
  FileName = \"sondag.htm\"
case 2
  FileName = \"mandag.htm\"
case 3
  FileName = \"tirsdag.htm\"
case 4
  FileName = \"onsdag.htm\"
case 5
  FileName = \"torsdag.htm\"
case 6
  FileName = \"fredag.htm\"
case 7
  FileName = \"lordag.htm\"
end select
\'Response.Redirect (\"\"&FileName)
Response.write (\"\"&FileName)

der skal bare rettes lidt i teksten :)