Access - Creo q no me funciona

Public Function Diap(numero As Integer) As String

If (numero = 1) Then
Diap = "Dilluns"
Else
If (numero = 2) Then
Diap = "Dimarts"
Else
If (numero = 3) Then
Diap = "Dimecres"
Else
If (numero = 4) Then
Diap = "Dijous"
Else
If (numero = 5) Then
Diap = "Divendres" ' si la tabla está vacía
End If

End If

End If

End If

End If

End Function

Esta funcion la he hecho sin tener mucha idea de Visual, la idea es q cuando entre un numero 1,2,3,4,5 me de vuelva el dia de la semana al q corresponde 1=Lunes, 2=Martes... Pero yo lo he preobado y no me funciona. Por cierto el parametro de retorno es el nombre de la funcion por lo que he podido deducir no?

Has probado la funcion "Weekday(Fecha)"?......creo que te dara lo que pides sin necesidad de relaizar funciones con parametros. Busca en ayuda y aplicalo. Es sencillo.

Saludos. Javier

Para aclararte la ultima parte de tu pregunta, el nombre de la funcion es para identificarla y poder llamarla o ejecutarla, para lo que quieres hacer debes declara una variable por ejemplo "Dim DS as String". y en ves de utilizar tantos If en la funcion prueba con else if, esto sera mas eficiente.

La funcion que debes usar es weekdayname("fecha"), ya que la funcion weekday solo te devuelve un entero.
Saludos

Tienes toda la razon del mundo, lamento la equivocacion, no habia entendido bien la pregunta. Gracias Drasik por la aclaracion.

Saludos

Esta funcion que decis se encuentra en Access 97? Si fuera asi quizas es q debo de ponerla en castellano. Yo he probado NombreDiaSemana("fecha") y no me funciona

Prueba buscando en la ayuda de VBA, ahi te indicara la sintaxis correcta del a funcion.

Creo que aparte de los aportes de las funciones que darias el dia de la semana, deberiamos aclarar igual la duda respecto a la funcion que se presentó, pues talvez Drasick algun dia necesite evaluar nuevos valores, y su metodo esta pesimo, muchos if, else, enrredan la cosa

podria usar algo como

Public Function NombreDia(numero as byte) as String
Select Case numero
Case Is = 1
NombreDia="Lunes"
Case Is = 2
NombreDia="Martes"
Case Is = 3
NombreDia="Miercoles"
Case Is = 4
NombreDia="Jueves"
Case Is = 5
NombreDia="Viernes"
Case Is = 6
NombreDia="Sabado"
Case Is = 7
NombreDia="Domingo"
End Select
End Function