FUNCTION "FC15005_ZC_DTL_TO_ZC_FECHA" : "UDT_ZC_FECHA"
TITLE = FC15005_ZC_DTL_TO_ZC_FECHA
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para convertir tipo de datos DTL a tipo de datos ZC_FECHA
   VAR_INPUT 
      FechaDTL {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL;   // Fecha DTL a convertir
   END_VAR


BEGIN
	REGION DESCRIPCION
	(*
	###### (C)Copyright ZeusControl 2023 - 2023
	
	---
	### Información del Sistema
	| Hardware Compatible | Entorno de Ingeniería |
	|---------------------|-----------------------|
	| PLC serie 1200/1500 | TIA Portal 18         |
	
	---
	> **Restricciones:** Ninguna.
	
	---
	### Descripción Funcional
	
	Función para traspaso de datos en DTL a tipo de dato ZC_FECHA
	
	---
	### Dependencias Requeridas
	| Tipo | Elementos |
	|------|-----------|
	| FC   | - |
	| FB   | - |
	| DB   | - |
	| UDT  | - |
	    
	---
	### Historial de Cambios
	| Versión  | Fecha      | Técnico | Cambios |
	|----------|------------|---------|---------|
	| 01.00.00 | 03.11.2022 | (ABH)   | Primera version. |
	*)
	END_REGION DESCRIPCION
	
	
	//  ==========================================================================================================
	REGION CALCULO
	    
	    #FC15005_ZC_DTL_TO_ZC_FECHA.Ano := #FechaDTL.YEAR;
	    #FC15005_ZC_DTL_TO_ZC_FECHA.Mes := #FechaDTL.MONTH;
	    #FC15005_ZC_DTL_TO_ZC_FECHA.Dia := #FechaDTL.DAY;
	    #FC15005_ZC_DTL_TO_ZC_FECHA.Hora := #FechaDTL.HOUR;
	    #FC15005_ZC_DTL_TO_ZC_FECHA.Minuto := #FechaDTL.MINUTE;
	    #FC15005_ZC_DTL_TO_ZC_FECHA.Segundo := #FechaDTL.SECOND;
	    #FC15005_ZC_DTL_TO_ZC_FECHA.NanoSegundo := #FechaDTL.NANOSECOND;
	    #FC15005_ZC_DTL_TO_ZC_FECHA.DiaSemana := #FechaDTL.WEEKDAY;
	    
	END_REGION CALCULO
	
	
END_FUNCTION

