Trying to find a date between two other dates

[nitekram]

Not sure how to fix this function...I want the Return to be true if today's date falls between the start date and the end date. I really thought I had this figured out until I ran across an issue where the start date is in the prior month and the end date is in the current month.

Any help?

My raw data is as such:

!< START 2013-01-31

!< ENDS 2013-02-07

!< TODAY 2013-02-05

expandcollapse popup

Func CheckTodaysDate($Starts, $Ends, $Today)
    ConsoleWrite('CALLING CheckTodaysDate -->' & @CRLF & @CRLF)
    ConsoleWrite("!< START " & $Starts & @CRLF)
    ConsoleWrite("!< ENDS " & $Ends & @CRLF)
    ConsoleWrite("!< TODAY " & $Today & @CRLF)
    ConsoleWrite(@CRLF)

    Local $aStarts = StringSplit($Starts, '-')
    Local $aEnds = StringSplit($Ends, '-')
    Local $aToday = StringSplit($Today, '-')

    ConsoleWrite(@CRLF)

    For $x = 0 To UBound($aStarts) - 1
        ConsoleWrite($x & ' = ' & $aStarts[$x] & '   ')
    Next
    ConsoleWrite(@CRLF)
    For $x = 0 To UBound($aEnds) - 1
        ConsoleWrite($x & ' = ' & $aEnds[$x] & '     ')
    Next
    ConsoleWrite(@CRLF)
    For $x = 0 To UBound($aToday) - 1
        ConsoleWrite($x & ' = ' & $aToday[$x] & '    ')
    Next
    ConsoleWrite(@CRLF)

    ConsoleWrite(@CRLF & 'CHECKING -->> STARTS ' & $Starts & ' ENDS ' & $Ends & ' ? TODAY ' & $Today & @CRLF)

    If $aStarts[1] = $aToday[1] Or $aEnds[1] = $aToday[1] Then
        If $aStarts[2] = $aToday[2] Or $aEnds[2] = $aToday[2] Then
            If $aStarts[3] = $aToday[3] Or ($aStarts[3] <= $aToday[3] And $aEnds[3] >= $aToday[3]) Or $aEnds[3] = $aToday[3] Then
                ;MsgBox('', 'Change Today', '')
                ConsoleWrite('MATCH FOUND -->> ' & $Starts & ')' & ' (ENDS = ' & $Ends & ')' & ' (Today = ' & $Today & ')' & @CRLF)
                ConsoleWrite('-->' & @CRLF & @CRLF)
                Return True
            Else

                ConsoleWrite('WRONG DAY NO MATCH (STARTS = ' & $Starts & ')' & ' (ENDS = ' & $Ends & ')' & ' (Today = ' & $Today & ')' & @CRLF)
                ConsoleWrite('-->' & @CRLF & @CRLF)
            EndIf
        Else
            ConsoleWrite('WRONG MONTH NO MATCH (STARTS = ' & $Starts & ')' & ' (ENDS = ' & $Ends & ')' & ' (Today = ' & $Today & ')' & @CRLF)
            ConsoleWrite('-->' & @CRLF & @CRLF)
            Return False
        EndIf

    Else
        ConsoleWrite('WRONG YEAR -->> NO MATCH (STARTS = ' & $Starts & ')' & ' (ENDS = ' & $Ends & ')' & ' (Today = ' & $Today & ')' & @CRLF)
        ConsoleWrite('-->' & @CRLF & @CRLF)
        Return False
    EndIf



EndFunc   ;==>CheckTodaysDate

[Jos]

Shouldn't your tests be?:

If $aStarts[1] <= $aToday[1] And $aEnds[1] >= $aToday[1] Then
        If $aStarts[2] <= $aToday[2] And $aEnds[2] >= $aToday[2] Then
            If $aStarts[3] <= $aToday[3] And $aEnds[3] >= $aToday[3] Then

Jos

[water]

Something like this:

#include <date.au3>
Global $sStartDate = "2013-01-31"
Global $sEndDate = "2013-02-07"
Global $sCurrentDate = "2013-02-05"
$sStartDate = StringReplace($sStartDate, "-", "/")
$sEndDate = StringReplace($sEndDate, "-", "/")
$sCurrentDate = StringReplace($sCurrentDate, "-", "/")
If _DateDiff("D", $sStartDate, $sCurrentDate) >= 0 And _DateDiff("D", $sCurrentDate, $sEndDate) >= 0 Then
    MsgBox(0, "Result", $sCurrentDate & " lies between " & $sStartDate & " and " & $sEndDate)
EndIf

[nitekram]

Something like this:

That works - thanks. - though you made it look a lot easier then I tried. I will have to look up that function _DateDiff, in fact, I think I might have to revisit the newer functions and read them. I know there have been quite a few new ones added.

[water]

IIRC this date functions have been there for a very very long time.

[nitekram]

I guess what I should have said was, I had printed the main UDF's from the help file and really studied them - years ago. But since then, there are some added functions that start with _NameOfFunction - which, I have not really used in the past - except _Array? ones. I guess you use what you know and need, and then learn more - I just stopped reading.

And now looking at the list of all them - I am scared! But interested.

Thanks again - @water - for all your help!!!

EDIT

Plus I learned this

IIRC is "If I Remember Correctly"

Edited February 5, 2013 by nitekram

[water]

Glad to be of service

[Jos]

@Water,

why are you changing the delimiters first?

_DateTimeSplit()) shows all supported formats by all Date functions I wrote for the original set of Date.au3 functions.

Cheers,

Jos

[water]

Because - according to the docu - "/" is the separator for _DateDiff.

Edit: You mean all _Date* functions accept the date formats as listed in _DateTimeSplit?!

In this case I would like to see a small remark in any of the _Date* functions if not already done for the next beta.

Edited February 5, 2013 by water

[Jos]

I know the documentation doesn't always repeat all format options... don't remember why we did that, but do know I build generic support for the formats listed in _DateTimeSplit()

Jos.

[water]

I will have a look at the latest documentation. If the format options are missing I will add a remark pointing to _DateTimeSplit.

Would that be OK?

water

[guinness]

I will have a look at the latest documentation. If the format options are missing I will add a remark pointing to _DateTimeSplit.

Would that be OK?

water

I think I did that already, but by all means check.

[nitekram]

This does work, but it does NOT say anything about the types of formats supported in the helpfile

Edit added NOT

EDIT

I know I should not have written that way.the function _DateTimpSplit() does show supported formats but the _DateDiff() does not list them.

Edited February 5, 2013 by nitekram

[guinness]

I know I should not have written that way.the function _DateTimpSplit() does show supported formats but the _DateDiff() does not list them.

No panic, it does in the current beta version of the help file.

Revision: 7446

Author: guinness

Date: 11 December 2012 21:44:20

Message:

Added: Remark about input variations for the date formats.

----

Modified : /txt2htm/txtlibfunctions/_DateAdd.txt

Modified : /txt2htm/txtlibfunctions/_DateDiff.txt

Modified : /txt2htm/txtlibfunctions/_DateTimeFormat.txt