BaseSystemLib hinzugefügt

1_BaseSystemLib/100_Common/HelperFunctions/FC_DateAsString.libinfo

@@ -0,0 +1,14 @@
+LibraryType:
+  Guid: bc5be256-7a5d-4ae4-aac8-c04ee556905a
+  Comment:
+    de-DE: |-
+      Liest lokale Systemzeit und gibt als String aus 
+      Format: '21-05-12'
+LibraryVersion:
+  VersionNumber: 2.0.0
+  Author: e.yueksel
+  IsDefault: true
+  Comment:
+    de-DE: |-
+      Liest lokale Systemzeit und gibt als String aus 
+      Format: '21-05-12'

1_BaseSystemLib/100_Common/HelperFunctions/FC_DateAsString.libint

@@ -0,0 +1,6 @@
+DocumentHash:
+  - FileName: FC_DateAsString.scl
+    Hash: sxW9MGlJNzQwHlUucUIrXWLqFFj9XVJTFDBvIpZg2Qs=
+LibraryMetaFileHash: 6Yo0WP5KqjVpHhTLfUTFC+re32KTNH1ye9pj7xdoYqc=
+LibraryVersion:
+  Guid: 34059056-04c6-4b56-b5a2-abd5a842540e

1_BaseSystemLib/100_Common/HelperFunctions/FC_DateAsString.scl

