Action
Returns a number, which represents the System Day
Syntax
Target = SysDay()
Target = SysDay(bDayMonthYear)
Target = SysDay(strDate)
Target = SysDay(lSysSec)
Remarks
Target |
A Variable (WORD), that is assigned with the System-Day |
bDayMonthDay |
A Byte, which holds the Day-value followed by Month(Byte) and Year (Byte) |
strDate |
A String, which holds a Date-String in the format specified in the CONFIG DATA statement |
lSysSec |
A variable, which holds a System Second (SysSec) |
The Function can be used with 4 different kind of inputs:
| 1. | Without any parameter. The internal Date-values of SOFTCLOCK (_day, _month, _year) are used. |
| 2. | With a user defined date array. It must be arranged in same way (Day, Month, Year) as the internal SOFTCLOCK date. The first Byte (Day) is the input by this kind of usage. So the Day of the Year can be calculated of every date. |
| 3. | With a Date-String. The date-string must be in the Format specified in the Config Date Statement. |
| 4. | With a System Second Number (LONG) |
The Return-Value is in the Range of 0 to 36524. 2000-01-01 starts with 0.
The Function is valid in the 21th century (from 2000-01-01 to 2099-12-31).
See also
Date and Time Routines , Config Date , Config Clock , SysSec
Example
Enable Interrupts
Config Clock = Soft
Config Date = YMD , Separator =.' ANSI-Format
Dim Strdate As String * 8
Dim Bday Asbyte , Bmonth As Byte , Byear As Byte
Dim Wsysday As Word
Dim Lsyssec As Long
' Example 1 with internal RTC-Clock
_day = 20 : _Month = 11 : _Year = 2 ' Load RTC-Clock for example - testing
Wsysday = Sysday()
Print "System Day of " ; Date$ ; " is " ; Wsysday
' System Day of 02.11.20 is 1054
' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 24 : Bmonth = 5 : Byear = 8
Wsysday = Sysday(bday)
Print "System Day of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " is " ; Wsysday
' System Day of Day=24 Month=5 Year=8 is 3066
' Example 3 with Date - String
Strdate = "04.10.29"
Wsysday = Sysday(strdate)
Print "System Day of " ; Strdate ; " is " ; Wsysday
' System Day of 04.10.29 is 1763
' Example 4 with System Second
Lsyssec = 123456789
Wsysday = Sysday(lsyssec)
Print "System Day of System Second " ; Lsyssec ; " is " ; Wsysday
' System Day of System Second 123456789 is 1428"Now it's " ; Lsystemsecondselapsed ; " seconds later"