Changing custom day format.

[Diana (Cda)]

Some time back I was kindly given this specialized date format that I use constantly, i.e., in backup names to show date. It decreases the standard 3-character short date format to just 2 characters:

$ShortDayMyFormat = StringMid("Sn,Mn,Tu,Wd,Th,Fr,Sa", StringInStr("SunMonTueWedThuFriSat", _DateDayOfWeek(@WDAY,1) ), 2)oÝ÷ ØÊøvÚ,¹»kiËhçZÉ«­¢+ØÀÌØíM¡½ÉÑå5å½ÉµÐôMÑÉ¥¹5¥ ÅÕ½ÐíM¸±5¸±QÔ±]±Q ±È±MÅÕ½Ðì°MÑÉ¥¹%¹MÑÈ ÅÕ½ÐíMÕ¹5½¹QÕ]Q¡ÕÉ¥MÐÅÕ½Ðì°}Ñå=]¬¡]d´Ä°Ä¤¤°È

For some reason, though "-1" above with @WDAY (and @MDAY elsewhere in script) gives me yesterday's date in both day of month and day of week, anything beyond that becomes unreliable ... i.e., when I try using "-2", "-3" and beyond. So even though 0 for today and -1 for yesterday works, this technique must actually not be the correct way since anything beyond that gives some pretty wacky results sometimes.

Is there a way to get dates based on a starting date and subtracting from it??

Edited June 15, 2009 by Diana (Cda)

[water]

With _DateAdd you can subtract as well. See example 2 in the helpfile.

[Malkey]

Some time back I was kindly given this specialized date format that I use constantly, i.e., in backup names to show date. It decreases the standard 3-character short date format to just 2 characters:

$ShortDayMyFormat = StringMid("Sn,Mn,Tu,Wd,Th,Fr,Sa", StringInStr("SunMonTueWedThuFriSat", _DateDayOfWeek(@WDAY,1) ), 2)

Modified to subtract one day:

$ShortDayMyFormat = StringMid("Sn,Mn,Tu,Wd,Th,Fr,Sa", StringInStr("SunMonTueWedThuFriSat", _DateDayOfWeek(@WDAY-1,1) ), 2)

For some reason, though "-1" above with @WDAY (and @MDAY elsewhere in script) gives me yesterday's date in both day of month and day of week, anything beyond that becomes unreliable ... i.e., when I try using "-2", "-3" and beyond. So even though 0 for today and -1 for yesterday works, this technique must actually not be the correct way since anything beyond that gives some pretty wacky results sometimes.

Is there a way to get dates based on a starting date and subtracting from it??

Using Mod() in _DateDayOfWeek() will produce a zero which is not allowed as a parameter. "One" must be added after the Mod() to avoid zero. To keep today's day of the week correct, "minus one" is added within the Mod() function.

;
#include <Date.au3>

Local $sRes = ""

For $x = -11 To 9

    $ShortDayMyFormat = StringMid("Sn,Mn,Tu,Wd,Th,Fr,Sa", _
            StringInStr("SunMonTueWedThuFriSat", _DateDayOfWeek(Mod(49 + @WDAY + $x, 7) + 1, 1)), 2)

    $sRes &= $x + 1 & " days  from today = " & $ShortDayMyFormat & @CRLF
Next

$sRes &= @CRLF & "Today is = " & StringMid("Sn,Mn,Tu,Wd,Th,Fr,Sa", _
        StringInStr("SunMonTueWedThuFriSat", _DateDayOfWeek(Mod(49 + @WDAY - 1, 7) + 1, 1)), 2)

MsgBox(0, "", $sRes)
;