Pessoal,

Bom Dia.

 

Tenho um sistema que é controlado semanalmente, por isso precisava retornar a semana corrente do ano para um dia informado.

 

Alguem pode me ajudar?

 

Desde já agradeço.

André

acho q o VB nao tem função pra retonar a semana, se fosse o DIA, MES ou ANO sei q tem, nesse caso teremos que fazer um cálculo, primeiro pra saber se o ano e bi-sexto pra saber a quantidade de dias depois dividir, os dias por 7 que é a quantide de dias duma semana, pegar o dia que se quer saber e igualar nos intervalos achado pra determinar se é 1, 2,3, 4, ou 5ª semana....

Se entendi voce quer saber se e segunda, terca e etc

Se for tente esta funcao que fiz

 

'Pega a data e devolve uma string com o dia da semana
Function dia_semana(data_aux As Date) As String
    Select Case Weekday(data_aux)
        Case 1: dia_semana = "Domingo"
        Case 2: dia_semana = "Segunda feira"
        Case 3: dia_semana = "Terça feira"
        Case 4: dia_semana = "Quarta feira"
        Case 5: dia_semana = "Quinta feira"
        Case 6: dia_semana = "Sexta feira"
        Case 7: dia_semana = "Sabado"
    End Select
End Function

Colegas,

 

Não é isso que quero saber...

Preciso saber a semana corrente do ano. Qual o numero da semana do ano, por exemplo:

 

Estamos na semana 5 do mes de abril certo?

Do ano, estamos na semana 21.

Amanhã(01/05/2005) ja passa a ser a semana 22 do ano.

 

Eu gostaria de fazer isso em código. Pode ser com calculos...

 

Por favor, me ajudem!!!!!!!!!!!!!

 

Obrigado.

André

seguindo o meu racínio, dá pra se obter a semana acumulada do ano, do jeito que vc quer pra isso o cáculo vai ser um poukinho mais longo mais acredito que dá certo...

 

vou tentar te ajudar, entra em contato comigo por e-mail....