Random date

[Pain]

I was shocked when I found out that AutoIt did not have any random date function. I couldn't find that anyone else did it before so I made one because I needed it in one of my project.

#include <Date.au3>

ConsoleWrite(RandomDate("2008/01/01 00:00:00"))

Func RandomDate($Start)
    Local $Difference
    Local $rand

    If Not _DateIsValid($Start) Then 
        MsgBox(0, "Error", "The specified date is invalid.")
        Return ""
    Else
        $Difference = _DateDiff('s', $Start, _NowCalc())
        $rand = Random(0, $Difference, 1)
        Return _DateAdd('s', $rand, $Start) 
    EndIf
EndFunc

[Valuater]

Good idea!!

to be "random"

#include <Date.au3>

ConsoleWrite(RandomDate("2008/01/01 00:00:00") & @CRLF)

ConsoleWrite(RandomDate("2008/04/01 00:00:00", "2008/05/01 00:00:00") & @CRLF)

Func RandomDate($Start, $End = "")
    Local $Difference, $rand
    If $End = "" Then $End = _NowCalc()

    If Not _DateIsValid($Start) Or Not _DateIsValid($End) Then
        MsgBox(0, "Error", "The specified date is invalid.")
        Return ""
    Else
        $Difference = _DateDiff('s', $Start, $End)
        $rand = Random(0, $Difference, 1)
        Return _DateAdd('s', $rand, $Start)
    EndIf
EndFunc   ;==>RandomDate

8)

[trancexx]

Good idea!!

to be "random"

#include <Date.au3>

ConsoleWrite(RandomDate("2008/01/01 00:00:00") & @CRLF)

ConsoleWrite(RandomDate("2008/04/01 00:00:00", "2008/05/01 00:00:00") & @CRLF)

Func RandomDate($Start, $End = "")
    Local $Difference, $rand
    If $End = "" Then $End = _NowCalc()

    If Not _DateIsValid($Start) Or Not _DateIsValid($End) Then
        MsgBox(0, "Error", "The specified date is invalid.")
        Return ""
    Else
        $Difference = _DateDiff('s', $Start, $End)
        $rand = Random(0, $Difference, 1)
        Return _DateAdd('s', $rand, $Start)
    EndIf
EndFunc   ;==>RandomDate

8)

Nothing random comes out of there if I use it like this:

#include <Date.au3>

ConsoleWrite(RandomDate("2008/01/01 00:00:22", "2008/01/01 00:00:00") & @CRLF)

Func RandomDate($Start, $End = "")
    Local $Difference, $rand
    If $End = "" Then $End = _NowCalc()

    If Not _DateIsValid($Start) Or Not _DateIsValid($End) Then
        MsgBox(0, "Error", "The specified date is invalid.")
        Return ""
    Else
        $Difference = _DateDiff('s', $Start, $End)
        $rand = Random(0, $Difference, 1)
        Return _DateAdd('s', $rand, $Start)
    EndIf
EndFunc

I'm doing something wrong, right?

[Jos]

It says RandomDate() ... not RandomDateTime()

[youknowwho4eva]

*Imagines a BlindDate() function*

[Valuater]

Now This is a Rabdom Date Function...

ConsoleWrite(RandomDate() & @CRLF)

ConsoleWrite(RandomDate("Male") & @CRLF)

ConsoleWrite(RandomDate("Female") & @CRLF)

Func RandomDate($iSex = "Male")
    $sList = "Cindy,Debbie,Laticia,Wilma,Sorry,Try Again!"
    If $iSex = "Female" Then $sList = "Brett,George,Ron,Jon,Sorry,Try Again!"
    $sSplit = StringSplit($sList, ",")
    Return $sSplit[(Random(1, $sSplit[0], 1))]
EndFunc   ;==>RandomDate

8)

[GEOSoft]

Now This is a Rabdom Date Function...

ConsoleWrite(RandomDate() & @CRLF)

ConsoleWrite(RandomDate("Male") & @CRLF)

ConsoleWrite(RandomDate("Female") & @CRLF)

Func RandomDate($iSex = "Male")
    $sList = "Cindy,Debbie,Laticia,Wilma,Sorry,Try Again!"
    If $iSex = "Female" Then $sList = "Brett,George,Ron,Jon,Sorry,Try Again!"
    $sSplit = StringSplit($sList, ",")
    Return $sSplit[(Random(1, $sSplit[0], 1))]
EndFunc   ;==>RandomDate

8)

Hmmmmmmmmmm.

Are you sure you have this part right?

$sList = "Cindy,Debbie,Laticia,Wilma,Sorry,Try Again!"
    If $iSex = "Female" Then $sList = "Brett,George,Ron,Jon,Sorry,Try Again!"

Not sure if I should raise an objection or not.

[Jos]

George, you mean you wanted to be listed in the girly section?

Sorry, let's all get back ontopic

[Valuater]

Hmmmmmmmmmm.

Are you sure you have this part right?

$sList = "Cindy,Debbie,Laticia,Wilma,Sorry,Try Again!"
     If $iSex = "Female" Then $sList = "Brett,George,Ron,Jon,Sorry,Try Again!"

Not sure if I should raise an objection or not.

That's Great, Your the winner, Someone who really read the code!!!

8)

Edited January 16, 2009 by Valuater