delphi中如何实现一个日期之间的间隔多少天?

Posted 2023-05-05

.

参考技术A 用这个函数，它是根据天数来计算的。相差不足一天的。就返回0
function DaysBetween(const ANow, AThen: TDateTime): Integer;本回答被提问者采纳

Jquery计算指定日期加上多少天加多少月加多少年的日期

转载:https://www.cnblogs.com/phpfensi/p/10077884.html

/*
* 功能:实现VBScript的DateAdd功能.
* 参数:interval,字符串表达式，表示要添加的时间间隔.
* 参数:number,数值表达式，表示要添加的时间间隔的个数.
* 参数:date,时间对象.
* 返回:新的时间对象.
* var now = new Date();
* var newDate = DateAdd( "d", 5, now);
*--------------- DateAdd(interval,number,date) -----------------
*/
function DateAdd(interval, number, date) {
switch (interval) {
case "y ": {
date.setFullYear(date.getFullYear() + number);
return date;
break;
}
case "q ": {
date.setMonth(date.getMonth() + number * 3);
return date;
break;
}
case "m ": {
date.setMonth(date.getMonth() + number);
return date;
break;
}
case "w ": {
date.setDate(date.getDate() + number * 7);
return date;
break;
}
case "d ": {
date.setDate(date.getDate() + number);
return date;
break;
}
case "h ": {
date.setHours(date.getHours() + number);
return date;
break;
}
case "m ": {
date.setMinutes(date.getMinutes() + number);
return date;
break;
}
case "s ": {
date.setSeconds(date.getSeconds() + number);
return date;
break;
}
default: {
date.setDate(d.getDate() + number);
return date;
break;
}
}
}

var now = new Date();
// 加五天.
var newDate = DateAdd("d ", 5, now);
alert(newDate.toLocaleDateString())
// 加两个月.
newDate = DateAdd("m ", 2, now);
alert(newDate.toLocaleDateString())
// 加一年
newDate = DateAdd("y ", 1, now);
alert(newDate.toLocaleDateString())