# data[].attributes.body
Estas funciones solo se implementan a variables declaradas de tipo Date, veremos a continuación las principales funciones.

Date: Función que permite devolver la fecha actual del sistema

DateAdd: Función que permite devolver una fecha añadiéndole un intervalo de tiempo. Estos intervalos se basan en el siguiente formato.

“d”:  Día

“y”: Año

“h”: Hora

“n”: Minuto

“m”: Mes

“q”: Trimestre

“s”: Segundo

“w”: Semana

“ww”: Semana de Calendario

“yyyy”: Año

DateDiff: Función que permite devolver la diferencia entre dos fechas lo cual se puede dar en días, meses o años

DatePart: Función que permite devolver parte de una determinada fecha. Por ejemplo, si necesitamos el año actual el código seria DatePart (“y”,Date)

Year: Función que permite devolver el año de una determinada fecha

Month: Función que permite devolver el mes de una determinada fecha

Day: Función que permite devolver el día de una determinada fecha

Hour: Función que permite devolver la hora actual de un determinado tiempo

Now: Función que permite devolver la fecha actual del sistema.

Time: Función que permite devolver la hora actual del sistema.

# data[].attributes.headline
Para usar el control de Calendario en tus proyectos con el siguiente código:

# data[].attributes.subject
Para usar el control de Calendario en tus proyectos con el siguiente código:

# data[].attributes.body
vbCalGreg (0) Indica que se usa el calendario gregoriano.

vbCalHijri (1) Indica que se usa el calendario Hijri.

# data[].attributes.body
Esta función formatea y retorna fechas o horas , en el primer parámetro se le debe pasar la fecha u hora a formatear, y el segundo parámetro es el tipo de formato, pueden ser 5 tipos.

# data[].attributes.body
Podemos mandar de manera muy sencilla mensajes a los usuarios cuando estamos utilizando VBA bien en una macro normal o bien en un evento.

# data[].attributes.body
El uso más común que le puedes dar a la función MsgBox es el de mostrar un mensaje al usuario o el de solicitarle una respuesta simple (por ejemplo, Aceptar o Cancelar).

Sub MensajeSencillo()

MsgBox "Bienvenidos a esta web!"

End Sub

# data[].attributes.body
Además de utilizarla para mostrar mensajes que requieren una acción del usuario, yo la empleo para controlar en momentos específicos, el valor de las variables que utilizo.

# data[].attributes.body
Crea una MsgBox añadiendo el código "msgvalue = MsgBox("Click OK or Cancel", vbOkCancel, "Message Box Title")"

# data[].attributes.body
FUNCIONES

vbGeneralDate ( 0 ) Por defecto. Retorna la fecha en el formato: mm/dd/yy y la hora si es especificada: hh:mm:ss PM/AM.

vbLongDate  ( 1 )  Retorna la fecha en el formato: día de la semana, mes, año

vbShortDate ( 2 ) Retorna la fecha en el formato: mm/dd/yy

vbLongTime ( 3 ) Retorna la fecha en el formato: hh:mm:ss PM/AM

vbShortTime ( 4 ) Muestra una hora con el formato de tiempo corto especificado en la configuración regional del equipo.

# data[].attributes.body
CÓDIGO

Public Function FnFormateDateTime()

Dim strFecha

Dim strCadenaRes

strFecha = Now strCadenaRes = "Formato fecha estandar " & FormatDateTime(strFecha, vbGeneralDate) & vbCrLf

strCadenaRes = strCadenaRes & "Formato fecha larga: " & FormatDateTime(strFecha, vbLongDate) & vbCrLf

strCadenaRes = strCadenaRes & "Formato fecha corta: " & FormatDateTime(strFecha, vbShortDate) & vbCrLf

strCadenaRes = strCadenaRes & "Formato hora larga: " & FormatDateTime(strFecha, vbLongTime) & vbCrLf

strCadenaRes = strCadenaRes & "Formato hora corta: " & FormatDateTime(strFecha, vbShortTime) & vbCrLf

MsgBox strCadenaRes

End Function