Reverse Day Of Year

[myspacee]

Hello,
need for a command line script that return what date corresponds to the day of the year.
(eg: Today 2019/07/29 is 210th day of year, i need to reverse it )

In this mini-script (compiled as console), Autoit return DOY based on today date

#include <Date.au3>

Dim $Day1 = @YEAR & "/01/01"

If $CmdLine[0] = 0 Then

    $Days = _DateDiff("D", $Day1, _NowCalcDate() )
    ConsoleWrite(StringRight("000" & String($Days + 1), 3))
    
ElseIf $CmdLine[0] = 1 Then

    ;/////////////////////////
    ;//    MISS idea/code
    ;/////////////////////////    

    
EndIf

In my idea, if I give as parameter Doy Of Year to script, it must return date in this format YYYY/mm/dd
(eg: script.exe 210  ---> 2019/07/29)

Please, can you help me ?

Thank you,
m.

[BrewManNH]

Maybe _DateAdd might be what you're looking for?

[water]

Use something like this:

Add your Day of Year to the _DateToDayValue of 01/01/@YEAR.
Then use _DayValueToDate to calculate the date.

Edited July 29, 2019 by water

[water]

_DateAdd seems to have a limitation regarding the initial date:

Quote

Valid initial date must be between "2000/01/01 00:00:00". and "3000/12/31 23:59:59".

 

[BrewManNH]

22 minutes ago, water said:

_DateAdd seems to have a limitation regarding the initial date:

I was assuming the user wouldn't need a date from the last century.
 

[myspacee]

Brew you are right. I need only referred to this year.

Can correct this for me ?

#include <Date.au3>

Dim $Day1 = @YEAR & "/01/01"



If $CmdLine[0] = 0 Then

    $Days = _DateDiff("D", $Day1, _NowCalcDate() )
    ConsoleWrite(StringRight("000" & String($Days + 1), 3))

ElseIf $CmdLine[0] = 1 Then
   
   ; Julian date of today.
   Local $sJulDate = _DateToDayValue(@YEAR, @MON, @MDAY)
   Local $Y, $M, $D
   $today_doy = _DateDiff("D", $Day1, _NowCalcDate() ) + 1

   if number($today_doy) > number($CmdLine[1]) Then
      consolewrite("today is after : " & number($today_doy) & "-" & number($CmdLine[1]) & " = " & number($today_doy) - number($CmdLine[1]) & @CRLF)
      $my_datediff = number($today_doy) - number($CmdLine[1])
      $doy_sJulDate = _DayValueToDate($sJulDate - $my_datediff, $Y, $M, $D)
      consolewrite($doy_sJulDate)

   Else
      consolewrite("today is before : " & number($CmdLine[1]) & "-" & number($today_doy) & " = " & number($CmdLine[1]) - number($today_doy) & @CRLF)
      $my_datediff = number($CmdLine[1]) - number($today_doy)
      $doy_sJulDate = _DayValueToDate($sJulDate + $my_datediff, $Y, $M, $D)
      consolewrite($doy_sJulDate)
   EndIf


EndIf

IF today is > DOY given, I (_DayValueToDate - DatesDiff)
ELSEIF today is < DOY given, I (_DayValueToDate + DatesDiff)

This logic is correct ?

[BrewManNH]

I'd use _DateAdd, it's much simpler.

#include <Date.au3>
$iDate = 210
ConsoleWrite("Date " & _DateAdd("D", $iDate, @YEAR & "/01/01") & " is " & $iDate & " days from " & @YEAR & "/01/01" & @CRLF)

 

[water]

As often the solution depends on what you need/want
If you just need YYYY/MM/DD of the calculated date then use

; Calculate the date
$sCalculatedDate = _DateDiff("D", $iDOY - 1, @YEAR & "/01/01")
; Is $iDOY before/after/equal to today?
If $iDOY < @YDAY Then
    ConsoleWrite($iDOY & " is before today!" & @CRLF)
ElseIf $iDOY > @YDAY Then
    ConsoleWrite($iDOY & " is after today!" & @CRLF)
Else
    ConsoleWrite($iDOY & " is today!" & @CRLF)
EndIf

If you - in addition - need to know if the DOY is before/after today then you'll need further calculations. Implemented in my code above.

Edited July 31, 2019 by water

[Skysnake]

There is a problem with what you are trying to do.

The problem is Microsoft Windows local environment. PC dates may differ from PC to PC, depending on settings.

You should plan and work around this. Consider determining the date independently of the OS. Look at macros and _GUICtrlDTP_SetFormat()

@yday ;^^

Good luck