Der Nachfolger des WDR-Computerclub mit Wolfgang Back und Wolfgang Rudolph - ...und immer ein Bit übrigbehalten!


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Demoprogramm: Nummer des heutigen Tages im Jahr berechnen Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Dietmar, Homepage - 21.03.2021 21:21)
Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi, Open-Mini Station
' ===========================================================================
' 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

Bisherige Antworten: