PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WEBDEV 2024 → Sumar un dia a la fecha actual
Sumar un dia a la fecha actual
Iniciado por diego_ad, jul., 31 2019 3:36 PM - 3 respostas
Membro registado
21 mensagems
Publicado em julho, 31 2019 - 3:36 PM
Buenos dias.

Tengo que verificar la existencia de un registro dentro de un rango de fecha. Puntualmente, si existe determinado registro con fecha de mañana. Para lograrlo estoy haciendo lo siguiente:

dHoy = Today()
dHoy..Day=dHoy..Day+1
dMañana=dHoy

El problema es que cuando dHoy es 31 y le sumo 1 me da error, y es lógico.
La pregunta es si existe alguna función para sumar un dia a una fecha, por ejemplo hoy 31/07/2019 + 1, que me devuelva 01/08/2019. ¿Hay algo similar o debo hacer alguna función para contemplar todos los casos?

Saludos y gracias

--
Diego
Membro registado
21 mensagems
Publicado em julho, 31 2019 - 3:43 PM
Resuelta:

dManana=IntegerToDate(DateToInteger( Today())+1)

--
Diego
Publicado em julho, 31 2019 - 7:30 PM
dHoy..day++

dHoy..day+=1

Saludos
Raül Vidiella


El 31/07/2019 a les 13:36, diego_ad ha escrit:
Buenos dias.

Tengo que verificar la existencia de un registro dentro de un rango de
fecha. Puntualmente, si existe determinado registro con fecha de mañana.
Para lograrlo estoy haciendo lo siguiente:
dHoy = Today()
dHoy..Day=dHoy..Day+1
dMañana=dHoy

El problema es que cuando dHoy es 31 y le sumo 1 me da error, y es lógico.
La pregunta es si existe alguna función para sumar un dia a una fecha,
por ejemplo hoy 31/07/2019 + 1, que me devuelva 01/08/2019. ¿Hay algo
similar o debo hacer alguna función para contemplar todos los casos?

Saludos y gracias

--
Diego



---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
https://www.avast.com/antivirus
Publicado em julho, 21 2021 - 8:24 PM
Hola.
Prueba con este código. no me sale error

fech is Date ="20190731"
fech=IntegerToDate(DateToInteger( fech)+1)
Trace(fech)