如题 谢谢
解决方案 »
- HELP ADO连接EXCLE的问题 急死人了 。。。。。。。。。。。。。。解决了 马上给分 嫌少再加
- 如何从文件流入文本到文本框?
- 多线程中可以调用dll吗?
- 高分请教一个简单问题,急!!!在线等!!!
- 请问,当输入完以后按回车就能执行的响应事件是什么?
- 请问Delphi 中有没有Tcomm,Tevent这两种变量类型?
- 各位高手:report builder做成dll 再由dll来调用,老是提示:“应用程序发生异常 未知的软件异常(0x0eedfade),位置为0x77e6a4e1”,用Qre
- 求助!!
- 很急,请问大虾们,你们常用的帮助制作工具?
- inherited 是什么意思能详细解释一下吗?
- 给出一个日期,如何判断其为星期天和星期六.有类似的函数吗?急用!!!100分!!!
- 在delphi中能不能实现对界面的美化??比如实现象瑞星杀毒一样的界面!有控件吗?大侠帮忙
是dayofweek
或dayoftheweek
1=Sunday
..
..
7=saturday
DatePart(Weekday,getDate())返回当日星期,1为星期日,7为星期六
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是合法的