Función con fechas

29/06/2006 - 07:28 por Roberto Checa | Informe spam

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.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

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

Responder a este mensaje

#2 Roberto Checa

30/06/2006 - 00:36 | Informe spam

Funciona perfectamente.
Desde Zaragoza-España, muchas gracias, Juan M.

"Juan M" escribió:

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida