Re: Cambiar formato de Fecha AAAAMMDD a DDMMAAAA

[Carlos Portol�s]

Hola NIcol�s y resto del foro.

Los siguientes trozos de c�digo s�lo funcionan con fechas correctas. Si adem�s tuvieras que validarlas habr�a que incluir mas codigo.

En RPGIV tienes bastante con dos l�neas:

C     *ISO          MOVE      RFFADI        $$fecha
C     *EUR          MOVE      $$fecha       RFFADI

Yo para imprimir utilizo directamente un campo CHAR de 10 posiciones, que lo puedes "rellenar" de la siguiente manera.

C                   EVAL      Data10A = %xlate('.':'/':%char(
C                                       %date(RFFADI:*ISO):EUR))

que en formato FREE cabe en una l�nea.
/free
Data10A = %xlate('.':'/':%char(%date(ADSDT:*ISO):*EUR));
/end-free

Si te da igual que el separador sea el punto te puedes ahorrar el xlate.



--
Carlos Portol�s Carilla
Grupo SEIDOR



[EMAIL PROTECTED] escribi�: -----

>Para:
>De: Nicol�s Machado
>Enviado por: [EMAIL PROTECTED]
>Fecha: 05/10/2004 14:51
>Asunto: Cambiar formato de Fecha AAAAMMDD a DDMMAAAA
>
>Hola, hace un tiempo alguien mando un excelente ejemplo que permite
>"permutar" los numeros en un campo numerico facilmente.
>yo tengo un campo numerico S(8) con el contenido en AAAAMMDD y o
>quiero
>poner en un campo numerico DDMMAAAA para imprimirlo.
>Pero no quiero usar un DS ...
>
>Alguien recuerda ??
>Saludos
>Nicolas
>
>
>----- Original Message -----
>From: "H�ctor Benito"
>To:
>Sent: Wednesday, September 22, 2004 8:38 AM
>Subject: Api's QMHSNDPM, QMHRMVPM
>
>
>>
>> Buenos d�as,
>>
>> estmos utilizando las api's QMHSNDPM,
>> QMHRMVPM para mostrar los mensajes x pantalla en un programa en
>free ile,
>> pero no hay manera de que aparezcan por pantalla, sin embargo
>visualizando
>> los logs los mensajes aparecen. � hay que compilar los fuentes de
>alguna
>> manera especial ?.
>>
>> Un saludo.
>>
>> ---------------------------------------------------------------
>> H�ctor Benito Ser�n.
>> Correo electr�nico: [EMAIL PROTECTED]
>> Departamento de Inform�tica.
>>
>> GRUPO CARRERAS. Divisi�n Almacenaje y Distribuci�n S.A
>> Ctra. de Huesca, km. 7,770 Ciudad del Transporte
>> Tel. 976.011.116
>> Tel. 976.587.369
>> Fax. 976.150.499
>> Web. http://www.grupocarreras.com
>> 50820 Zaragoza
>>
>> ____________________________________________
>>
>> GRUPO CARRERAS
>> http://www.grupocarreras.com
>> ____________________________________________
>>
>>
>> _____________________________________________________
>> Forum.HELP400 es un servicio m�s de NEWS/400.
>> � Publicaciones Help400, S.L. - Todos los derechos reservados
>> http://www.help400.es
>> _____________________________________________________
>>
>> Para darte de baja, env�a el mensaje resultante de pulsar
>> mailto:[EMAIL PROTECTED]
>
>
>---
>Outgoing mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.773 / Virus Database: 520 - Release Date: 05/10/2004
>
>
>
>_____________________________________________________
>Forum.HELP400 es un servicio m�s de NEWS/400.
>� Publicaciones Help400, S.L. - Todos los derechos reservados
>http://www.help400.es
>_____________________________________________________
>
>Para darte de baja, env�a el mensaje resultante de pulsar
>mailto:[EMAIL PROTECTED]