diff --git a/BaseComponents.tsproj b/BaseComponents.tsproj
index fbb86b1..b80a879 100644
--- a/BaseComponents.tsproj
+++ b/BaseComponents.tsproj
@@ -136,7 +136,7 @@
 		</System>
 		<Plc>
 			<Project GUID="{4E62D9E7-436C-457D-8DC4-82D2FEF91C96}" Name="BasicComponents" PrjFilePath="BasicComponents\BasicComponents.plcproj" TmcFilePath="BasicComponents\BasicComponents.tmc" ReloadTmc="true" AmsPort="851" FileArchiveSettings="#x000e" CopyTmcToTarget="true" CopyTpyToTarget="false" SymbolicMapping="true">
-				<Instance Id="#x08502000" TcSmClass="TComPlcObjDef" KeepUnrestoredLinks="2" TmcHash="{994AF725-57BD-C8F2-A11E-43E32EDE2B55}" TmcPath="BasicComponents\BasicComponents.tmc">
+				<Instance Id="#x08502000" TcSmClass="TComPlcObjDef" KeepUnrestoredLinks="2" TmcHash="{63E07965-E818-C034-FD63-DBA12806D3FA}" TmcPath="BasicComponents\BasicComponents.tmc">
 					<Name>BasicComponents Instance</Name>
 					<CLSID ClassFactory="TcPlc30">{08500001-0000-0000-F000-000000000064}</CLSID>
 					<Vars VarGrpType="2" AreaNo="1">
diff --git a/BasicComponents.library b/BasicComponents.library
index 322d4da..fcde18e 100644
Binary files a/BasicComponents.library and b/BasicComponents.library differ
diff --git a/BasicComponents/BasicComponents.plcproj b/BasicComponents/BasicComponents.plcproj
index b1aa1ab..964e427 100644
--- a/BasicComponents/BasicComponents.plcproj
+++ b/BasicComponents/BasicComponents.plcproj
@@ -21,7 +21,7 @@
     <GlobalVersionStructureIncluded>false</GlobalVersionStructureIncluded>
     <Company>Heisig GmbH</Company>
     <Title>BaseComponents</Title>
-    <ProjectVersion>1.3.2</ProjectVersion>
+    <ProjectVersion>1.3.3</ProjectVersion>
     <DefaultNamespace>BC</DefaultNamespace>
     <Author>M.Heisig</Author>
     <Description>Basic components fb's (Valves, AI, AO, Motors, etc.)</Description>
@@ -112,6 +112,9 @@
     <Compile Include="POUs\Components\Utilities\FC_HashFNV1a_32Bit.TcPOU">
       <SubType>Code</SubType>
     </Compile>
+    <Compile Include="POUs\Components\Utilities\F_GetTaskCycleTime.TcPOU">
+      <SubType>Code</SubType>
+    </Compile>
     <Compile Include="POUs\Components\Valves\FB_Valve.TcPOU">
       <SubType>Code</SubType>
     </Compile>
@@ -301,8 +304,8 @@
   <ProjectExtensions>
     <PlcProjectOptions>
       <XmlArchive>
-        <Data>
-          <o xml:space="preserve" t="OptionKey">
+  <Data>
+    <o xml:space="preserve" t="OptionKey">
       <v n="Name">"&lt;ProjectRoot&gt;"</v>
       <d n="SubKeys" t="Hashtable" ckt="String" cvt="OptionKey">
         <v>{192FAD59-8248-4824-A8DE-9177C94C195A}</v>
@@ -2683,16 +2686,16 @@
       </d>
       <d n="Values" t="Hashtable" />
     </o>
