Tagesnummer berechnen?

[verona]

hi leute

wie kann man unter s7 die genaue tagesnummer berechnen?z. B. 4. januar= 4 tag im jahr. gibt es das irgendwelche formel für. habe bis jetzt nichts vernünftiges gefunden. wer kann mir helfen?

vielen dank schonmal

[Onkel Dagobert]

Hallo Verona,

darf's auch SCL sein? Alles ohne Gewähr.

(************************************************************************************************************************)
FUNCTION "DATUM_TO_JAHRESTAG" : INT
TITLE = 'Jahrestag aus Datum'
(************************************************************************************************************************)
KNOW_HOW_PROTECT
VERSION : '1.0'
AUTHOR  : Onkel Dagobert ;-)
NAME    : DATE
FAMILY  : Entenhausen
(************************************************************************************************************************)

VAR_INPUT
  TAG, MONAT                : INT;
  SCHALTJAHR                : BOOL;
END_VAR

VAR_TEMP
  a                         : INT;
END_VAR

BEGIN
//______________________________________________________________________________
//    Jahrestag aus Datum berechnen
//¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
 a := 2;
 IF SCHALTJAHR THEN
   a := 1;
 END_IF;
 DATUM_TO_JAHRESTAG:=REAL_TO_INT(TRUNC(275*MONAT/9)-a*TRUNC((monat+9)/12)+tag-30);

END_FUNCTION;

(************************************************************************************************************************)
FUNCTION "SCHALTJAHR" : BOOL
TITLE = 'Schaltjahr'
// Funktion getestet
(************************************************************************************************************************)
KNOW_HOW_PROTECT
VERSION : '1.0'
AUTHOR  : Onkel Dagobert ;-)
NAME    : DATE
FAMILY  : Entenhausen
(************************************************************************************************************************)

VAR_INPUT
  JAHR                      : INT;      // vierstellige Jahreszahl
END_VAR

BEGIN
  SCHALTJAHR := false;
  IF (JAHR MOD 400 = 0) OR
     (JAHR MOD 4   = 0) AND
     &#40;JAHR MOD 100 <> 0&#41;THEN
     SCHALTJAHR &#58;= true;
END_IF;

END_FUNCTION;

(************************************************************************************************************************)
FUNCTION "JAHRESZAHL_VIERSTELLIG" : VOID
TITLE = 'Datum mit vierstelliger Jahreszahl aus Systemdatum ermitteln'
(************************************************************************************************************************)
KNOW_HOW_PROTECT
VERSION : '1.0'
AUTHOR  : Onkel Dagobert ;-)
NAME    : DATE
FAMILY  : Entenhausen
(************************************************************************************************************************)

VAR_OUTPUT
  TAG, MONAT, JAHR          : INT;
END_VAR

VAR
  TEMP_DT                   : DT;
  CDT AT TEMP_DT            : ARRAY[0..7] OF BYTE;
  TEMP_INT                  : INT;
END_VAR
  
//______________________________________________________________________________
//    Datum mit vierstelliger Jahreszahl aus Systemdatum ermitteln
//¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
BEGIN
TEMP_INT := READ_CLK(CDT:=TEMP_DT);
TAG      := WORD_TO_INT(BYTE_TO_WORD(CDT[2])); 
MONAT    := WORD_TO_INT(BYTE_TO_WORD(CDT[1])); 
TEMP_INT := WORD_TO_INT(BYTE_TO_WORD(CDT[0]));
IF TEMP_INT >= 90
   THEN JAHR := TEMP_INT + 1900;
   ELSE JAHR := TEMP_INT + 2000;
END_IF;
END_FUNCTION;

Gruss, Onkel

[Onkel Dagobert]

Hallo,

da o.g. Berechnung nicht nachvollziehbar ist, hier eine Testumgebung zum Simulieren. Es wird zunächst eine Zahl von 1 bis 365/366 erzeugt. Aus dieser wird mit einer FC das Datum (Tag, Monat) berechnet. Aus diesem Datum wird wiederum mit einer anderen FC der Tag des Jahres berechnet und mit dem ursprünglichen verglichen.

