Ninguno

DateSerial
Devuelve un valor Date que representa un año, mes y día específicos, con la información de la hora establecida en medianoche (00:00:00).
Datetime.Now
Obtiene un objeto DateTime que seestablece en la fecha y hora actual de este equipo, expresada como hora local.
DateAdd
Devuelve un valor de tipo Date que contiene un valor de fecha y hora al que se ha agregado un intervalo detiempo especificado.
Bueno, sin más rodeos pasemos a los ejemplos. En esta oportunidad de trata de un formulario con una serie de botones y cajas de texto que nos van a informar distintas fecha como porejemplo, el último día del mes actual o el primer día hábil de un mes, etc. Es muy sencillo y el ejemplo creo que es lo suficientemente claro por lo que no voy a explicarlo. Simplemente prestenatención al código y podrán encontrar respuesta a muchas de las dudas que se generan al trabajar con fechas.
Este es el formulario que usaremos para el ejemplo:

y el código es el siguiente:

Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Fecha Actual
MsgBox(Now.Date, MsgBoxStyle.OkOnly, "Fecha Actual")
End Sub
Private SubButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Fecha y Hora Actual
MsgBox(Now(), MsgBoxStyle.OkOnly, "Fecha y Hora Actual")
End Sub
Private SubButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Primer Día del Mes
MsgBox(DateSerial(Now.Year, Now.Month, 1), MsgBoxStyle.OkOnly, "Primer Día del Mes")
End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'Ultimo día del Mes
Dim fecha1 As Date = DateAdd(DateInterval.Month, 1, Now.Date)MsgBox(DateAdd(DateInterval.Day, -1, DateSerial(fecha1.Year, fecha1.Month, 1)), MsgBoxStyle.OkOnly, "Ultimo día del Mes")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As...