home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / _DayValueToDate.au3 < prev    next >
Encoding:
Text File  |  2005-01-03  |  344 b   |  11 lines
  1. #include <Date.au3>
  2.  
  3. ; Julian date of today.
  4. $sJulDate = _DateToDayValue (@YEAR, @MON, @MDAY)
  5. MsgBox(4096, "", "Todays Julian date is: " & $sJulDate)
  6.  
  7. ; 14 days ago calculation.
  8. Dim $Y, $M, $D
  9. $sJulDate = _DayValueToDate ($sJulDate-14, $Y, $M, $D)
  10. MsgBox(4096, "", "14 days ago:" & $M & "/" & $D & "/" & $Y & "  (" & $sJulDate & ")")
  11.