请教高人，我想取得某个日期的4天前的日期，函数有吗？

Question

Visual Basic Scripting Edition   Weekday 函数
请参阅
Date 函数 | Day 函数 | Month 函数 | Now 函数 | Year 函数
要求
版本 1
返回代表一星期中某天的整数。Weekday(date, [firstdayofweek])
参数
date 
可以代表日期的任意表达式。如果 date 参数中包含 Null，则返回 Null。 
Firstdayofweek 
指定星期中第一天的常数。如果省略，默认使用 vbSunday。 
设置
firstdayofweek 参数有如下设置：常数 值 描述 
vbUseSystemDayOfWeek 0 使用区域语言支持 (NLS) API 设置。 
vbSunday 1 星期日 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 返回值
Weekday 函数返回如下值：常数 值 描述 
vbSundayDayOfWeek 1 星期日 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 说明
下面例子利用 Weekday 函数得到指定日期为星期几：Dim MyDate, MyWeekDay
MyDate = #October 19, 1962#   ' 分派日期。
MyWeekDay = Weekday(MyDate)   ' 由于 MyWeekDay 包含 6,MyDate 代表星期五。
要求
版本 1请参阅
Date 函数 | Day 函数 | Month 函数 | Now 函数 | Year 函数--------------------------------------------------------------------------------© 2001 Microsoft Corporation. 保留所有权利。

Answer 1

Visual Basic Scripting Edition   WeekDayName 函数
请参阅
MonthName 函数
要求
版本 2
返回一个字符串，表示星期中指定的某一天。WeekdayName(weekday, abbreviate, firstdayofweek)
参数
weekday 
必选项。星期中某天的数值定义。各天的数值定义取决于 firstdayofweek 参数设置。 
Abbreviate 
可选项。Boolean 值，指明是否缩写表示星期各天的名称。如果省略， 默认值为 False，即不缩写星期各天的名称。 
Firstdayofweek 
可选项。指明星期第一天的数值。关于数值，请参阅“设置”部分。 
设置
firstdayofweek 参数有以下值：常数 值 描述 
vbUseSystemDayOfWeek 0 使用区域语言支持 (NLS) API 设置。 
vbSunday 1 星期日（默认） 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 说明
下面例子利用 WeekDayName 函数返回指定的某一天：Dim MyDate
MyDate = WeekDayName(6, True)   'MyDate 包含 Fri。
要求
版本 2请参阅
MonthName 函数--------------------------------------------------------------------------------© 2001 Microsoft Corporation. 保留所有权利。

Answer 2

 str = "2003年11月10日";
 num = 4;   //这里是多少天
 reg = /^(\d{4}).(\d{2}).(\d{2}).$/
 if(reg.test(str)){
   var vali_time = new Date(RegExp.$1,RegExp.$2,RegExp.$3)
   var check_time = new Date(RegExp.$1,RegExp.$2,RegExp.$3-num)
   alert(check_time.getYear()+"-"+check_time.getMonth()+"-"+check_time.getDate())
 }

Answer 3

To: chenyang37(norika) 若我的时间是 2003年12月10日 呢????

Answer 4

修正一下，刚写的有点问题：
 str = "2003年12月10日";
 num = 6;
 reg = /^(\d{4}).(\d{2}).(\d{2}).$/
 if(reg.test(str)){
   var vali_time = new Date(RegExp.$1,RegExp.$2-1,RegExp.$3)
   var check_time = new Date(RegExp.$1,RegExp.$2-1,RegExp.$3-num)
   alert(check_time.getYear()+"-"+(check_time.getMonth()+1)+"-"+check_time.getDate())
 }

Answer 5

function mm(str, num)
{
  var a = str.match(/^(\d{4})(.)(\d{1,2})(.)(\d{1,2})(.)$/);
  if (a != null)
  {
    var D = new Date(a[1] +"/"+ a[3] +"/"+ (parseInt(a[5]) + num));
    return(D.getYear() +a[2]+ (D.getMonth()+1) +a[4]+ D.getDate() +a[6]);
  }
  alert("输入的日期格式不对!");
  return false;
}
str = "2003年12月11日";
alert(mm(str, -4));

Answer 6

To: chenyang37(norika) 若我的时间是 2003年12月9日 呢????

Answer 7

我这里限定的正确日期格式是xxxx-xx-xx类的，如果需要日期有个位的话，改一下
reg = /^(\d{4}).(\d{1,2}).(\d{1,2}).$/

Answer 8

我的 PHP 的。上周刚写的。系统现在开始用了。

Answer 9

幹嗎不用vbscript的系統函數？？？DateAdd("d",-4,你的日期)
如果格式不支持，就轉換一下

Answer 10

// $v 
// 'd'    表示天数                   字符型
// 'm'    表示月数                   字符型// $number 添加数值 -1 +1 都可       整型// $date 要改变的日期 '2003-11-28'   字符型
// 得到改变天数的日期Function DateAdd($v,$number,$date) {  $date = strtotime($date); $date_time_array = getdate($date); 
$hours = $date_time_array["hours"]; 
$minutes = $date_time_array["minutes"]; 
$seconds = $date_time_array["seconds"]; 
$month = $date_time_array["mon"]; 
$day = $date_time_array["mday"]; 
$year = $date_time_array["year"];  switch($v){

case 'd':
$day+=$number;
break;
case 'm':
$month+=$number;
break;
} $timestamp = mktime($hours,$minutes,$seconds,$month,$day,$year);  $timestamp = strftime("%Y-%m-%d",$timestamp);

return $timestamp;}

Answer 11

$changeDate = DateAdd('d',4,'2003-11-28');    // $changeDate 值是 2003-11-24

Answer 12

<script language="javascript">var date1 = new Date("2003/12/23");
alert(new Date(date1.getTime() - 4*24*60*60*1000))</script>

Answer 13

幹嗎不用vbscript的系統函數？？？干吗要用VBS, VBS离开了IE浏览器还有什么浏览器支持???????