Vicente Wohl Valderrama

Sub fecha() Dim fecha as Date fecha = Date día = Day(fecha) mes = Month(fecha) año = Year(fecha) End Sub NOTA: obtendrás el mes siempre como número, y el día como 1 en vez de 01, y el año como 2018 (ejemplo)