Mensaje enviado por "Asdrubal Velasquez \(RadioMan\)" <radioman@cantv.net> el 9/01/2003

Hola.

Creo que esto es lo que buscas.

Public Function FechaPrimerDiadeLaSemana(Fecha As Date, Optional ByVal PrimerDia As VbDayOfWeek = vbMonday)
   FechaPrimerDiadeLaSemana = DateAdd("d", Weekday(Fecha) * (-1) + PrimerDia, Fecha)
End Function


El primer parámetro es la fecha y el segundo es el día en
que deseas que comience la semana tal como Domingo, lunes
etc.

Saludos.

'//RadioMan
Asdrubal Velasquez / e-mail: radioman@cantv.net
Puerto Ordaz - Venezuela


----- Original Message -----
From: Oscar Olivos
To: visualbasic-esp@yahoogroups.com
Sent: Thursday, January 09, 2003 5:07 PM
Subject: (VB-ESP) Primer dia de la semana


   Hola Lista, una pregunta
   Alguien sabe como capturar el primer dia de una semana en
base a una fecha especifica
   Por ejemplo :
   Fecha especifica=13/11/2002
   Primer dia de esa semana es 10/11/2002

Mensaje enviado por "Alberto M. Vernieri" <alberto_vernieri@yahoo.com.ar> el 9/01/2003

Hola!

PrimerDiaSemana = Fecha - WeekDay(Fecha, 0) + 1

Saludos
Alberto

----- Original Message -----
From: Oscar Olivos
To: visualbasic-esp@yahoogroups.com
Sent: Thursday, January 09, 2003 3:07 PM
Subject: (VB-ESP) Primer dia de la semana

   Hola Lista, una pregunta
   Alguien sabe como capturar el primer dia de una semana en base a una fecha especifica
   Por ejemplo :
   Fecha especifica=13/11/2002
   Primer dia de esa semana es 10/11/2002

  Gracias de antemano