Valor Descripciónyyyy Añoq Trimestrem Mesy Día del añod Díaw Día de la semanaww Semana del añoh Horan Minutos Segundo
El argumento numero es asi:Constante Valor DescripciónvbUseSystem 0 Usa valores de API de idioma nacional (NLS).vbSunday 1 domingo (valor predeterminado)vbMonday 2 lunesvbTuesday 3 martesvbWednesday 4 miércolesvbThursday 5 juevesvbFriday 6 viernesvbSaturday 7 sábado
MiFecha = "19 de Octubre de 1962" ' Define una fecha.MiFechaCorta = CDate(MiFecha ) ' Convierte en tipo de datos Date.MiHora = "4:35:47 PM" ' Define una hora.MiHoraCorta = CDate(MiHora) ' Convierte en tipo de datos Date.
DateDiff(intervalo, fecha1, fecha2[,primerdíadelasemana[,primerasemanadelaño]])
Option Explicit Private Sub Form_Load() Text1 = " Escriba una fecha para calcular el númerode días de un mes " End Sub Private Sub Command1_Click() Dim Fecha_1 As Date Dim Fecha_2 As Date Fecha_1 = CDate(Text1) Fecha_2 = DateAdd("m", 1, Fecha_1) ' Muestra los días MsgBox " Este mes tiene : " & Format$(DateDiff("d", Fecha_1, Fecha_2)) End Sub