Get DAte from 1 week ago

[Tyron 0]

Is there a way to get a date from a week ago? perhaps some math formulae and return it in YYYYMMDD format?

Cheers

Ty

[guinness 1,434]

Func _GetDateWeekAgo()
    Local $iToday = _DateAdd("d", -7, _NowCalcDate())
    Return StringRegExpReplace($iToday, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
EndFunc   ;==>_GetDateWeekAgo

OR

Func _GetDateWeekAgo()
    Return StringReplace(_DateAdd("d", -7, _NowCalcDate()), "/", "")
EndFunc   ;==>_GetDateWeekAgo

Edited March 31, 2011 by guinness

[sahsanu 27]

You mean something like this?

#include <date.au3>
$today=_DateToDayValue(@YEAR,@MON,@MDAY)
Dim $Y, $M, $D
$weekago=_DayValueToDate($today-7, $Y, $M, $D)
Consolewrite("7 days ago: " & $Y & $M & $D & @CRLF)

[Mat 359]

I imagine the most foolproof way is to get the timestamp, take off 7 * 24 * 60 * 60 (604800) and then convert it back... I don't use many date / time functions but there is a built in date UDF and plenty around the forum if you search.

[Tyron 0]

Hmm interesting, thanks will RoXoR these tips!

[Tyron 0]

You mean something like this?

#include <date.au3>
$today=_DateToDayValue(@YEAR,@MON,@MDAY)
Dim $Y, $M, $D
$weekago=_DayValueToDate($today-7, $Y, $M, $D)
Consolewrite("7 days ago: " & $Y & $M & $D & @CRLF)

That wont work too well esp its its near the beginning of the month, dont you think?

[Melba23 2,491]

Tyron,

Have you tried the code?

I think sahsanu has called it absolutely correctly.

M23

[sahsanu 27]

That wont work too well esp its its near the beginning of the month, dont you think?

No, I don't think so. Did you try the script?

[guinness 1,434]

I confirm too that sahsanu's works!

[Tyron 0]

Your Right M23, it works

Thanks sahsanu! and here i was trying to figure out a math formula for it.

[sahsanu 27]

Thanks sahsanu! and here i was trying to figure out a math formula for it.

You are welcome. But take a look to guinness code too, it works very fine and it is even shorter ;-)