-        </Data>
-        <TypeList>
-          <Type n="Boolean">System.Boolean</Type>
-          <Type n="Hashtable">System.Collections.Hashtable</Type>
-          <Type n="Int32">System.Int32</Type>
-          <Type n="OptionKey">{54dd0eac-a6d8-46f2-8c27-2f43c7e49861}</Type>
-          <Type n="String">System.String</Type>
-          <Type n="UInt32">System.UInt32</Type>
-        </TypeList>
-      </XmlArchive>
+  </Data>
+  <TypeList>
+    <Type n="Boolean">System.Boolean</Type>
+    <Type n="Hashtable">System.Collections.Hashtable</Type>
+    <Type n="Int32">System.Int32</Type>
+    <Type n="OptionKey">{54dd0eac-a6d8-46f2-8c27-2f43c7e49861}</Type>
+    <Type n="String">System.String</Type>
+    <Type n="UInt32">System.UInt32</Type>
+  </TypeList>
+</XmlArchive>
     </PlcProjectOptions>
   </ProjectExtensions>
 </Project>
\ No newline at end of file
diff --git a/BasicComponents/POUs/Components/Controller/FB_PI.TcPOU b/BasicComponents/POUs/Components/Controller/FB_PI.TcPOU
index 27c711f..68589e5 100644
--- a/BasicComponents/POUs/Components/Controller/FB_PI.TcPOU
+++ b/BasicComponents/POUs/Components/Controller/FB_PI.TcPOU
@@ -33,7 +33,7 @@ END_VAR
 	_xFirstCycle := FALSE;
 	
 	// Get current task time
-	_rT := LREAL_TO_REAL(UDINT_TO_LREAL(_TaskInfo[GETCURTASKINDEXEX()].CycleTime) * 1E-7);
+	_rT := F_GetTaskCycleTime();
 END_IF
 
 
diff --git a/BasicComponents/POUs/Components/Controller/FB_PID.TcPOU b/BasicComponents/POUs/Components/Controller/FB_PID.TcPOU
index beb1782..a8d8682 100644
--- a/BasicComponents/POUs/Components/Controller/FB_PID.TcPOU
+++ b/BasicComponents/POUs/Components/Controller/FB_PID.TcPOU
@@ -39,7 +39,7 @@ END_VAR
 	_xFirstCycle := FALSE;
 	
 	// Get current task time
-	_rT := LREAL_TO_REAL(UDINT_TO_LREAL(_TaskInfo[GETCURTASKINDEXEX()].CycleTime) * 1E-7);
+	_rT := F_GetTaskCycleTime();
 	
 	_rPVLast := rPV;
 END_IF
diff --git a/BasicComponents/POUs/Components/Controller/FB_RampGenerator.TcPOU b/BasicComponents/POUs/Components/Controller/FB_RampGenerator.TcPOU
index 6a05817..7c87943 100644
--- a/BasicComponents/POUs/Components/Controller/FB_RampGenerator.TcPOU
+++ b/BasicComponents/POUs/Components/Controller/FB_RampGenerator.TcPOU
@@ -27,7 +27,7 @@ END_VAR]]></Declaration>
     _xFirstCycle := FALSE;
 
     // Get cycle time
-    _rT := LREAL_TO_REAL(UDINT_TO_LREAL(_TaskInfo[GETCURTASKINDEXEX()].CycleTime) * 1E-7);
+    _rT := F_GetTaskCycleTime();
 END_IF
 
 // If not enabled output equals input
diff --git a/BasicComponents/POUs/Components/Utilities/F_GetTaskCycleTime.TcPOU b/BasicComponents/POUs/Components/Utilities/F_GetTaskCycleTime.TcPOU
new file mode 100644
index 0000000..86e9d1e
--- /dev/null
+++ b/BasicComponents/POUs/Components/Utilities/F_GetTaskCycleTime.TcPOU
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="utf-8"?>
+<TcPlcObject Version="1.1.0.1">
+  <POU Name="F_GetTaskCycleTime" Id="{f260011a-790c-4820-8d51-924daa2b9f5a}" SpecialFunc="None">
+    <Declaration><![CDATA[FUNCTION F_GetTaskCycleTime : REAL]]></Declaration>
+    <Implementation>
+      <ST><![CDATA[F_GetTaskCycleTime := LREAL_TO_REAL(UDINT_TO_LREAL(TwinCAT_SystemInfoVarList._TaskInfo[GETCURTASKINDEXEX()].CycleTime) * 1E-7);]]></ST>
+    </Implementation>
+  </POU>
+</TcPlcObject>
\ No newline at end of file