DS1994 Memory/Time iButton

[Melanie]

Bah... you can end up improving code until the cows come home...

In the EditDateTime subroutine...

	If UserField=2 then 
		UserMin=1:UserPos=$CB
		Read DOW(1)+20,UserMax
		If UserMax=28 then
			CounterA=DOW(0)//4
			If CounterA=0 then UserMax=29
			endif
		endif

Is a bit more professional and saves 34 bytes.

[NavMicroSystems]

Melanie,

UserPos should be $c8, not $cb

If UserField=2 then 
		UserMin=1:UserPos=$CB '<--------------------- 
		Read DOW(1)+20,UserMax
		If UserMax=28 then
			CounterA=DOW(0)//4
			If CounterA=0 then UserMax=29
			endif
		endif

regards

Yup - you're right - Melanie

[isaac]

Hi Nav / Mel
I have being reading the trend DS1994 Memory/Time iButton and it is very very interesting and just need your help in using the program.
I am using a DS1307 RTC of which i read the following variables

Date =23
Month=03
Year=05
Hour =21
Mins =30
Seconds=30
to give me 23-03-05 21:30:30 (my data & time)
which are all byte variables

But i want to convert this to Linear DAYS and add 365 but can't figure out which subroutine to use as from my understand the subroutines are looking for a 32bit number

Could you be kind enough to explain to me

Best Regards
Isaac

[NavMicroSystems]

ISAAC,

the Subroutine "CalculateLinearFromDate" isn't really that complex, is it?

with your variables beeing:

Date =23
Month=03
Year=05
Hour =21
Mins =30
Seconds=30

all you need to do is:
rename your VAR "Date" to "DAY"
(or create an alias)
and declare the following variables in addition:

CounterA VAR Byte
TempA VAR WORD
TempB VAR WORD
DAYS WAR WORD

once you have read the DS1307 just

GOSUB CalculateLinearFromDate

and you will find the result in "DAYS"

[Yuantu Huang]

Hi Ralph & Melanie,

How to calculate the elapsed hours between 16:30:45 (HH:MM:SS), 28/05/2005 (DD/MM/YYYY) and 02:26:38, 01/08/2004.

Assume the elapsed time is limited to less than one year. Can I use the CalculateLinearFromDate subroutine to do the job?

Best regards,

[Melanie]

CalculateLinearFromDate will account for the DAYS. Multiply by 24 for your TotalHours. Then to account for the Hours...

If EndDateHours > StartDateHours then TotalHours=TotalHours+(EndDateHours-StartDateHours)

If EndDateHours < StartDateHours then TotalHours=TotalHours-(StartDateHours-EndDateHours)

[NavMicroSystems]

You can find the "final" version in the code examples section:

http://www.picbasic.co.uk/forum/show...=3041#post3041

regards:

Ralph