3 funciones con fechas

Aquí tienes 3 funciones que trabajan con fechas:
FormatoFecha
FormatoFecha("1/4/2004",true,true)= 4 de Enero de 2004
FormatoFecha("1/4/2004",true,false)= 4 Enero
FormatoFecha("1/4/2004",false,true)= Enero de 2004
FormatoFecha("1/4/2004",false,false)= Enero
EsFiesta
EsFiesta("1/1/2004")= True
MesesAAnyos
MesesAAnyos(123)= 10 Años y 3 Meses