计算两日期间的天数？

Question

d1 = CDate(Left("20020101", 4) & "-" & Mid("20020101", 5, 2) & "-" & Right("20020101", 2))
  d2 = CDate(Left("20030304", 4) & "-" & Mid("20030304", 5, 2) & "-" & Right("20030304", 2))
  x = DateDiff("ww", d1, d2)

Answer 1

Microsoft(R) Visual Basic(R) Scripting Edition
DateDiff 函数   语言参考  
版本 2  
 请参阅 
--------------------------------------------------------------------------------描述
返回两个日期之间的时间间隔。 
语法
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
DateDiff 函数的语法有以下参数：参数 描述 
interval 必选。String expression 表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。 
date1, date2 必选。日期表达式。用于计算的两个日期。 
firstdayofweek 可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。 
firstweekofyear 可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。 设置
interval 参数可以有以下值：
设置 描述 
yyyy 年 
q 季度 
n 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 小时 
m 分钟 
s 秒 
firstdayofweek 参数可以有以下值：常数 值 描述 
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。 
vbSunday 1 星期日（默认） 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 
firstweekofyear 参数可以有以下值：常数 值 描述 
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。 
vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。 
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。 
vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。 
说明
DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。
要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。如果 date1 晚于 date2，则 DateDiff 函数返回负数。firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。下面的示例利用 DateDiff 函数显示今天与给定日期之间间隔天数: Function DiffADate(theDate)
  DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate)
End Function

Answer 2

Microsoft(R) Visual Basic(R) Scripting Edition
DateAdd 函数   语言参考  
版本 2  
 请参阅 
--------------------------------------------------------------------------------描述
返回已添加指定时间间隔的日期。 
语法
DateAdd(interval, number, date)
DateAdd 函数的语法有以下部分：部分 描述 
interval 必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。 
number 必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。 
date 必选。Variant 或要添加 interval 的表示日期的文字。  
设置
interval 参数可以有以下值：
设置 描述 
yyyy 年 
q 季度 
m 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 小时 
n 分钟 
s 秒 
说明
可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。
DateAdd 函数不会返回无效日期。如下示例将 95 年 1 月 31 日加上一个月： NewDate = DateAdd("m", 1, "31-Jan-95")
在这个示例中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。
如果计算的日期是在公元 100 年之前，则会产生错误。如果 number 不是 Long 型值，则在计算前四舍五入为最接近的整数。

Answer 3

模拟sqlserver中的datediff函数　　 
caoli 于 2001-3-27 14:29:44 加贴在 PHP编程 ****模拟sqlserver中的datediff函数******* 
$part 类型：string 
取值范围：year,month,day,hour,min,sec 
表示：要增加的日期的哪个部分 
$date1,$date2 类型：timestamp 
表示：要比较的两个日期 
返回 类型：数值 
**************结束*(*************/ 
function datediff($part,$date1,$date2){ 
//$diff=$date2-$date1; 
$year1=date("Y",$date1); 
$year2=date("Y",$date2); 
$month2=date("m",$date2); 
$month1=date("m",$date1); 
$day2=date("d",$date2); 
$day1=date("d",$date1); 
$hour2=date("d",$date2); 
$hour1=date("d",$date1); 
$min2=date("i",$date2); 
$min1=date("i",$date1); 
$sec2=date("s",$date2); 
$sec1=date("s",$date1); $part=strtolower($part); 
$ret=0; 
switch ($part) { 
case "year": 
$ret=$year2-$year1; 
break; 
case "month": 
$ret=($year2-$year1)*12+$month2-$month1; 
break; 
case "day": 
$ret=(mktime(0,0,0,$month2,$day2,$year2)-mktime(0,0,0,$month1,$day1,$year1))/(3600*24); 
break; 
case "hour": 
$ret=(mktime($hour2,0,0,$month2,$day2,$year2)-mktime($hour1,0,0,$month1,$day1,$year1))/3600; 
break; 
case "min": 
$ret=(mktime($hour2,$min2,0,$month2,$day2,$year2)-mktime($hour1,$min1,0,$month1,$day1,$year1))/60; 
break; 
case "sec": 
$ret=$date2-$date1; 
break; 
default: 
return $ret; 
break; 
} 
return $ret; 
} } 

Answer 4

我是要用PHP来实现，不能用VB中的函数。

Answer 5

给两个函数你参考下吧，希望有所启发：计算n天以前的日期
<? //计算n天以前的日期  
//========计算n天以前的日期subolddate()===================== 
function subolddate($day){ 
$now=time(); 
$m=$day*24*60*60; 
$diff=$now-$m; 
$oldday=date("Y-m-d",$diff); 
echo $day."天以前是".$oldday; 
} 
//======================================================== 
subolddate(5); 
?> 
可以计算任意时间差的函数
<? 
function diff($day1,$day2) 
{ 
$a=explode("-",$day1); 
$b=explode("-",$day2); 
if(checkdate($a[1],$a[2],$a[0]) && checkdate($b[1],$b[2],$b[0])) 
{ 
$c=mktime(0,0,0,$a[1],$a[2],$a[0]); 
$d=mktime(0,0,0,$b[1],$b[2],$b[0]); 
$f=($d-$c)/3600/24; 
echo "$day1 和 $day2 之间相差 $f 天!"; 
} 
else 
{ 
print "对不起，你的日期格式不对!"; 
} 
} 
//用法 
diff("2001-1-1","2001-3-1"); 
?>