Try this
[code:1:93d25f1a96]Config Clock = Soft ' we use build in clock
Config Date = Dmy , Separator = - ' ANSI-Format
Enable Interrupts
Dim Bweekday As Byte , Strweekday As String * 9
Dim Bmonthday As Byte , Strmonthday As String * 12
_day = 23 : _month = 04 : _year = 13 ' Load RTC-Clock for example - testing
Bweekday = Dayofweek()
Strweekday = Lookupstr(bweekday , Weekdays)
Strmonthday = Lookupstr(_month , Monthdays)
Print Strweekday ; " " ; _day ; " " ; Strmonthday
End 'end program
Weekdays:
Data "MAANDAG" , "DINSDAG" , "WOENSDAG" , "DONDERDAG" , "VRIJDAG" , "ZATERDAG" , "ZONDAG"
Monthdays: ' ( 0="" 1="JANUARI" )
Data "" , "JANUARI" , "FEBRUARI" , "MAART" , "APRIL" , "MEI" , "JUNI" , "JULI" , "AUGUSTUS" , "SEBTEMBER" , "OKTOBER" , "NOVEMBER" , "DECEMBER"
[/code:1:93d25f1a96]
↧