Si no trabajas con free, siempre puedes utilizar SUBDUR<http://publib.boulder.ibm.com/iseries/v5r1/ic2924/books/c0925083720.htm> .
Atentament / Kind Regards Àlex Corretgé a/e - wave: [email protected] Carrer de la Font, 2 17142 - Verges Tel: +34 972 780 422 Cell: +34 669 86 92 64 Serveis Informàtics Corretgé.com SLU - http://corretge.cat/ - skype: corretge_com - LinkedIn: http://www.linkedin.com/in/corretge - News: http://bloc.corretge.cat 2010/10/23 Jaime Villa Torres <[email protected]> > Considero que esta tu solución, la presente genera el resultado en minutos. > > > > d Fecha8I s 8 0 inz(20080101) fecha inicial > d HoraIni s 6 0 inz(060000) hora inicial > d Fecha8F s 8 0 inz(20080625) fecha final > d HoraFin s 6 0 inz(123025) hora final > d Resultado s 30 0 > d HoraInsIso s z > d HoraFinIso s z > d xechaHoraIIso s 26 > d xechahoraFIso s 26 > /free > xechaHoraIIso = %char(%date(Fecha8I:*Iso)) + > '-' + > %char(%time(HoraIni:*Iso)) + > '.000000'; > xechaHoraFIso = %char(%date(Fecha8F:*Iso)) + > '-' + > %char(%time(HoraFin:*Iso)) + > '.000000'; > HoraInsIso = %timestamp(xechaHoraIIso); > > HoraFinIso = %timestamp(xechaHoraFIso); > Resultado = %diff(HoraFinIso:HoraInsIso:*MINUTES); > *InLr = *On; > /end-free > > > ____________________________________________________ > Ú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.
