Visual Basic - obtener numero de semana del año

Life is soft - evento anual de software empresarial
 
Vista:

obtener numero de semana del año

Publicado por nikko (3 intervenciones) el 13/08/2007 02:15:17
una duda, alguien sabe como obtener el no.de semana de un año, lei algo y pues se supone q es con el format date/string time, pero no le hallo la forma de implementarlo..
alguien sabe de k forma se hace esto ..
o alguna alternativa para obtener la el no de la semana q puede ser de 1-53..

salu2..!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:obtener numero de semana del año

Publicado por Carlos (66 intervenciones) el 13/08/2007 16:02:23
en todo caso seria vbSunday y no vbMonday, recuerda que el primer día de la semana es domingo y no lunes... ^_^
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:obtener numero de semana del año

Publicado por nikko (3 intervenciones) el 13/08/2007 17:05:34
mmm ya obtuve algo, pero me regresa el no de sem q tiene un año, creo k hay algo con los parametros para despues hacer una resta, asi me imagino, ya q al ver esto me arroja un "53" q es el no de total de sems, pero como seria para saber exactamente en k semana del año estamos, creo q seria en una resta, pero podrian colocar cuales son los parametros de sta instruccion

salu2..
gracias. por su ayuda---
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:obtener numero de semana del año

Publicado por nikko (3 intervenciones) el 13/08/2007 19:36:33
listo ya kedo eso, pero es q tenia otra variable mal con el mismo nombre..
sorry..
graxs por la ayuda..
debo checar eso.. del dia de inicio..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:obtener numero de semana del año

Publicado por Zoser (2 intervenciones) el 13/05/2008 05:52:32
Hola yo estoy buscando tambien como obtener el numero de la semana del año, podrias compartir la o las funciones que utlizaste para obtenerlo

De antemano gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:obtener numero de semana del año

Publicado por nikkocorp (1 intervención) el 13/05/2008 15:54:09
Saludos, soy nikko.
Aqui esta algo de lo que utilice para lo que requeria en ese momento.
Espero te sirva.
1
2
3
4
5
6
Public Function no_semana_anno()
    fecha = Format(Date, "yyyymmdd")
    no_sema = DatePart("ww", Date, vbMonday, vbFirstFourDays)
    anno = Mid(fecha, 1, 4)
    no_semana_anno = anno & no_sema
End Function

Se puede adaptar mas pero pues ya no lo hice.
Cualquier duda estoy a tus ordenes.

Saludos.!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

RE:obtener numero de semana del año

Publicado por Atln (26 intervenciones) el 18/06/2008 16:04:02
gracias no recordaba la función DatePart... a mi también me ha ayudado...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:obtener numero de semana del año

Publicado por Miguel (1 intervención) el 04/06/2009 17:47:49
obtener numero de la semana en visual c#:
Hacer esto :
double numSemana = DateTime.Now.DayOfYear / 7;

si sale un numero con decimales, es la parte entera + 1;
si sale sin decimales , es simplemente la parte entera.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:obtener numero de semana del año

Publicado por Mirabal (4 intervenciones) el 01/10/2008 05:34:40
Nombre olvidense de calcular con funciones... lo unico que necesitas es agregarle a tu aplicacion un control llamado MonthView... a ese le ingresas la fecha que necesitas y luego le pides la semana a la que le corresponde.

Esta funcion esta muy simple se las pongo con el click.

1
2
3
4
5
6
7
Private Sub MonthView1_DateClick (ByVal DateClicked As Date)
'aqui se le asigna la fecha al control al darle click en una fecha
'y te regresara el numero de semana,
 
Text1=MonthView1.Week
 
End Sub
''''''Disfrutenla...'"""""
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

gracias

Publicado por nell (3 intervenciones) el 10/11/2012 17:41:59
Amigos si estan buscando lo que yo. pues el codigo que anteriormente an publicado si funciona. nos da el numero de semanas y el año. gracias a nikkocorp
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

obtener numero de semana del año

Publicado por vicent (4 intervenciones) el 05/05/2013 17:53:01
Prueva con esto si pones VBMONDAY te contara las semanas a partir del lunes como primer dia

label11.Caption = Format(Now, "ww", vbMonday)

'este otro te dice el numero de semana dada una fecha

diaSemana = Weekday(fecha, vbMonday)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

obtener numero de semana del año

Publicado por Miguel Ángek (1 intervención) el 04/07/2018 17:20:26
Si vas a la ventana de inmediato y pones
?Format (date, "ww")
Te aparecerá el número de la semana de la fecha actual, por tanto, Si quieres introducir una fecha para un evento "change" de la hoja de cálculo en cuestión para que te lo convierta en el número de la semana al que pertenece, deberías escribir el siguiente códico:

1
2
3
If IsDate (Target) = True Then
     Target.Offset (0, 1) = Format (Target, "ww")
End If

Con esto, conseguimos que cualquier celda que modifiquemos y sea de formato fecha, nos aparezca en la siguiente el número de la semana.
Si quieres algo más sofisticado, prueba con esto:

1
2
3
4
5
6
If Target.Column = 1 And Target.Row >=2 Then
   If IsDate (Target) = True Then
   Target.Offset (0, 1) = Format (Target, "dddd")
   Target.Offset (0, 2) = Format (Target, "ww")
   End If
End If

Te proporcionará algo como esto:

1
2
Fecha         Día       Semana
01/07/2018  domingo     27

Habiendo sólamente introducido el dato de la fecha.

Espero haberte ayudado.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar