Numero de la semana

[Cristian78]

Alguien sabe como calcular en que numero de semana del año me encuentro en una determiada fecha?

Gracias

[Mauricio]

Tenés que dividir la fecha por el módulo de 7. Luego, si el resultado es 0, es Domingo, si es 1, Lunes, y así sucesivamente.
En otras palabras...

Código: Seleccionar todo

Loc:Result = Loc:TuFecha % 7
CASE Loc:Result
OF 0
   Loc:Dia = 'Domingo'
OF 1
   Loc:Dia = 'Lunes'
OF 2
   Loc:Dia = 'Martes'
OF (los otros casos hasta 6, que es Sábado)
END !CASE

[Cristian78]

Gracas por la respusta, pero lo que en realidad necesito es el numero de la semana del año en que se encuentra un fecha determinada, por ejemplo 11-01-2012, estamos en la semana numero 2 del año, y el 24-02-2012 estaremos en la semana numero 8 del años. Gracias.

[Mauricio]

Contesté cualquier cosa
El problema es que hay diferentes criterios para calcular la semana del año, hay una forma ISO y otras que no adhieren a ella.
Una forma es restar el día de hoy al inicio de año, eso dividirlo por 7 y tomar la parte entera. Eso estaría tomando al 1 de enero como el principio pero si este día en realidad pertenece a la última semana del año anterior deberías correr la fecha inicial.

[Cristian78]

Claro, algo habia leido en algun lado sobre esa operacion. Gracias, y si no es mucha molestia, podes ayudarme un poco mas
- ¿como obtengo en clarion la parte entera de un numero?
Un saludo desds Salta-Argentina.

[Mauricio]

Del Help de Clarion:

INT(expression)

INT Return integer.

expression A numeric constant, variable, or expression.

The INT procedure returns the integer portion of a numeric expression. No rounding is performed, and the sign remains unchanged.

[osquiabro]

hay un template gratis que tiene algo de lo que necesitas

http://www.seal-soft.com/products/xfunc

[Hugo]

Hola buen dia como yo la genero es asi:

Loc:Semana = ((today()- DATE(01,01,year(today())))/7)+1

espero que sea lo que necesitas....

atte. Hugo Briseño

[Hugo]

Me falto el int


Loc:Semana = (int((today()- DATE(01,01,year(today())))/7))+1

creo que ahora si

saludos

[Cristian78]

Anduvo de diez, gracias a todos por la respuesta.