Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Función con fechas

29/06/2006 - 07:28 por Roberto Checa | Informe spam
Ayuda Hacer una pregunta
Saludos y gracias por adelantado al grupo.

Trato de definir una función personalizada y no acabo de encontrar la
solución.

La función trata de devolver la estación del año en la que nos encontramos
dependiendo de la fecha. Viene ser así:

Function Estacion(fecha As Date)

Select Case fecha

Case 21 - 3 To 20 - 6: Estación = "Primavera"
Case 21 - 6 To 20 - 9: Estacion = "Verano"
Case 21 - 9 To 20 - 12: Estacion = "Otoño"
Case 21 - 12 To 20 - 3: Estacion = "Invierno"

End Select

End Function

Pero no funciona, tanto si le paso la fecha directamente =Estación(15-8)
como si lo hago por referencia a otra celda =Estacion(B2) donde B2 = 15-8 por
ejemplo. En este caso a B2 le doy un formato de celda personalizado d-m.

Qué estoy haciendo mal ?

Gracias por vuestro tiempo.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Juan M
29/06/2006 - 08:43 | Informe spam
Hola Roberto

La función trata de devolver la estación del año en la que nos encontramos
dependiendo de la fecha. Viene ser así:



prueba la siguiente funcion

un saludo
Juan

'= Inicio Codigo
Function Estacion(fecha As Date)

Select Case DateSerial(Year(fecha), Month(fecha), Day(fecha))

Case DateSerial(Year(fecha), 3, 21) To DateSerial(Year(fecha), 6, 20)
Estacion = "Primavera"
Case DateSerial(Year(fecha), 6, 21) To DateSerial(Year(fecha), 9, 20)
Estacion = "Verano"
Case DateSerial(Year(fecha), 9, 21) To DateSerial(Year(fecha), 12, 20)
Estacion = "Otoño"
Case DateSerial(Year(fecha), 12, 21) To DateSerial(Year(fecha), 20, 20)
Estacion = "Invierno"
End Select

End Function
'fin codigo

Preguntas similares

 

Busqueda sugerida :