VBA incluye varios cientos de funciones integradas, y la mayoría de ellas nunca las utilizarás. Las siguientes aparecen con frecuencia en la automatización empresarial: limpieza de texto, manejo de fechas y conversión de tipos.

Funciones de fecha

Debug.Print Now()                    ' current date and time
Debug.Print Date                     ' today's date only
Debug.Print DateAdd("d", 30, Date)   ' 30 days from today
Debug.Print DateDiff("d", #01/09/2023#, Date)  ' days since hire date
Debug.Print Format(Date, "dd/mm/yyyy")

Now() y Date parecen similares pero responden a preguntas diferentes: Now() incluye la hora actual hasta el segundo (útil para registrar cuándo se ejecutó una macro), mientras que Date solo proporciona el día del calendario, que es lo que se necesita para todo lo relacionado con fechas de vencimiento o edades. DateAdd y DateDiff son imágenes opuestas: DateAdd proyecta hacia adelante o hacia atrás desde una fecha por una unidad dada ("d" para días, pero también funcionan "m" para meses y "yyyy" para años), mientras que DateDiff mide la diferencia entre dos fechas existentes.

Funciones de texto

Debug.Print UCase("wireless mouse")     ' WIRELESS MOUSE
Debug.Print LCase("WIRELESS MOUSE")     ' wireless mouse
Debug.Print Left("P001", 1)             ' P
Debug.Print Right("P001", 3)            ' 001
Debug.Print Mid("P001", 2, 3)           ' 001
Debug.Print Trim("  Keyboard  ")        ' Keyboard
Debug.Print Len("Laptop Stand")         ' 12
Debug.Print InStr("Wireless Mouse", "Mouse")  ' 10 (position found)

UCase y LCase son útiles para hacer comparaciones sin distinguir mayúsculas y minúsculas; por ejemplo, If UCase(category) = UCase("electronics") Then funciona sin importar cómo se escribió originalmente la categoría. Left, Right y Mid extraen una parte de una cadena, diferenciándose solo en el punto de inicio: Left y Right cuentan desde los extremos, mientras que Mid toma una posición inicial y una longitud, por lo que Mid("P001", 2, 3) y Right("P001", 3) devuelven lo mismo aquí — "P001" solo tiene un carácter de prefijo, así que "empezando desde la posición 2" y "los últimos 3 caracteres" llegan a la misma subcadena. Trim elimina silenciosamente los espacios al principio y al final — una función poco llamativa que resulta muy útil cuando los datos se han copiado y pegado desde lugares con espaciado inconsistente. InStr busca una cadena dentro de otra y devuelve la posición donde se encuentra (o 0 si no está), lo que permite comprobar si un nombre de producto contiene la palabra Mouse sin requerir coincidencia exacta.

Funciones numéricas

Debug.Print Round(24.996, 2)   ' 25
Debug.Print Abs(-15)           ' 15
Debug.Print Int(7.9)           ' 7

Round e Int ambos reducen un número, pero no de la misma manera: Round(24.996, 2) redondea al valor más cercano con 2 decimales (25.00, que se muestra como 25), mientras que Int(7.9) siempre trunca hacia cero sin importar cuán cerca esté el decimal de redondear hacia arriba, dando 7 en lugar de 8. Confundirlos es una fuente común de errores en precios: redondear un precio al centavo más cercano casi siempre debe hacerse con Round, no con Int, o se cobrará sistemáticamente de menos por una fracción de centavo en cada transacción.

Conversión de tipos

Crucial al extraer valores de una hoja, ya que los valores de celda suelen llegar como Variant:

Dim priceText As String
priceText = "39.50"
Dim price As Double
price = CDbl(priceText)     ' text → number
 
Dim stockValue As Variant
stockValue = "44"
Dim stockCount As Integer
stockCount = CInt(stockValue)

CDbl convierte a Double, CInt a Integer, CStr convierte a String y CDate convierte a un valor de tipo Date.

¿Por qué no dejar que VBA convierta automáticamente cuando sea necesario? Normalmente lo hará, pero depender de eso es frágil: una celda que parece un número pero en realidad fue escrita o importada como texto puede hacer que una comparación If o una operación aritmética falle o se comporte de manera inesperada, y la conversión explícita permite detectar ese error justo en la línea donde está el dato incorrecto, en lugar de tres pasos después.

Tarea

1. Escribir una línea que extraiga solo la parte numérica de "P003" usando Mid (sugerencia: comenzar en la posición 2).
2. Escribir una línea que convierta ese texto extraído en un número real con CInt o CLng.
3. Usar DateDiff para calcular cuántos días han pasado desde que Emma Davis fue contratada (15/03/2020) hasta hoy.