@@ -0,0 +1,38 @@
+FUNCTION "FC_DateAsString" : String
+{ S7_Optimized_Access := 'TRUE' }
+VERSION : 0.1
+   VAR_TEMP 
+      tInt : Int;
+      tDTL {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL;
+      sTmp : String[5];
+   END_VAR
+
+
+BEGIN
+	// Format: '21-05-12'
+	
+	#tInt := RD_LOC_T(#tDTL);
+	
+	#sTmp := UINT_TO_STRING(#tDTL.YEAR);
+	#FC_DateAsString[1] := #sTmp[4];
+	#FC_DateAsString[2] := #sTmp[5];
+	#FC_DateAsString[3] := '-';
+	#sTmp := USINT_TO_STRING(#tDTL.MONTH);
+	IF #tDTL.MONTH <= 9 THEN
+	    #FC_DateAsString[4] := '0';
+	    #FC_DateAsString[5] := #sTmp[2];
+	ELSE
+	    #FC_DateAsString[4] := #sTmp[2];
+	    #FC_DateAsString[5] := #sTmp[3];
+	END_IF;
+	#FC_DateAsString[6] := '-';
+	#sTmp := USINT_TO_STRING(#tDTL.DAY);
+	IF #tDTL.DAY <= 9 THEN
+	    #FC_DateAsString[7] := '0';
+	    #FC_DateAsString[8] := #sTmp[2];
+	ELSE
+	    #FC_DateAsString[7] := #sTmp[2];
+	    #FC_DateAsString[8] := #sTmp[3];
+	END_IF;
+END_FUNCTION
+

1_BaseSystemLib/100_Common/HelperFunctions/FC_RemoveStringPart.libinfo

@@ -0,0 +1,6 @@
+LibraryType:
+  Guid: 75fdb852-33f8-4860-bfe0-74c853d48987
+LibraryVersion:
+  VersionNumber: 2.0.0
+  Author: e.yueksel
+  IsDefault: true

1_BaseSystemLib/100_Common/HelperFunctions/FC_RemoveStringPart.libint

@@ -0,0 +1,6 @@
+DocumentHash:
+  - FileName: FC_RemoveStringPart.scl
+    Hash: M/GpwHJPz23hLSM9fCEJmNAQWH5VNKnkCvRvibwFVuI=
+LibraryMetaFileHash: YxePwWkwi+6JBpfN1P+bJ2t85wqoDQfUarH23N+mI1o=
+LibraryVersion:
+  Guid: c0a01750-6a1f-47ba-b034-8732c973f038

1_BaseSystemLib/100_Common/HelperFunctions/FC_RemoveStringPart.scl

@@ -0,0 +1,27 @@
+FUNCTION "FC_RemoveStringPart" : String
+{ S7_Optimized_Access := 'TRUE' }
+VERSION : 0.1
+   VAR_INPUT 
+      sSource : String;
+      sRemove : String;
+   END_VAR
+
+   VAR_TEMP 
+      nLen : Int;
+      nPos : Int;
+   END_VAR
+
+
+BEGIN
+	#nLen := LEN(#sRemove);
+	#nPos := FIND(IN1:=#sSource, IN2:=#sRemove);
+	
+	IF #nPos > 0 THEN
+	    #FC_RemoveStringPart := DELETE(IN := #sSource,
+	                                  L := #nLen,
+	                                  P := #nPos);
+	ELSE
+	    #FC_RemoveStringPart := #sSource;
+	END_IF;
+END_FUNCTION
+

1_BaseSystemLib/100_Common/HelperFunctions/FC_TimeAsString.libinfo

@@ -0,0 +1,10 @@
+LibraryType:
+  Guid: 934482b5-e58d-48b7-95c0-95843c18790d
+  Comment:
+    de-DE: Liest Systemzeit und gibt Uhrzeit als String aus
+LibraryVersion:
+  VersionNumber: 2.0.0
+  Author: e.yueksel
+  IsDefault: true
+  Comment:
+    de-DE: Liest Systemzeit und gibt Uhrzeit als String aus

1_BaseSystemLib/100_Common/HelperFunctions/FC_TimeAsString.libint

@@ -0,0 +1,6 @@
+DocumentHash:
+  - FileName: FC_TimeAsString.scl
+    Hash: 3WJUl9RFht2vorDlH8QAIOs7AhSUh8JVzkcdrRKQwZo=
+LibraryMetaFileHash: rKdgHvTDa65A90nGw/BUqSQ1XoRp0ZITlOxvdtrZTnQ=
+LibraryVersion:
+  Guid: 4a99e138-618d-44bb-915f-75873870e021

1_BaseSystemLib/100_Common/HelperFunctions/FC_TimeAsString.scl

@@ -0,0 +1,83 @@
+FUNCTION "FC_TimeAsString" : String
+{ S7_Optimized_Access := 'TRUE' }
+VERSION : 0.1
+   VAR_TEMP 
+      tInt : DInt;
+      tDTL {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL;
+      sTmp : String[10];
+   END_VAR
+
+
+BEGIN
+	#tInt := RD_LOC_T(#tDTL);
+	
+	#sTmp := UINT_TO_STRING(#tDTL.HOUR);
+	IF #tDTL.HOUR < 10 THEN
+	    #FC_TimeAsString[1] := '0';
+	    #FC_TimeAsString[2] := #sTmp[2];
+	ELSE
+	    #FC_TimeAsString[1] := #sTmp[2];
+	    #FC_TimeAsString[2] := #sTmp[3];
+	END_IF;
+	
+	#FC_TimeAsString[3] := ':';
+	
+	#sTmp := USINT_TO_STRING(#tDTL.MINUTE);
+	IF #tDTL.MINUTE < 10 THEN
+	    #FC_TimeAsString[4] := '0';
+	    #FC_TimeAsString[5] := #sTmp[2];
+	ELSE
+	    #FC_TimeAsString[4] := #sTmp[2];
+	    #FC_TimeAsString[5] := #sTmp[3];
+	END_IF;
+	
+	#FC_TimeAsString[6] := ':';
+	
+	#sTmp := USINT_TO_STRING(#tDTL.SECOND);
+	IF #tDTL.SECOND < 10 THEN
+	    #FC_TimeAsString[7] := '0';
+	    #FC_TimeAsString[8] := #sTmp[2];
+	ELSE
+	    #FC_TimeAsString[7] := #sTmp[2];
+	    #FC_TimeAsString[8] := #sTmp[3];
+	END_IF;
+	
+	#FC_TimeAsString[9] := ',';
+	
+	#sTmp := UDINT_TO_STRING(#tDTL.NANOSECOND);
+	IF #tDTL.NANOSECOND < 1000000 THEN
+	    #FC_TimeAsString[10] := '0';
+	    #FC_TimeAsString[11] := '0';
+	    #FC_TimeAsString[12] := '0';
+	ELSIF #tDTL.NANOSECOND < 10000000 THEN
+	    #FC_TimeAsString[10] := '0';
+	    #FC_TimeAsString[11] := '0';
+	    #FC_TimeAsString[12] := #sTmp[2];
+	ELSIF #tDTL.NANOSECOND < 100000000 THEN
+	    #FC_TimeAsString[10] := '0';
+	    #FC_TimeAsString[11] := #sTmp[2];
+	    #FC_TimeAsString[12] := #sTmp[3];
+	ELSE
+	    #FC_TimeAsString[10] := #sTmp[2];
+	    #FC_TimeAsString[11] := #sTmp[3];
+	    #FC_TimeAsString[12] := #sTmp[4];
+	END_IF;
+	
+	
+	
+	
+	
+	
+	
+	
+	
+	
+	
+	
+	
+	
+	
+	
+	
+END_FUNCTION
+