First day of the week?

[tiramisu01]

<br>
Is there a function to determine the date of the first day of the week given the current date? If there isn't, does someone has a code for this? Thanx. 8) <p>Jasper<br><a href=mailto:tiramisu01@hotmail.com>tiramisu01@hotmail.com</a><br><a href= > </a><br>

 

[NickBulka]

This seems to work, assuming the first day of the week is Sunday (if you don't want to do it for the current day, replace 'date' with the date desired):<br>
<br>
Dim theday<br>
Dim firstday<br>
Dim thedate<br>
thedate = date<br>
theday = Weekday(thedate)<br>
firstday = theday - 1<br>
response.write DateAdd(&quot;d&quot;, firstday * -1, thedate)<br>
<br>
<p>nick bulka<br><a href=mailto:nick@bulka.com>nick@bulka.com</a><br><a href= > </a><br>

 

[tiramisu01]

Hey Nic, thanx. Works like magic. 8) <p>Jasper<br><a href=mailto:tiramisu01@hotmail.com>tiramisu01@hotmail.com</a><br><a href= > </a><br>

 

[NickBulka]

Glad I could help. <p>nick bulka<br><a href=mailto:nick@bulka.com>nick@bulka.com</a><br><a href= > </a><br>