Saltar al contenido

Ayuda con fechas

publicado

buenas tardes me gustaría saber si existe alguna macro que me cree en una celda especifica la fecha en el siguiente formado : si es 01/05/2014 que la macro la convierta en " Caracas al 01 de Mayo del 2014" o si es 20/05/2014 la exprese en " Caracas a los 20 días del mes de Mayo del 2014"

Featured Replies

publicado

Te dejo una UDF, ponla en un módulo y úsala como fórmula en cualquier celda de la siguiente manera

=CARACAS(
Celda
)

Siendo Celda la celda que contiene la fecha

Function CARACAS(ByVal Fecha As Range) As String
Dim Nommes As String
CARACAS = "#ERROR"
If IsDate(Fecha.Value) = False Then Exit Function
If Day(Fecha.Value) = 1 Then
CARACAS = " Caracas, al 1 de "
Else
CARACAS = " Caracas, a los " & Day(Fecha.Value) & " días del mes de "
End If
Nommes = MonthName(Month(Fecha.Value))
Nommes = UCase(Left(Nommes, 1)) & Mid(Nommes, 2)
CARACAS = CARACAS & Nommes & " del " & Year(Fecha.Value)
End Function
[/CODE]

publicado
  • Autor
Te dejo una UDF, ponla en un módulo y úsala como fórmula en cualquier celda de la siguiente manera

=CARACAS(
Celda
)

Siendo Celda la celda que contiene la fecha

Function CARACAS(ByVal Fecha As Range) As String
Dim Nommes As String
CARACAS = "#ERROR"
If IsDate(Fecha.Value) = False Then Exit Function
If Day(Fecha.Value) = 1 Then
CARACAS = " Caracas, al 1 de "
Else
CARACAS = " Caracas, a los " & Day(Fecha.Value) & " días del mes de "
End If
Nommes = MonthName(Month(Fecha.Value))
Nommes = UCase(Left(Nommes, 1)) & Mid(Nommes, 2)
CARACAS = CARACAS & Nommes & " del " & Year(Fecha.Value)
End Function
[/CODE]

Dios te continué bendiciendo con ese don de conocimientos, hermano excelente gracias

publicado
  • Autor

una ultima consulta y disculpa cuando es dia menor al 10 se puede hacer que el "cero" acompañe el numero del dia ejemplo:

Caracas, a los 8 días del mes de Junio del 2014 asi esta saliendo pero necesito que salga :

Caracas, a los 08 días del mes de Junio del 2014

publicado
  • Autor

listo la solucion era en una parte del codigo del udf

CARACAS = " Caracas, a los " & Day(Fecha.Value) & " días del mes de "

y tenia que ser:

CARACAS = " Caracas, a los " & Format(Day(Fecha.Value), "dd") & " días del mes de "

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.