Hi Andree,

ich habe es so gelöst:
Code:
Dim Dcf_buff(7) As Byte

Do...
_sec = Makedec(dcf_buff(1)) : _min = Makedec(dcf_buff(2)) : _hour = Makedec(dcf_buff(3))
_day = Makedec(dcf_buff(5)) : _month = Makedec(dcf_buff(6)) : _year = Makedec(dcf_buff(7))
_weekday = Makedec(dcf_buff(4))
loop..
jetzt liegen alle Datum/Zeitvariablen in dem Dcf-Puffer. Damit kannst Du fleißig weiterarbeiten.
Habe auch noch eine Routine für die Abspeicherung/Lesen aus einem DS1307, seit langem stabil laufend, da. Bei Interesse einfach melden

Gruß MAT