请问哪位大侠在delphi中如果知道具体日期,有没有什么函数可以得到星期几?
解决方案 »
- cxgrid 小数显示为百分比模式 pivotgrid 分类小记不同颜色显示
- 鼠标移动到控件上改变控件的字体颜色和图片
- 如何捕捉数据库字段不存在异常?
- 如何计算正在访问数据库的人数
- SOS!! 请各位大侠解决filter问题,答对立即给分,在线!!
- 谁知道sqlserver 是否存在伪列
- 软件测试结束,请帮助过我的朋友进来拿分(3)
- 各位高手大哥,知道那里有像qq面板一样的控件吗?
- 如何让某个pagecontrol上的一个tabsheet上的各种数据感知部件的datasource都指向一个datasource?
- 要通过FTP取得一个文件,DELPHI中有控件么?
- delphi中用什么函数可以知道某一天是星期几?
- 给出一个日期,如何判断其为星期天和星期六.有类似的函数吗?急用!!!100分!!!
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := 'Sunday';
days[2] := 'Monday';
days[3] := 'Tuesday';
days[4] := 'Wednesday';
days[5] := 'Thursday';
days[6] := 'Friday';
days[7] := 'Saturday';
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;
另外注意Edit1.Text中的输入格式,比如2001-11-11是合法的
Returns the day of the week represented by a TDateTime value.UnitDateUtilsCategorydate/time routinesfunction DayOfTheWeek(const AValue: TDateTime): Word;DescriptionCall DayOfTheWeek to obtain the day of the week represented by a specified TDateTime value. DayOfTheWeek returns a value between 1 and 7, where 1 indicates Monday and 7 indicates Sunday.
ADate: TDateTime;
begin
ADate := StrToDate(Edit1.Text);
edit1.text:=inttostr(DayOfWeek(ADate)-1);
end;
另外注意Edit1.Text中的输入格式,比如2001-11-11是合法的,
显示0 为星期天 1为星期一 2为星期二 …… 6为星期六
呵呵,偶有个万年历的程序,有阴历和阳历的显示
要请发MESSAGE给我!
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := 'Sunday';
days[2] := 'Monday';
days[3] := 'Tuesday';
days[4] := 'Wednesday';
days[5] := 'Thursday';
days[6] := 'Friday';
days[7] := 'Saturday';
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;
DateUtilsWeekOfTheMonth()
function WeekOfTheMonth(const AValue: TDateTime)
Call WeekOfTheMonth to obtain the week of the month represented by a specified TDateTime value. WeekOfTheMonth returns a value between 1 and 6.
3 'Monday';
4 'Tuesday';
5 'Wednesday';
6 'Thursday';
7 'Friday';
1 'Saturday';
1: Edit1.text:='星期天';
2:Edit1.text:='星期一';
3:Edit1.text:='星期二';
4:Edit1.text:='星期三';
5:Edit1.text:='星期四';
6:Edit1.text:='星期五';
7:Edit1.text:='星期六';
end;