saber la semana actual

Lo correcto podria ser asi:

Dim Inicio_de_la_Semana As Date =
DateTime.Now.AddDays((DateTime.Now.DayOfWeek - 1) * (-1)).Date
Dim Fin_de_la_Semana As Date = Inicio_de_la_Semana.AddDays(6).Date

MsgBox("Dia: " + Inicio_de_la_Semana.DayOfWeek.ToString + " " +
Inicio_de_la_Semana.ToString)
MsgBox("Dia: " + Fin_de_la_Semana.DayOfWeek.ToString + " " +
Fin_de_la_Semana.ToString)

Dim MyQuery As String = "SELECT ID_PEDIDO,FECHA,COLEGIO,NOMBRE,"
MyQuery += "APELLIDOS,F_PAGO,CIF,ESTADO,DTO_GEN,OPERADORA FROM
PEDIDOS WHERE Fecha >= @INICIO AND "
MyQuery += "Fecha < @FIN order by id_pedido desc "

Dim MyCommand As New SqlClient.SqlCommand
MyCommand.CommandText = MyQuery
MyCommand.Parameters.Add("@INICIO", SqlDbType.DateTime).Value =
Inicio_de_la_Semana
MyCommand.Parameters.Add("@FIN", SqlDbType.DateTime).Value =
Fin_de_la_Semana.AddDays(1)

Sonia... solo un apunte complementario a la respuesta de eduardo,
Al estilo clasico podemos saber la semana :
Dim fecha As Microsoft.VisualBasic.DateInterval
Me.Text = fecha.WeekOfYear
Pep,
[MVP] Visual Developer - Visual Basic


"Sonia" escribió:

hola!
estoy haciendo una consulta de pedidos q me salen en un listview y en el
load pongo q por defecto me salen los pedidos del dia actual y queria saber
si hay lago para hacer q me salgan los de la semana actual. es posible?
gracias

lo del dia actual lo hago asi:

fecha.Text = System.DateTime.Today



Dim nuevo As cargalist


mysql = "SELECT ID_PEDIDO,FECHA,COLEGIO,NOMBRE,
APELLIDOS,F_PAGO,CIF,ESTADO,DTO_GEN,OPERADORA FROM PEDIDOS where fecha=#" &
fecha.Text & "# order by id_pedido desc;"



nuevo.MySqlCargarVista(CadenaConexion, mysql, ListView1)

sorry!.. me olvide!, deberiamos usar la enumeracion por ejemplo desde...

Dim fecha As Microsoft.VisualBasic.DateInterval
Me.Text = DatePart(fecha.WeekOfYear, Date.Today)

[MVP] Visual Developer - Visual Basic


"Sonia" escribió:

hola!
estoy haciendo una consulta de pedidos q me salen en un listview y en el
load pongo q por defecto me salen los pedidos del dia actual y queria saber
si hay lago para hacer q me salgan los de la semana actual. es posible?
gracias

lo del dia actual lo hago asi:

fecha.Text = System.DateTime.Today



Dim nuevo As cargalist


mysql = "SELECT ID_PEDIDO,FECHA,COLEGIO,NOMBRE,
APELLIDOS,F_PAGO,CIF,ESTADO,DTO_GEN,OPERADORA FROM PEDIDOS where fecha=#" &
fecha.Text & "# order by id_pedido desc;"



nuevo.MySqlCargarVista(CadenaConexion, mysql, ListView1)

Basic contiene varias funciones para saber el dia (DAY) año (YEAR)
fecha actual (NOW)... creo que para saber la semana es (Wek) no te doy mas
info porque esta maq no tiene BASIC instalado.. Bueno espero haberte ayudado

___________________________________________________________________
<a(\⁄)pI3=|| Programmader… Inteligencia Artificial


"Sonia" wrote:

hola!
estoy haciendo una consulta de pedidos q me salen en un listview y en el
load pongo q por defecto me salen los pedidos del dia actual y queria saber
si hay lago para hacer q me salgan los de la semana actual. es posible?
gracias

lo del dia actual lo hago asi:

fecha.Text = System.DateTime.Today



Dim nuevo As cargalist


mysql = "SELECT ID_PEDIDO,FECHA,COLEGIO,NOMBRE,
APELLIDOS,F_PAGO,CIF,ESTADO,DTO_GEN,OPERADORA FROM PEDIDOS where fecha=#" &
fecha.Text & "# order by id_pedido desc;"



nuevo.MySqlCargarVista(CadenaConexion, mysql, ListView1)

gracias a todos!
"Sonia" escribió en el mensaje
news:O0bvu$

hola!
estoy haciendo una consulta de pedidos q me salen en un listview y en el
load pongo q por defecto me salen los pedidos del dia actual y queria

saber

si hay lago para hacer q me salgan los de la semana actual. es posible?
gracias

lo del dia actual lo hago asi:

fecha.Text = System.DateTime.Today



Dim nuevo As cargalist


mysql = "SELECT ID_PEDIDO,FECHA,COLEGIO,NOMBRE,
APELLIDOS,F_PAGO,CIF,ESTADO,DTO_GEN,OPERADORA FROM PEDIDOS where fecha=#"

&

fecha.Text & "# order by id_pedido desc;"



nuevo.MySqlCargarVista(CadenaConexion, mysql, ListView1)