Calculo de semana

[FERNANDOMATRELLA]

Boa tarde

Alguem teria um tipo de função que contasse semanas ?
mandaria a data de hoje para a função e ela me retornaria isso
hoje é dia 17/10/2011,;
estou no mes 10 ;
estou na 4ª semana de outubro;
outubro tem 6 semanas;
1ªsemana de 01/10 a 01/10;
2ªsemana de 02/10 a 08/10;
3ªsemana de 09/10 a 15/10;
4ªsemana de 16/10 a 22/10;
5ªsemana de 23/10 a 29/10 ;
6ªsemana de 30/10 a 31/10
se tiver eu agradeço muito
mais se não tiver e consseguir me dar uma luz de como eu calcularia isso ficaria muito
grato
Desculpe ausencia do forum!

[alceu11]

Fernando nao se ajuda mas, dow() se retorna 2 se segunda , 3 terca assim por diante

Código:

wrr =DOW(DATE())
? wrr && verique o resultado
if DOW(DATE()) =2  && se for 4  &&somara +3 para ter aquela semana
wdata1=date()+7
wdata2=wdata1+7
* é segunda feira so somar 7 para aquele mes
Sendo assim teria ke fazer comparacoes de string,  verificando se o mes muda

month(date()) , e o day (date())
if month(date()) <> 10
***faca seus comandos
else
soma +7 a variaval data
endif

Vc sumiu do forum te de aqueles dicas e truques com sinal de mais+++

entao assim vc desenvolvera o seu racionio.

Mas algumas funcoes de data


Calcular o número de días en 1 año
Función que te devuelve quantos días se pasando en 1 año de una data determinada.
?DiaDelAño(Date())
?DiaDelAño(Date()-10)
?DiaDelAño(Date()-60)
Function DiaDelAño(dDate)
nDia = dDate - Date(Year(Date()), 1, 1) + 1
Return(nDia)
Endfunc

Determinar se 1 año e bissexto

Existen diversas formas de terminarlo ... a primera:
nAño = 2004
? !Empty(Date(nAño, 02, 29))
nAño = 2005
? !Empty(Date(nAño, 02, 29))

Otra forma utilizando MOD
?Mod(2004, 4)
?Mod(2005, 4)

[FERNANDOMATRELLA]

obrigado pelas funçoes bom não conssegui facilitar a vida do meu cliente fiz ele facilitar a minha vida colocando dtini e dtfinal vlw vo tentar participar mais do forum vlw