Sección de códigos , trucos y ejemplos para visual basic

86 - Obtener el primer y último día de un mes mediante la función Dateserial del visual basic

Ejemplo que utiliza la función Dateserial de Visual Basic para obtener el primer y último día de un mes

En el ejemplo hay una Sub que le enviamos la fecha como parámetro, en este ejemplo mostramos mediante un MsgBox el primer y último día del mes de Febrero del 2006.

Código fuente

Option Explicit Private Sub Form_Load() Dim Una_Fecha As Date 'Establecemos la fecha que queremos averiguar Una_Fecha = "5/2/2006" 'Se la pasamos a la sub como parametro Call ObtenerPrimerUltimoDia(Una_Fecha) End Sub 'Pasarle a esta rutina la fecha que queremos averiguar Private Sub ObtenerPrimerUltimoDia(Fecha As Date) Dim Primer As Date Dim Ultimo As Date 'Usamos la funcion DAteSerial para obtener el primero y el ultimo dia Primer = DateSerial(Year(Fecha), Month(Fecha) + 0, 1) Ultimo = DateSerial(Year(Fecha), Month(Fecha) + 1, 0) MsgBox " Primer día : " & Primer & vbNewLine & _ " Último día : " & Ultimo, vbInformation End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb