Tagessicherung

src/FSI Funktionen/CPU Funktionen/CpuZtUS.scl

@@ -0,0 +1,65 @@
+FUNCTION "CpuZtUS" : DWord
+{ S7_Optimized_Access := 'FALSE' }
+AUTHOR : FSI
+VERSION : 0.1
+   VAR_INPUT 
+      "I_STIME.tx" : DWord;   // Zeit
+   END_VAR
+
+   VAR CONSTANT 
+      debug : Bool;
+      N : Int;
+      offset : Int;
+      offset_1 : DWord := 0;
+   END_VAR
+
+
+BEGIN
+	(*#################################################################################################
+	
+	Copyright (c) Fondium Singen GmbH
+	
+	### Änderungshistorie ###
+	
+	Datum:      Version:    Bearbeiter:         Beschreibung:
+	23.09.2018  0.0         St. Maier           Neuerstellung
+	11.10.2019  0.1         St. Maier           Überarbeitung Kopf damit TIA kompatibel
+	17.10.2019  0.2         St. Maier           I_STIME Eingefügt, damit keine Abhängigkeit zu einem
+	                                            IDB besteht
+	18.10.2019  0.3         St. Maier           Variablen Kommentare eingefügt - wurden bei der 
+	                                            Portierung nach TIA nicht übernommen
+	#################################################################################################*)
+	
+	(*################################### Baustein Beschreibung #######################################
+	
+	Abhängigkeiten (von anderen Fuktionen und Quellen):
+	    - STIME, IDB_STIME
+	    
+	Inputs:
+	    - I_STIME.tx
+	
+	Outputs:
+	    -
+	
+	In-\Outputs:
+	    -
+	    
+	Return-Value:
+	    -
+	
+	Funktionsbeschreibung:
+	    
+	
+	#################################################################################################*)
+	
+	#CpuZtUS := DINT_TO_DWORD(DWORD_TO_DINT(#"I_STIME.tx") * 1000);
+	    
+	    IF #debug THEN
+	        #CpuZtUS := DINT_TO_DWORD((DWORD_TO_DINT(SHL(IN:=#CpuZtUS,N:=#N) OR SHL(IN:=DWORD#1,N:=#N))-1) + DWORD_TO_DINT(#offset_1));
+	    END_IF;
+	
+	
+	
+	
+END_FUNCTION
+