ZUM DOWNLOAD MÜSST IHR EINGELOGGT SEIN!

Funktion JAHRESTAG --> DATUM

(************************************************************************************************************************)
FUNCTION "JAHRESTAG_TO_DATUM" : VOID
TITLE = 'Datum aus Tag des Jahres'
(************************************************************************************************************************)
KNOW_HOW_PROTECT
VERSION : '1.0'
AUTHOR  : Onkel_D
NAME    : DATE
FAMILY  : Entenh
(************************************************************************************************************************)

VAR_INPUT
  JAHRESTAG                 : INT;
  SCHALTJAHR                : BOOL;
END_VAR

VAR_OUTPUT
  TAG                       : INT;
  MONAT                     : INT;
END_VAR

VAR_TEMP
  mm, dd                    : REAL;
  k                         : INT;      // Korrekturwert Schaltjahr
END_VAR

BEGIN
k := 2;
IF SCHALTJAHR THEN
  k := 1;
END_IF;
mm := TRUNC((9*(k+JAHRESTAG))/275.0+0.98);
IF JAHRESTAG < 32 THEN
   mm &#58;= 1;
END_IF;
TAG   &#58;= REAL_TO_INT&#40;JAHRESTAG - TRUNC&#40;&#40;275*mm&#41;/9&#41; + k*TRUNC&#40;&#40;mm+9&#41;/12&#41;+30&#41;;
MONAT &#58;= REAL_TO_INT&#40;mm&#41;;
END_FUNCTION;

Gruß, Onkel

[Onkel Dagobert]

Hallo,

nicht dass ihr denkt, "der Onkel spinnt doch!" . Die allgemeine und auch verständliche "Normalform" sieht ungefähr so aus:

FUNCTION "JAHRESTAG" : INT
TITLE =
AUTHOR : Onkel_D
FAMILY : Entenh
NAME : 'DATE'
VERSION : 0.1


VAR_INPUT
  TAG : INT ;   
  MONAT : INT ; 
  SCHALTJAHR : BOOL ;   
END_VAR
VAR_TEMP
  TEMP_INT : INT ;  
END_VAR
BEGIN
NETWORK
TITLE =

      SET   ; 
      SAVE  ; 

//*** Tage voller Monate seit Jahresbeginn
      L     #MONAT; 
      DEC   1; // 0..11
      SPL   ERR; // >11
      SPA   JAN; 
      SPA   FEB; 
      SPA   MAE; 
      SPA   APR; 
      SPA   MAI; 
      SPA   JUN; 
      SPA   JUL; 
      SPA   AUG; 
      SPA   SEP; 
      SPA   OKT; 
      SPA   NOV; 
      SPA   DEZ; 

//*** Verlassen mit Fehler
ERR:  L     0; 
      T     #RET_VAL; 
      CLR   ; 
      SAVE  ; 
      BEA   ; 

//*** Tage der abgeschlossenen Monate
//    (Tage vom Vormonat)
JAN:  L     0; 
      SPA   TAGE; 
FEB:  L     31; 
      SPA   TAGE; 
MAE:  L     59; // ohne Schaltjahr
      SPA   TAGE; 
APR:  L     90; 
      SPA   TAGE; 
MAI:  L     120; 
      SPA   TAGE; 
JUN:  L     151; 
      SPA   TAGE; 
JUL:  L     181; 
      SPA   TAGE; 
AUG:  L     212; 
      SPA   TAGE; 
SEP:  L     243; 
      SPA   TAGE; 
OKT:  L     273; 
      SPA   TAGE; 
NOV:  L     304; 
      SPA   TAGE; 
DEZ:  L     334; 
      SPA   TAGE; 

//*** verstrichene Tage vom aktuellen Monat dazu
TAGE: L     #TAG; 
      +I    ; 
      T     #TEMP_INT; 

