Detectar el numero de la semana actual

[german_martin]

Amigos tengo que calcular algo y no se me ocurre como, no es tanto un problema de programacion sino de "calculo".
Necesito saber, actualmente, en que "numero" de semana estamos.

Ej:
- Si estamos en el 1ro de enero entonces me deberia devolver "1".
- Si estamos en el 10 de enero me deberia devolver "2"
- Si estamos en el 31 de enero me deberia devolver "5"

Vean esta imagen de muestra para endenderme mejor, agreguen el http:
kravetes.com/pictures/semana.jpg[/url]

Con datediff estuve probando cosas pero la verdad es que estoy desauseado, busque por google y no encuentro nada

MUCHAS GRACIAS!!!!
Espero me puedan ayudar

[David]

Una pregunta, ¿necesitas la semana a la que corresponde en el mes o en el año?

[german_martin]

Iniciado por David el Grande

Una pregunta, ¿necesitas la semana a la que corresponde en el mes o en el año?

Necesitaria el numero de la semana, no la del año.
Ejemplo, si es el 1 de enero me va a devolver 1
Si es el 1ro de agosto tmbien me va a devolver 1

Es solo the current week number

gracias!!

[David]

Puedes usar DateDiff, sin problema. Por ejemplo, para el 31 de Enero:

Código vb:

MsgBox (DateDiff("w", #01/01/2009#, #01/31/2009#) + 1)
 

[german_martin]

Exacto, con fechas estaticas podria sacarlo facilmente pero como la fecha del ordenador es dinamico (cambia todos los dias jeje) como hare?

Suponete que yo hago MsgBox (DateDiff("w", #01/01/2009#, date) + 1) y date es 1 de agosto, no me va a dar un 1, me va a devolver algo mucho mas alto.

Ahora porque necesito esto...
En mi trabajo tenemos 5 cintas de backup, el backup se hace todos los sabados. Estan rotulados como:
CINTA SEMANA 1
CINTA SEMANA 2
CINTA SEMANA 3
CINTA SEMANA 4
CINTA SEMANA 5

La gente que la tiene que cambiar nunca la cambie, siempre dejan puesta una cualquiera o aveces la misma. Yo estoy armando un programa que actue asi:
"Si hoy es la semana 4 de este mes entonces voy a enviar un mail avisando 'pongan la cinta 4"
"Si hoy es la semana 1 de este mes entonces voy a enviar un mail avisando 'pongan la cinta 1"

Creo que asi quizas se entiende mejor, disculpanme si no me se expresar bien

GRACIAS!!!

[german_martin]

Alguna idea amigos?

[seba123neo]

Hola, algo asi?

Código vb:

Private Sub Command1_Click()
    MsgBox NumeroSemana(DateValue("01/08/2009"))
End Sub
 
Function NumeroSemana(pFecha As Date) As Integer
    Dim sFecha As String
    sFecha = "01/" & Month(pFecha) & "/" & Year(pFecha)
    NumeroSemana = DatePart("ww", pFecha) - DatePart("ww", DateValue(sFecha)) + 1
End Function
 

saludos.

[Avellaneda]

Hola, el ejemplo que te pusieron antes creo que no resuelve el problema ya que no cuenta las semanas completas del mes. p.e. 01/08/2009 devuelve 1 cuando debería devolver la última semana del mes anterior ya que ése día es sábado.
Y aunque así fuera, si pones 30/08/2009 devuelve la semana 6 (¿?).

Prueba con esta función:

Código Visual Basic:

Function NumeroSemanaMes(ByVal dFecha As Date) As Integer
Dim iSemanaActual As Integer, iSemanaAnterior As Integer, iRes As Integer
' calculamos el número de semana del año de la fecha actual
iSemanaActual = DatePart("ww", dFecha, vbMonday, vbFirstFourDays)
' calculamos el último día del mes anterior y su número de semana
dFecha = DateSerial(Year(dFecha), Month(dFecha), 0)
iSemanaAnterior = DatePart("ww", dFecha, vbMonday, vbFirstFourDays)
' por diferencia, sacamos la semana actual del mes en curso
iRes = iSemanaActual - iSemanaAnterior
' si es cero es que la semana es la última del mes anterior, repetimos el ciclo
If iRes = 0 Then
    ' la variable dFecha ahora es el último día del mes anterior
    iSemanaActual = DatePart("ww", dFecha, vbMonday, vbFirstFourDays)
    dFecha = DateSerial(Year(dFecha), Month(dFecha), 0)
    iSemanaAnterior = DatePart("ww", dFecha, vbMonday, vbFirstFourDays)
    iRes = iSemanaActual - iSemanaAnterior
End If
NumeroSemanaMes = iRes
End Function
 

Para llamarla, p.e. desde un CommandButton:

Código Visual Basic:

Private Sub Command1_Click()
MsgBox NumeroSemanaMes("01/08/2009")
'Si es la fecha actual: MsgBox NumeroSemanaMes(Date)
End Sub
 

Saludos

[german_martin]

Mensaje repetido

[german_martin]

gracias seba y avellaneda!!

lo unico raro es que si se ejecuta la primer semana de cualquier año devuelve el valor total de las semanas, por ej. 2/1/2001 devuelve 51

:D:D gracias!!

[Avellaneda]

Iniciado por german_martin

gracias seba y avellaneda!!

lo unico raro es que si se ejecuta la primer semana de cualquier año devuelve el valor total de las semanas, por ej. 2/1/2001 devuelve 51

:D:D gracias!!

Efectivamente, como indiqué anteriormente si la semana no es completa dentro del mismo mes, devuelve la última semana del mes o año anterior.
A mi me parece lo mas lógico, si no es así indicarlo.

[seba123neo]

el codigo que puse es lo mismo que ves en cualquier calendario, o sea las lineas del calendario...no cuenta como dijeron al semanas del mes anterior, se vuelve a 0 cuando empieza el mes...