none
VBA en mac Office RRS feed

  • Pregunta

  • Hola buenos días, estoy iniciando en programación en VBA y cuando elaboro unos casos prácticos en visual, no me deja ejecutarlos.

    estos son unos de los casos:

    1) Función para la fecha actual

    Function MuestraFecha () As String

       MuestraFecha = Format (Date, "d/m/yyyy")

    End Function.

    si pongo la función en una celda de una hoja de excel, sale VALOR

    cuando lo depuro para revisar el error, me sale que el error esta en MuestraFecha = Format (Date, "d/m/yyyy")

    2) Determinar la edad de una persona

    Function CalculaEdad(ByVal fecha As Date) As Integer

          CalculaEdad = Year(Date)- Year(fecha)

    End Function

    cuando lo depuro para revisar el error, me sale que el error esta en CalculaEdad = Year(Date)- Year(fecha)

    3) Determinar el promedio de notas

    Function CalculaPromedio(ByVal n1 as Integer n2 as Integer) as Double

          CalculaPromedio = Format((n1+n2)/2,"0.00")

    End Function

    cuando lo depuro para revisar el error, me sale que el error esta en CalculaPromedio = Format((n1+n2)/2,"0.00")

    Que se puede hacer para corregir estos errores para que corran las funciones?

    Muchas Gracias

    miércoles, 6 de julio de 2016 15:18