WEEKDAY ! — webForum

martinpartinMedlem sedan jan. 2001373 inlägg

Trådstart20 maj 2003 14:06#1

Hej,

Har ett litet problem med weekday.
VIll att om någon av strängarna str_monday osv har ett värde så skall loopen bara "BOKA" den dagen samt exkludera helgdagar som det kan bli.

Alltså nu bokar den hela veckan från ett datum till ett annat utom lördag och söndag.

MEn om man markerar måndag så ska den bara boka måndagar samt inga helgdagar.


Dim str_startdate, str_enddate, str_count

str_startdate = Cdate(""& Request.Form("startdate") &"")
str_enddate = Cdate(""& Request.Form("enddate") &"")

Dim str_monday, str_tuesday, str_wednesday, str_thursday, str_friday

str_monday = Request.Form("monday")
str_tuesday = Request.Form("tuesday")
str_wednesday = Request.Form("wednesday")
str_thursday = Request.Form("thursday")
str_friday = Request.Form("friday")

str_count = 0

  Do Until str_startdate = str_enddate
If WeekDay(str_startdate) < 7 and WeekDay(str_startdate) > 1 Then
  Response.Write(""& str_startdate &"&nbsp;BOKA<BR>")
Else
  Response.Write(""& str_startdate &"&nbsp;BOKA EJ<BR>")
End if
 
  str_startdate = DateAdd("d", 1, str_startdate)
  str_count = str_count + 1

Loop

Någon som har en idé ?

Mvh
Martin

Engine^Medlem sedan dec. 20003 887 inlägg

20 maj 2003 16:30#2

Do Until str_startdate = str_enddate
  If (WeekDay(str_startday, 2) < 6 And WeekDay(str_startday, 2) > 0) And _
  (str_monday <> "" Or str_tuesday <> "" Or str_wednesday <> "" Or str_thursday <> "" Or str_friday <> "") Then
    Response.Write str_startday & " BOKA<br>"
  Else
    Response.Write str_startday & " BOKA EJ<br>"
  End If

  str_startdate = DateAdd("d", 1, str_startdate)
  str_count = str_count + 1
Loop

WeekDay(Date, 2)... 2:an innebär att VBS ska använda Måndag som veckans första dag. Så Måndag = 1 och Fredag = 5