PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WEBDEV 2024 → Sumar un dia a la fecha actual
Sumar un dia a la fecha actual
Started by diego_ad, Jul., 31 2019 3:36 PM - 3 replies
Registered member
21 messages
Posted on July, 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
Registered member
21 messages
Posted on July, 31 2019 - 3:43 PM
Resuelta:

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

--
Diego
Posted on July, 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
Posted on July, 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)