delphi有没有直接获取当前星期几的函数_框架

在 delphi 的 DateUtils 单元文件里，提供了一系列的日期函数，根据指定日期获取是星期几的函数，可以使用 DayOfTheWeek，其函数原型定义如下：

●function DayOfTheWeek(const Avalue: TDateTime): Word;

描述：

对于给定的TDateTime类型的日期时间，使用 DayOfTheWeek 函数能得到该日期是该星期的第几天。DayOfTheWeek 函数的返回数值为 1 到 7，其中 1 表示星期一，而 7 表示星期日。

注意：DayOfTheWeek 是 ISO 8601 标准的（此标准为星期一是一周的第一天）。对于一周

的第一天是星期日的标准，如果想获得星期数，请使用 DayOfWeek 函数。

示例代码（获取今天是星期几）：

ShowMessage(IntToStr(DayOfTheWeek(Now)));

使用Calendar类

/Calendar类中的get(CalendarDAY_OF_WEEK)可以获取当前日期是星期几

获取当前日期是星期几<br>

@param dt

@return 当前日期是星期几

public static String getWeekOfDate(Date dt) {

String[] weekDays = {"星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"};

Calendar cal = CalendargetInstance();

calsetTime(dt);

int w = calget(CalendarDAY_OF_WEEK) - 1;

if (w < 0)

w = 0;

return weekDays[w];

}

1、打开Delphi7集成开发环境，在Diaglog面板，向默认工程的Form1窗体放一个Opendiag1控件。

2、在默认工程的Form1窗体，再放一个Edit1控件，两个Button控件，分别设置其Captain属性为：打开和修改时间。

3、双击打开按钮，进入OnClick事件方法，代码如下。

4、接着双击修改时间按钮，进入OnClick事件方法，代码如下。

5、F9运行程序，点击打开按钮选择文件，选择C:\vcredistbmp，再点击修改时间，d出文件创建或最近一次修改的时间。

6、在文件目录找到该文件比对文件属性时间和程序获取一致，获取时间成功。

<html>

<head>

</head>

function funXQ()

{

var nowday=(new Date())getDate();//取今天是几号

var sun= nowday-(new Date())getDay();//取星期日是几号,因为星期日是一个星期的第一天(以下简称"距离天")

if(sun<=0)

{return 1; }//直接返回1,节省不必要的运算,因为负数或者0都代表是第一个星期

var num=Mathfloor((sun-1)/7);//除以7取整数

alert(num);

if(((sun-1)%7) >0)num++;//如果取余数大于0,+1个星期;

alert(num);

return num+1;//因为星期日是第一天,不够一个星期,所以也要加1

}

</script>

<body>

</body>

</html>

<!-楼主可以将这些代码保存在记事本,文件后缀名换成html ,然后运行看看-->

这个如何呢？

function timeprint()

{

var week; var date;

var today=new Date()

var year=todaygetYear()

var month=todaygetMonth()+1

var day=todaygetDate()

var ss=todaygetDay()

var hours=todaygetHours()

var minutes=todaygetMinutes()

var seconds=todaygetSeconds()

date=year+"年"+month+"月"+day+"日 "

if(ss==0) week="星期日"

if(ss==1) week="星期一"

if(ss==2) week="星期二"

if(ss==3) week="星期三"

if(ss==4) week="星期四"

if(ss==5) week="星期五"

if(ss==6) week="星期六"

if(minutes<=9)

minutes="0"+minutes

if(seconds<=9)

seconds="0"+seconds

myclock=date+week+" "+hours+":"+minutes+":"+seconds

if(documentlayers){documentlayersliveclockdocumentwrite(myclock)

documentlayersliveclockdocumentclose()

}else if(documentall)

liveclockinnerHTML=myclock

setTimeout("timeprint()",1000)

}

timeprint();

//-->

</script>

以上就是关于delphi有没有直接获取当前星期几的函数全部的内容，包括:delphi有没有直接获取当前星期几的函数、java 获取当前日期是多少周、delphi获取当前日期，包括年份月份星期时间。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/web/9551884.html

delphi有没有直接获取当前星期几的函数

发表评论

评论列表（0条）