Cálculo con fechas: DateAdd y DateDiff

 Cálculo con fechas: DateAdd y DateDiff

Tenemos 2 funciones:

DateAdd: añade (o resta) un periodo de tiempo a una fecha dada, devolviendonos la fecha resultante

• Result = DateAdd ( Date as Date , Period AS Integer , Count AS Integer ) AS Date

DateDiff: restar dos fechas, devolviendo el peridos de tiempo pasado. Nos puede indicar dias, meses, años , horas, etc:

• Count = DateDiff ( Date1 AS Date , Date2 AS Date , Period AS Integer ) AS Integer

Ejemplo:

Dim date1 As Date
Dim date2 As Date

'ejemplo para que calcula que fecha obtenemos si restamos 27 dias a la fecha actual
date1 = Date(Year(Now), Month(Now), Day(Now))
date2 = DateAdd(date1, gb.Day, -27)
Print "Fecha actual: ", date1, " menos 27 dias, date2 quedaria ", date2

'ejemplo: a la fecha actual, le restamos la fecha "date2", ¿que diferencia saldrá
'
Print "Fecha actual: ", date1, " le restamos la fecha date2, saldria: ", DateDiff(date1, date2, gb.day)

Fuentes:
http://gambaswiki.org/wiki/lang/dateadd?w
http://gambaswiki.org/wiki/lang/datediff?w
http://gambaswiki.org/wiki/cat/time?w