No coinciden los tipos. (PORQUE?)

[2Fast To You]

Bueno, estoy haciendo un programita el cual necesito sumarle X días a la fecha actual:

Text7 = DateValue(Now + Text8)

Pero cuando el valor de Text8 no es nada es decir es en blanco, me dice un Error:

Error '13' en tiempo de ejecución :

No coinciden los tipos

Porque es eso??

Saludos

[zabait]

Text7 = iif(len(text8) = 0, DateValue(Now), DateValue(Now + Text8))

Te da el error porque intentas aplicar una suma a un dato de formato fecha que no es de dicho formato.
El problema recurrente de las fechas en vb.

[zabait]

Text7 = iif(isdate(text8), DateValue(Now + Text8), DateValue(Now))

Si te sigue dando el error en el iif, ponlo en dos lineas

if isdate(text8) then
text7 = DateValue(Now + Text8)
else
text7 = DateValue(Now)
endif


Te da el error porque intentas aplicar una suma a un dato de formato fecha que no es de dicho formato.
El problema recurrente de las fechas en vb.

[lic_dahool]

Text7 = DateValue(Now + cint(Text8))

En caso de que el contenido de Text8 no sea un valor numérico devolverá 0.

Saludos.

[GeoAvila]

com si lo acepta es asi..

Varfecha = date +15

nos vemos..

[2Fast To You]

Bueno, ninguna respuesta me a funcionado, siempre que borra el Numero que pongo en Text7 me sale el mismo Error.

Saludos

[reel]

Porque no utilizas la función DateAdd?

Saludes

[2Fast To You]

Me puedes decir algún ejemplo:

Saludos

[reel]

Aayuda online del MSDN:

MSDN Library

Saludes

[David]

Iniciado por 2Fast To You

Bueno, estoy haciendo un programita el cual necesito sumarle X días a la fecha actual:

Text7 = DateValue(Now + Text8)

Pero cuando el valor de Text8 no es nada es decir es en blanco, me dice un Error:

Error '13' en tiempo de ejecución :

No coinciden los tipos

Porque es eso??

Saludos

Te da error porque Now es de tipo Date y Text8 es de tipo String

[2Fast To You]

ok, pero como puedo solucionar eso ''

[David]

Iniciado por 2Fast To You

ok, pero como puedo solucionar eso ''

Sí, pero realmente será mejor utilizar DateAdd:

Código:

Text1 = DateAdd("d", CDbl(Text2), CDate(Now))