martes, 20 de noviembre de 2007

SQL Server 2008 CTP Noviembre Liberado

Ya pueden descargar la CTP de Noviembre en este link http://www.microsoft.com/downloads/details.aspx?FamilyId=3BF4C5CA-B905-4EBC-8901-1D4C1D1DA884&displaylang=en

jueves, 8 de noviembre de 2007

Obtener semana y fechas con monthcalendar

Así como dice el título, hoy me encontré en la necesidad de obtener el rango de fechas de una determinada semana, para lo cual quise hacer uso del control MonthCalendar de Visual Basic 2005, pero grande fue mi frustración al ver que no le encontraba como hacerlo, asi que me puse a buscar por nuestro bien llamado "san google" y poco fue lo que pude conseguir, o será talvez que no sé buscar?, pero bueno encontré algunos ejemplos donde le das un rango de fechas inicial y final, y te permite obtener la semana. Pero lo que yo necesito, y muchos como yo, según he leido en varios post en los foros, es que dando el número de semana, te permita recuperar el rango de fechas de esa semana.

Todo esto lo hacía sin problemas con vb6, pues hacía uso del control MonthView, el cual te permitía establecer la semana y año, con lo cual automáticamente te permitía obtener el rango de fechas de la semana que tu querías, pero en este control Monthcalendar no se puede hacer eso o no lo conozco muy bien?, alguien lo ha utilizado de esa manera?. Bueno, pero si de algo les sirve, pues les diré que luego de haberme liado un buen rato con este monthcalendar, opté por usar mi viejo monthview del vb6 en un formulario de Visual Basic 2005 y con un pequeñísimo cambio, todo parece estar funcionando.

Acá les dejo el código por si les sirve de algo.

image

Código en vb6

    Dim vFinal As Date
    Calendario.MultiSelect = False
    Calendario.Year = CInt(TxtAnio.Text) 'Establezco el año que quiero
    Calendario.Week = CInt(TxtSemana.Text) 'Establezco semana
    Calendario.DayOfWeek = mvwMonday 'Estab. primer dia semana
    Calendario.MultiSelect = True
    Calendario.MaxSelCount = 7
    vFinal = Calendario.SelStart + 6
    Calendario.SelEnd = vFinal
    TxtDesde.Text = Calendario.SelStart
    TxtHasta.Text = Calendario.SelEnd

Código en VB2005

Dim vFinal As Date

oCalendario.MultiSelect = False
oCalendario.Year = CInt(TxtAnio.Text)
oCalendario.Week = CInt(TxtSemana.Text)
oCalendario.DayOfWeek = MSComCtl2.DayConstants.mvwMonday
oCalendario.MultiSelect = True
oCalendario.MaxSelCount = 7
vFinal = DateAdd(DateInterval.Day, 6, oCalendario.SelStart)
oCalendario.SelEnd = vFinal
TxtDesde.Text = oCalendario.SelStart
TxtHasta.Text = oCalendario.SelEnd

Debemos agregar a nuestra caja de herramientas el componente Microsoft MonthView que está  la ficha COM Components.

Bueno, espero sirva de algo o alguien me indique como hacer eso mismo en MonthCalendar.

Saludos

lunes, 5 de noviembre de 2007