PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WEBDEV 25 → Sumar un dia a la fecha actual
Sumar un dia a la fecha actual
Débuté par diego_ad, 31 juil. 2019 15:36 - 3 réponses
Membre enregistré
19 messages
Posté le 31 juillet 2019 - 15:36
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
Membre enregistré
19 messages
Posté le 31 juillet 2019 - 15:43
Resuelta:

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

--
Diego
Posté le 31 juillet 2019 - 19:30
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
Posté le 21 juillet 2021 - 20:24
Hola.
Prueba con este código. no me sale error

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