//*** Korrektur, wenn SCHALTJAHR
      U     #SCHALTJAHR; 
      U(    ; 
      L     #MONAT; 
      L     2; 
      >I    ; 
      )     ; 
      L     #TEMP_INT; 
      SPBN  M001; 
      L     1; 
      +I    ; 

//*** Ausgabe
M001: T     #RET_VAL; 
END_FUNCTION

Gruss, Onkel

[Anonymous]

hallo

hab leider ein problem weil ich nicht weiss wie es funktioniert die uhrzeit und das datum auszulesen. mann muss ja sfc1 im ob1 aufrufen. weiss dann aber nicht wie ich den scf1 parametriere und die uhrzeit und das datum weiterverareibten kann. wer kann mir helfen???

[tsp_05]

Hi Onkel,
ich finde dein Programm zum Jahrestagberechnung interessant,
aber wie teste ich es,
kann ich auch die erste Version benutzen und testen ?
mfg.
tsp_05

[KalEl]

hier was in awl.
die fc berechnet als out zwar die kw aber die tageszahl liegt in der fc als temp_var vor

http://www.sps-forum.de/showthread.p...ight=tageszahl

[Werner54]

Hallo,

der Befehl MOD erzeugt für Schaltjahre z.B. im OB1 ein VKE:

L LB12    //Jahreszahl zweistellig (1990..2089)
BTI        //BCD nach INT
L 4        //jedes 4. Jahr
MOD      //Divisionsrest ermitteln
L 0        //wenn kein Rest,
==I        //dann ist Schaltjahr

[volker]

das ist nicht ganz korrekt

für sps anwendungen sollte das aber meist reichen

• Ist die Jahreszahl durch 4 teilbar, aber nicht durch 100, dann ist es ein Schaltjahr mit 366 Tagen. Beispiele: 1980, 1972, 1720.
• Ist die Jahreszahl durch 100 teilbar, aber nicht durch 400, dann ist das Jahr ein gewöhnliches Gemeinjahr und hat nur 365 Tage, z. B. in den Jahren 1700, 1800 und 1900 oder ferner 2100.
• Ist die Jahreszahl durch 400 teilbar, ist das Jahr ein Schaltjahr. Die Jahre 1600 und 2000 waren – in Übereinstimmung mit der Julianischen Schaltregel – Schaltjahre zu 366 Tagen.

oder mathematisch:
if (year % 4 == 0 && (year % 100 != 0 || year % 400 == 0)) {// schaltjahr}

[Onkel Dagobert]

Hall tsp_05,

..kann ich auch die erste Version benutzen und testen ?..

Davon gehe ich erst einmal aus.

Den "spionagesicheren" Code hatte ich damals irgendwo im Internet gefunden. Ich hatte ihn in SCL umgesetzt und ein wenig getestet. Ich denke, er hatte auch funktioniert, zumindest für den heute üblichen Bereich von 1990 bis 2089. Der Haken allerdings ist, dass es keine Herleitung für die Berechnung gibt. Der Algorithmus ist empirisch entstanden, d.h. es hat jemand solange probiert bis es irgendwie funktionierte. Falls einmal Probleme auftreten sollten, hat man keine Chance, den Fehler zu finden! So etwas ist bestenfalls für eine private Hofbeleuchtungssteuerung vertretbar, nicht für industrielle Anwendungen, Krankenhäuser oder öffentliche Gebäude, etc.

Aufgrund von Rundungsfehlern in der Berechnung ist die Schreibweise in SCL von Bedeutung. Wenn du z.Bsp. die Berechnung aufteilst und Zwischenergebnisse bildest, wird es wahrscheinlich schon nicht mehr funktionieren.

Das absolut 100%-ige Testen ist sehr aufwändig. Man müsste in so einem Fall jedes Einzelergebnis handisch überprüfen. Eine annährende Sicherheit kannst du erreichen, wenn du dieselbe Funktion mit verschiedenen Algorithmen berechnetst, und die Ergebnisse vergleichst.

Verwende besser einen "transparenten" Code!


Gruß, Onkel