DatePart function to display date for Monday and Friday of this week

[Chumley the Walrus]

I'm trying to use DatePart and Datediff functions to show the
formatted m/dd/yyyy display for the dates of Monday and Friday of the
current week. I want it to display as:

Our Weekly Schedule 8/23/2004 thru 8/27/2004:

Can't pinpoint the parameter to check for the current week. Is there a
good reference anywhere to show how to use the methods and such of
both datepart and datediff, or has anyone programmed something similar
prior.
Thanks in advance
Chum

 

[dlbjr]

Function GetWorkWeekDisplay()
dtmDate = Date
intDay = DatePart("w",dtmDate)
If intDay < 2 Then
dtmMonday = DateAdd("d",1,dtmDate)
dtmFriday = DateAdd("d",6,dtmDate)
Else
dtmMonday = DateAdd("d",-(6-intDay),dtmDate)
dtmFriday = DateAdd("d",6-intDay,dtmDate)
End If
GetWorkWeekDisplay = dtmMonday & " thru " & dtmFriday
End Function

dlbjr
Pleading sagacious indoctrination!

 

[Chumley the Walrus]

Function GetWorkWeekDisplay()
dtmDate = Date
intDay = DatePart("w",dtmDate)
If intDay < 2 Then
dtmMonday = DateAdd("d",1,dtmDate)
dtmFriday = DateAdd("d",6,dtmDate)
Else
dtmMonday = DateAdd("d",-(6-intDay),dtmDate)
dtmFriday = DateAdd("d",6-intDay,dtmDate)
End If
GetWorkWeekDisplay = dtmMonday & " thru " & dtmFriday
End Function

dlbjr
Pleading sagacious indoctrination!

Thanks a ton, worked great!

 

[Chumley the Walrus]

Function GetWorkWeekDisplay()
dtmDate = Date
intDay = DatePart("w",dtmDate)
If intDay < 2 Then
dtmMonday = DateAdd("d",1,dtmDate)
dtmFriday = DateAdd("d",6,dtmDate)
Else
dtmMonday = DateAdd("d",-(6-intDay),dtmDate)
dtmFriday = DateAdd("d",6-intDay,dtmDate)
End If
GetWorkWeekDisplay = dtmMonday & " thru " & dtmFriday
End Function

dlbjr
Pleading sagacious indoctrination!

I revised the script somewhat to make sure it always displays monday's
and friday's correct date for the current week:

Function GetWorkWeekDisplay()
dtmDate = Date
intDay = DatePart("w",dtmDate)
If intDay < 2 Then
dtmMonday = DateAdd("d",1,dtmDate)
dtmFriday = DateAdd("d",5,dtmDate)
Elseif intDay = 2 Then
dtmMonday = DateAdd("d",0,dtmDate)
dtmFriday = DateAdd("d",4,dtmDate)
Elseif intDay = 3 Then
dtmMonday = DateAdd("d",-1,dtmDate)
dtmFriday = DateAdd("d",3,dtmDate)
Elseif intDay = 4 Then
dtmMonday = DateAdd("d",-2,dtmDate)
dtmFriday = DateAdd("d",2,dtmDate)
Elseif intDay = 5 Then
dtmMonday = DateAdd("d",-3,dtmDate)
dtmFriday = DateAdd("d",1,dtmDate)
Elseif intDay = 6 Then
dtmMonday = DateAdd("d",-4,dtmDate)
dtmFriday = DateAdd("d",0,dtmDate)
Elseif intDay = 7 Then
dtmMonday = DateAdd("d",-5,dtmDate)
dtmFriday = DateAdd("d",-1,dtmDate)
End If
GetworkweekDisplay = dtmMonday & " thru " & dtmFriday
End Function
response.write "<font size = 3>" & GetworkweekDisplay & ""