Calculating the Friday of the Current Week

[litlmike]

I am thinking there is a better way to do this. Any suggestions?

Trying to calculate the Friday of that current week.

I want $date3 to always equal the YYYY/MM/DD of the current week.

#include <Date.au3>
$date1 = _DateToDayOfWeek (@YEAR, @MON, @MDAY)
$date2 = 6 - $date1
$date3 = _DateAdd ( "d", $date2, _NowCalcDate())
MsgBox( 4096, "", $date3)

Edited March 3, 2006 by litlmike

[SpookMeister]

@WDAY gives you a numeric for the current day of the week (1-7=Sun-Sat)

so...

$days = 6 - @WDAY ; 6 being the number representing Friday
if $days < 0 Then $days = $days + 7 
msgbox(0,"",$days & " days till Friday")

Edited March 2, 2006 by SpookMeister