  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
' =========================================================================== ' Demoprogramm: Nummer des heutigen Tages im Jahr berechnen ' In OCBASIC 1.12a_e1 für Open-Maxi von Dietmar Harlos am 21. März 2021 ' =========================================================================== ' Dieses Programm berechnet die Nummer des heutigen Tages im Jahr. Nützlich ' ist das, um für jeden Tag einen anderen Tagesspruch aus den 512 Tages- ' sprüchen auszuwählen und anzuzeigen. ' Die Formel stammt von der sehr guten Seite "Steuerung mit C-Control" von ' Manfred Wilzeck: ' http://manfred.wilzeck.de/ ' --- Definitionen ---------------------------------------------------------- INCLUDE "omax.def" 'Definitionen für die Open-Maxi ' --- Hauptprogramm --------------------------------------------------------- PrintSpc=ON 'SPACE vor einem dezimalen PRINT End2Host=ON 'Bei Programmende gleich in den Host-Modus wechseln DAY=21 'heutiges Datum manuell setzen, MONTH=3 ' alternativ: per DCF77 empfangen oder vom RTC-Modul YEAR=21 ?"Datum:"DAY"."MONTH"."YEAR ?"Tagesnummer im Jahr:"tagesnummer END 'Zurück in den Hostmodus. Neustart mit RETURN-Taste. ' --- Subroutinen und Funktionen -------------------------------------------- ' Tagesnummer im Jahr berechnen. Nach: ' http://manfred.wilzeck.de/Datum_berechnen_Steuerungen.html#Jahrestag FUNCTION tagesnummer RETURN DAY + 489 * MONTH / 16 - 30 + (MONTH >2) * (2 + (YEAR MOD 4 = 0)) END FUNCTION ' --- Programmende --------------------------------------------------------- Passender Link: "Steuerung mit C-Control" von Manfred Wilzeck Meine Homepage: http://ccintern.dharlos.de |
| Antwort schreiben |