Date Expired Function ?

[DaProgrammer]

Did Some1 write a Func that checks if a date has expired (AKA: has been; old) ?

i can write 1 of my own i gess, but i was just wondering if some1 saw anything of the kind ?

[Xenobiologist]

Hi,

for what? Parameter date and days and then return if expired?

So long,

Mega

[DaProgrammer]

Hi,

for what? Parameter date and days and then return if expired?

So long,

Mega

i have a Date : "19/02/2007" & Time : "12:01:53"

i need to check against the PC clock to see if this Moment Has happend or is in the future.

EDIT : i found this but it doesnt work :? any1 knows why ?

If _DateDiff("s", IniRead2($i2, "Year") & "/" & IniRead2($i2, "Month") & "/" & IniRead2($i2, "Day") & "[" & IniRead2($i2, "Hour") & ":" & IniRead2($i2, "Minute") & ":00]", @YEAR & "/" & @MON & "/" & @MDAY & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]") > 0 Then Lunch()

Edited July 20, 2007 by DaProgrammer

[DW1]

This should get you started

_NowCalc ( ) : Returns the current Date and Time in format YYYY/MM/DD HH:MM:SS

EDIT: You need to use the "#Include <Date.au3>"

Edited July 20, 2007 by danwilli

[DaProgrammer]

This should get you started

_NowCalc ( ) : Returns the current Date and Time in format YYYY/MM/DD HH:MM:SS

EDIT: You need to use the "#Include <Date.au3>"

ty, its easier this way.

now why does this doesnt work :

If _DateDiff( 's',$Input_Year & "/" & $Input_Month & "/" & $Input_Day & " " & $Input_Hour & ":" & $Input_Min & ":00",_NowCalc()) > 0 Then Return

this wont work either :

If _DateDiff( 's',String($Input_Year) & "/" & String($Input_Month) & "/" & String($Input_Day) & " " & String($Input_Hour) & ":" & String($Input_Min) & ":00",_NowCalc()) > 0 Then Return

Edited July 20, 2007 by DaProgrammer

[DW1]

if its a gui input, you need to use this syntax:

GUICtrlRead( $Input_Year )

[DaProgrammer]

OK now it works when its clean program like this :

#include <Date.au3>
 $Input_Day = 15
 $Input_Hour = 12
 $Input_Min = 12
 $Input_Month = 06
 $Input_Year = 2006
 
 
 If _DateDiff( 's',String($Input_Year) & "/" & String($Input_Month) & "/" & String($Input_Day) & " " & String($Input_Hour) & ":" & String($Input_Min) & ":00",_NowCalc()) > 0 Then MsgBox(0,"",_NowCalc())

but inside Function it doesnt why ?

Func Save()
     If _DateDiff( 's',String($Input_Year) & "/" & String($Input_Month) & "/" & String($Input_Day) & " " & String($Input_Hour) & ":" & String($Input_Min) & ":00",_NowCalc()) > 0 Then Return

[DaProgrammer]

if its a gui input, you need to use this syntax:

GUICtrlRead( $Input_Year )

dammit LOL how did i forgot u have no idea how imberesed i feel right now

EDIT : Got it to work

Edited July 20, 2007 by DaProgrammer

[Richard Robertson]

Where are $Input_Year and the others declared? Are the local to another function or are they parameters? You need to make sure that the correct value cascades through the program.

Edit: Ok, nevermind.

Edited July 20, 2007 by Richard Robertson

[Jos]

OK now it works when its clean program like this :

#include <Date.au3>
 $Input_Day = 15
 $Input_Hour = 12
 $Input_Min = 12
 $Input_Month = 06
 $Input_Year = 2006
 
 
 If _DateDiff( 's',String($Input_Year) & "/" & String($Input_Month) & "/" & String($Input_Day) & " " & String($Input_Hour) & ":" & String($Input_Min) & ":00",_NowCalc()) > 0 Then MsgBox(0,"",_NowCalc())

but inside Function it doesnt why ?

Func Save()
     If _DateDiff( 's',String($Input_Year) & "/" & String($Input_Month) & "/" & String($Input_Day) & " " & String($Input_Hour) & ":" & String($Input_Min) & ":00",_NowCalc()) > 0 Then Return

Just try to do some debugging when you are programming and it doesn't work as expected.

Put MsgBox() or ConsoleWrite statement in your code to check the exact content of variables ... (avoid this guessing game)

Also no need for the string() function in there ...

Edited July 20, 2007 by JdeB

[DW1]

LOL, as long as it works

[SpookMeister]

I made this a while back... does it suit your needs?

;You must #include <date.au3>
;Returns the age of a file in days
Func _FileAge($FilePathAndName)
    $iToday = _DateToDayValue (@YEAR, @MON, @MDAY)
    $iTime = FileGetTime($FilePathAndName,0,0)
    $iJulian = _DateToDayValue($iTime[0], $iTime[1], $iTime[2])
    $iAge = $iToday - $iJulian
    If $iAge < 0 Then $iAge = 0
    Return ($iAge)
EndFunc

Edited July 20, 2007 by SpookMeister

[Xenobiologist]

Hi,

or easy way:

#include<date.au3>
Global $date = "2006/02/19 12:01:53"

MsgBox(0,"",_checkDate($date))

Func _checkDate($date)
    If $date < _NowCalc() Then Return 1; past
    If $date = _NowCalc() Then Return 2
    If $date > _NowCalc() Then Return 3; future
EndFunc  ;==>_checkDate

So long,

Mega

[PsaltyDS]

Hi,

or easy way:

#include<date.au3>
Global $date = "2006/02/19 12:01:53"

MsgBox(0,"",_checkDate($date))

Func _checkDate($date)
    If $date < _NowCalc() Then Return 1; past
    If $date = _NowCalc() Then Return 2
    If $date > _NowCalc() Then Return 3; future
EndFunc ;==>_checkDate

So long,

Mega

Good idea, but I would go with returns of 0, 1, and 2, which makes it easier to use with: If _checkDate() Then...