Javier Mora escribió:
-----Mensaje original-----
De: Antonio [SMTP:[EMAIL PROTECTED]
Enviado el: miércoles, 11 de enero de 2006 18:26
Para: [email protected]
Asunto: Re: Función para calcular el número de semana de una fecha
¿Alguien tiene programada una función, programa o trozo que obtenga
este dato a partir de una fecha dada? ¿Sería tan amable de proporcionarme
el
fuente? Es una pequeña urgencia que tengo.
Tengo un programa para que me dice en que semana me encuentro basándose
en la fecha actual. Sin ISO 8601. Si te sirve de algo te lo envío.
Aunque otros compañeros ya me han hecho algunas propuestas me interesa ver
tu código. Me gusta leer el código escrito por otras personas, siempre
aprendo algo.
Saludos.
Gracias a todos por las ideas aportadas.
Un saludo,
Javier Mora
Dpto. Informática
Dialsur S.A.U.
__________________________________________________
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
Aquí te lo envío, espero que te sirva de algo.
Saludos.
D FINICIO S D DATFMT(*ISO)
D FACTUAL S D DATFMT(*ISO)
C**************************************************************************
C* CALCULAR EN QUE SEMANA
ESTAMOS
C**************************************************************************
C CALSEMANA
BEGSR
C*
C EVAL
FACTUAL=%DATE(*DATE)
C EVAL
AÑO=*YEAR
C EVAL
FINICIO=%DATE('2004-12-31':*ISO)
C IF
AÑO-2002>1
C EVAL
FINICIO=FINICIO+%YEARS(AÑO-2004-1)
C
ENDIF
C*
C EVAL
DIAS=%DIFF(FACTUAL:FINICIO:*DAYS)
C EVAL
SEMANA=DIAS/7
C IF
%REM(DIAS:7)>0
C EVAL
SEMANA=SEMANA+1
C
ENDIF
______________________________________________
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
