¿Qué es la función VBA DateValue?
Una función DateValue es una función incorporada en Excel VBA en la categoría de función Fecha / hora. Funciona como función de VBA y como función de hoja de trabajo en VBA. Esta función devuelve el número de serie o el valor de Fecha proporcionado en el formato de representación de cadena ignorando la información de hora proporcionada por la cadena de Fecha. Se usa de dos formas diferentes en Excel. Esta función se usa como una fórmula de hoja de trabajo ingresando en una celda de la hoja de trabajo. Se utiliza como código de macro en la aplicación VBA, ingresándolo a través del Editor de Visual Basic asociado con Microsoft Excel.
En este artículo, vamos a aprender ejemplos de VBA DATEVALUE y cómo usarlo con una explicación clara.
Explicación de la función de valor de fecha de VBA
En VBA, DATEVALUE usa la siguiente sintaxis.
Esta función usa solo el argumento o parámetro único
- Fecha : es la fecha representada en formato de cadena
- Devoluciones: esta función devuelve el valor de la fecha cuando se usa como función de VBA. Devuelve el valor de la fecha cuando se usa como una función de hoja de trabajo
La función VBA DateValue es capaz de interpretar los datos representados en formato de texto que se menciona en un formato válido de Excel. No puede devolver el valor de la fecha si la cadena incluye la representación de texto del día de la semana.
Los beneficios de la función VBA DateValue son extraer el valor de la fecha de la cadena y convertir la fecha con la hora en la única fecha. Podemos simplemente que cuando se da una fecha con el tiempo, esta función solo valor de fecha evitando el valor de tiempo.
¿Cómo utilizar Excel VBA DATEVALUE?
Para usar la función DateValue en Excel, primero debe abrir el editor de VBA.
El botón de comando debe colocarse en la hoja de cálculo de Excel para agregarle las líneas del programa VBA. Para implementar las líneas del programa, el usuario debe hacer clic en el botón de comando en la hoja de Excel. Para tener una salida válida del programa, se proporciona una entrada válida a través del argumento. Por ejemplo, el siguiente código ayuda a la creación de una macro para ejecutar la función DateValue para extraer el valor de la fecha del texto en VBA.
Programa de VBA:
Sub Datebutton () Dim myDate As Date myDate = DateValue ("15 de agosto de 1991") MsgBox Date (myDate) End Sub
Este código da como resultado la fecha 15 de la entrada dada.
Ejemplos de Excel VBA DATEVALUE
A continuación se muestran los ejemplos de DateValue en Excel VBA.
Ejemplo n. ° 1: obtener día, mes y año a partir de una fecha
Se siguen algunos pasos para crear y ejecutar el programa en VBA. Aquellos incluyen
Paso 1: Vaya a la pestaña Desarrollador, coloque el cursor en una celda en la hoja de Excel y haga clic en la opción 'Insertar' y elija 'Botón de comando' en Control ActiveX, como se muestra en la figura.
Arrastre el Botón donde desee y dé el título como Botón Fecha desde la ventana de propiedades.
Paso 2: haga doble clic en el botón; redirigirá al proyecto de VBA y escribirá el código entre el botón de subcomando privado y el subcomando final.
El código debe desarrollarse como se muestra a continuación para obtener una fecha, mes y año.
Código:
Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("19 de abril de 2019") MsgBox Date MsgBox Year (Exampledate) MsgBox Month (Exampledate) End Sub
En este código, Datebutton1_Click () es el nombre y la fecha de ejemplo es variable con el tipo de datos Date y Msgbox para mostrar la salida.
Paso 3: mientras se desarrolla el código, se producirán errores de discrepancia de tipo de VBA y es necesario solucionarlos.
Paso 4: En este paso, ejecute el programa haciendo clic en la opción Ejecutar.
O podemos verificar o depurar el programa paso a paso, seleccionando la opción Paso a paso en el menú Depurar. Si nuestro código no tiene errores, muestra el resultado.
Paso 5 : Cuando se ejecuta el programa, primero muestra el cuadro de mensaje con la fecha indicada en la entrada de texto. A continuación, haga clic en Aceptar para ver el valor del año nuevamente, haga clic en Aceptar en el cuadro de mensaje para ver el valor del mes.
Ejemplo n. ° 2: uso de DatePart para obtener las diferentes partes de la fecha
Paso 1: Vaya a la pestaña Desarrollador de Excel, coloque el cursor en una celda de la hoja de Excel y haga clic en la opción 'Insertar' y elija 'Botón de comando' en Control ActiveX, como se muestra en la figura.
Paso 2: Arrastre el botón y escriba el título como DatePart en las propiedades.
Haga doble clic en este botón. Dirige a la hoja del Editor de Visual Basic y se muestra de la siguiente manera.
Step 3: Develop the code using the DatePart with DateValue, as shown in the figure.
Code:
Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub
In this program, DatePart1 is the macro name, and partDate is the argument name with data type ‘variant.’ For displaying year, date, month, and a quarter, the format is applied as “yyyy,” “d,” “m,” and “q.” If we make any mistake in the format, it displays the following error.
Step 4: After successful debugging of the program, run the program by clicking on the run button to use excel shortcut key F5.
The code first displays the full date, and then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value, respectively.
Things to Remember About the VBA DATEVALUE
The following things must be remembered while using the DateValue function in Excel VBA
- Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is a proper text format
- When we try to get the only date from the string argument with code ‘msgbox date (argument name),’ it displays the type mismatch error.
- We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program.
- Cuando se usa DatePart para obtener los valores, se debe seguir el formato apropiado. De lo contrario, genera un 'error de tiempo de ejecución 5' con un mensaje o una llamada de procedimiento no válida.
