Dim monthNameSP(12)

monthNameSP(0)=""

monthNameSP(1) ="Enero"

monthNameSP(2) ="Febrero"

monthNameSP(3) ="Marzo"

monthNameSP(4) ="Abril"

monthNameSP(5) ="Mayo"

monthNameSP(6) ="Junio"

monthNameSP(7) ="Julio"

monthNameSP(8) ="Agosto"

monthNameSP(9) ="Septiembre"

monthNameSP(10)="Octubre"

monthNameSP(11)="Noviembre"

monthNameSP(12)="Diciembre"

Dim monthNameEN(12)

monthNameEN(0)=""

monthNameEN(1)="January"

monthNameEN(2)="February"

monthNameEN(3)="March"

monthNameEN(4)="April"

monthNameEN(5)="May"

monthNameEN(6)="June"

monthNameEN(7)="July"

monthNameEN(8)="August"

monthNameEN(9)="September"

monthNameEN(10)="October"

monthNameEN(11)="November"

monthNameEN(12)="December"



function fancyDate(anyDate)

   if not isDate(anyDate) then Exit Function

   part1=Day(anyDate) & " de "

   part2=monthName(Month(anyDate)) & " de "

   part3=Year(Date)

   fancyDate=part1 & part2 & part3

end function