Confusing Date ?

Greece2001 · Joined: 06 Apr 2009 Posts: 57

Hi, I'm new to BASCOM and the" Date" command is absolutely confusing me.
Though I (think) I have configured everything correctly, Day and Month are not in the correct order.
Here are parts oy the code :

Config Date = DMY , Separator = . ' day.month.year format
Config Clock = User ' I'm Using the DS1307, works fine ...

dim StrTime As String * 8
Dim BWeekday As Byte
Dim StrWeekday As String * 10
Dim StrDate As String * 8
Dim Weekday As Byte

print #1 , "Date Test" '
_day = 07 ' set the internal vars to 7th of April 2009, today
_month = 04
_year = 09
print #1 , "Date$ = " ; Date$ ' This prints Date$ = 07/04/09 -> Date is okay, but Separator is wrong !
Bweekday = Dayofweek(_day)
print #1 , "_day=" ; _day ' This prints _day=4-> that should be 7 !
print #1 , "Bweekday:" ; bweekday ' This prints Bweekday:5 -> wrong !
Strweekday = Lookupstr(bweekday , Weekdays)
Strdate = Date(_day)
print #1 , "StrDate : " ; StrDate ' this prints StrDate : 04.07.09 -> Separator are okay, but Day / Month are in wrong order !
Print #1 , "Weekday-Number of Day=" ; _day ; " Month=" ; _month ; " Year=" ; _year ; " is " ; Bweekday ; " (" ; Date(_day) ; ") = " ; Strweekday ' -> Day / Month are wrong again
print #1 , "Date$ = " ; Date$ ' this prints Date$ = 7/04/09 -> Day / Month are okay, but Separator is wrong ...

By now I read all the examples, help-files, searched the forum for two days and either I'm too stupid to find my mistake or to understand how to use the Date and Date$ command or there is something else wrong.
So, please throw all you knowledge at me !

regards,
Greece2001

Evert :-) · Joined: 18 Feb 2005 Posts: 2165

Hi Greece,

What version of Bascom are you using and what type of Avr.
It's difficult to reproduce the problem with the incomplete code.

Greece2001 · Joined: 06 Apr 2009 Posts: 57

It is the 1.11.9.0 Demo I got from a friend, the µC ist a mega128.

regards,
Greece2001

oe9vfj · Joined: 17 Jun 2004 Posts: 269 Location: Austria, Hard

I tested your code and it works all well. I got the estimated result.

May be your stack-settings are to low.

Greece2001 · Joined: 06 Apr 2009 Posts: 57

Strange, very strange. Here the definition part of the program and I reduced the program to the date / time - thing, so much of the config-stuff could be left out. The RTC is running fine, keeping time and everthing.