Hola Forero La instrucción para asignar la hora es: dWTIME s 6 0c time WTIME
Date: Fri, 22 Oct 2010 17:50:40 -0700 From: [email protected] Subject: RE: Calculo de Fechas y Horas - respuesta To: [email protected] Pregunta para jaime o quien me pueda orientar Tu ayuda es excelente Jaime, solo tengo una duda yo asigno la fecha con la siguinete linea *USA MOVE *DATE FECHA pero no encuentro como asignar el tiempo ( con la instruccion de arriba yo asigno la fecha del trabajo, tambien quisiera asignar la hora del trabajo) se que con las siguientes lineas asigno fecha y tiempo del sistema hasta milisegundos TIME FECHAHORA EXTRCT FECHAHORA:*Y AAAAAA EXTRCT FECHAHORA:*M MMMMMM EXTRCT FECHAHORA:*D DDDDDD EXTRCT FECHAHORA:*H HHHHHH EXTRCT FECHAHORA:*MN MNMNMN EXTRCT FECHAHORA:*S SSSSSS EXTRCT FECHAHORA:*MS MSMSMS mucho les agradecere si me pueden decir si se puede modificar la hora del trabajo saludos desde mexico Benito Hernandez --- On Wed, 10/20/10, JAIME LOPEZ <[email protected]> wrote: From: JAIME LOPEZ <[email protected]> Subject: RE: Calculo de Fechas y Horas - respuesta To: [email protected] Date: Wednesday, October 20, 2010, 3:18 PM Hola forero En estos casos se utiliza unas funciones de fecha y hora que tiene RPG, asumo que los valores de fecha y hora son numéricos (fecha numérico de 8 formato iso y Hora numérico de 6) En un programa rpg se define en la hoja D las siguientes variables: DNombre+++++++++ETDsDesde++A+/L+++IDc.Palabras clave+++++++++++++++++++++++Comentarios+++++++++ dWDATE s d datfmt(*iso) dWTIME s t dTIMESTAMPI s z dTIMESTAMPF s z dWRESLT s 7 0 dPTIMESTA ds dPYEAR 4 Año dPSP1 1 inz('-') Separador dPMES 2 Mes dPSP2 1 inz('-') Separador dPDIA 2 Día dPSP3 1 inz('-') Separador dPHORA 2 Hora dPSP4 1 inz('.') Separador dPMIN 2 Minutos dPSP5 1 inz('.') Separador dPSEC 2 Segundos dPSP6 1 inz('.') Separador dPMSG 6 inz('000000') Milisegundos Asigna la fecha a la variable WDATE y la hora a la variable WTIME Luego se asigna el valor de la variable WDATE y el valor de la variable WTIME a la variable PTIMESTA que tiene el formato de AAAA-MM-DD-HH.MM.SS.mmmmmm, mediante la instrucción EXTRCT se asigna a cada valor de la variable PTIMESTA de la siguiente forma: c extrct WDATE:*y PYEAR c extrct WDATE:*m PMES c extrct WDATE:*d PDIA c extrct WTIME:*h PHORA c extrct WTIME:*mn PMIN c extrct WTIME:*s PSEC Luego se asigna el valor de la variable PTIMESTA a la variable TIMESTAMPI para manipular su valor como una fecha real. c eval TIMESTAMPI = %timestamp(PTIMESTA) Lo anterior sera para la fecha y hora inicial, luego se repite la misma operación para la fecha y hora final de tal suerte que tendra en las variables TIMESTAMPI y TIMESTAMPF los valores de fecha y hora inicial y final en forma fecha. Bajo este formato se puede calcular la diferencia en tiempos entre la fecha y hora inicial y final con la siguiente instrucción: c TIMESTAMPF subdur TIMESTAMPI WRESLT:*mn Lo anterior obtiene la diferencia entre las fechas y horas inicial y final dejando el resultado en minutos en la variable WRESLT. Date: Wed, 20 Oct 2010 15:33:48 +0200 Subject: Calculo de Fechas y Horas From: [email protected] To: [email protected] Buenas tardes a todos: Tenemos un programa que se va gestionando entre varios departamentos, cuando entra en un departamento se apunta la fecha y la hora de inicio y cuando finaliza la gestion se apunta la fecha y hora final. Pues bien necesito calcular el tiempo que ha tardado en hacer la gestion en ese departamento. Hay que calcular el tiempo con la fecha y hora de inicio contra la fecha y hora final. He intentado bucar alguna copy en esta dirección http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=/apis/apifinder.htm y no he encontrado nada. Alguien me podria a consejar Gracias Un saludo ____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L. -----Inline Attachment Follows----- ____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L. ____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
