Cita:
y tengo una fecha armada de la siguiente formaFunction Comtexto(texto)
Select Case texto
Case "Ene"
ComTexto =01
Case "Feb"
ComTexto =02
Case "Mar"
ComTexto =03
Case "Abr"
ComTexto =04
Case "May"
ComTexto =05
Case "Jun"
ComTexto =06
Case "Jul"
ComTexto =07
Case "Ago"
ComTexto =08
Case "Sep"
ComTexto =09
Case "Oct"
ComTexto =10
Case "Nov"
ComTexto =11
Case "Dic"
ComTexto =12
End Select
End Function
Select Case texto
Case "Ene"
ComTexto =01
Case "Feb"
ComTexto =02
Case "Mar"
ComTexto =03
Case "Abr"
ComTexto =04
Case "May"
ComTexto =05
Case "Jun"
ComTexto =06
Case "Jul"
ComTexto =07
Case "Ago"
ComTexto =08
Case "Sep"
ComTexto =09
Case "Oct"
ComTexto =10
Case "Nov"
ComTexto =11
Case "Dic"
ComTexto =12
End Select
End Function
Cita:
mi pregunta es: como puedo obtener el ultimo dia del mes de acuerdo al mes y el año que agrego en este fragmento &"/"&ComTexto(x(0))&"/"&Year(Date()) hay alguna forma de obtener el ultimo dia del mes ya que al poner 31 cuando inicio la busqueda por ejemplo en el mes febrero que tiene 28 dias me da error de desbordamiento. para solucionar eso necesito poner el ultimo dia de forma dinamica hay alguna funcion o algo. BD=request.QueryString("BD")
x=split((BD),"_")
response.write ComTexto(x(0))
fechafin = 31&"/"&ComTexto(x(0))&"/"&Year(Date())
x=split((BD),"_")
response.write ComTexto(x(0))
fechafin = 31&"/"&ComTexto(x(0))&"/"&Year(Date())
De antemano Mc