高分求救,在线!!!!! 我给一个Tdatetime类型的值,怎么知道对应的星期几?谢谢赐教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Function GetCWeek(ThisNow: TDateTime):String; //取得指定日期之星期const sWeek:Array[1..7] of String=('日','一','二','三','四','五','六');var iWeek : Word;begin iWeek:=DayOfWeek(ThisNow); Result:='星期'+sWeek[iWeek];end; 类似的问题应该先看帮助,看看关于TDatetime的相关函数,现在有了互联网都懒了,动不动就可以问人。 记得Uses DateUtilsAgree with pazee(耙子)!呵呵! usesdateutils;function GetDayOfWeek(Day:TDateTime):integer;begin result:=dateutils.dayofweek(day);//:Pend; 关于常量编译的问题 如何在程序中继承另一窗体内的控件 delphi下如何创建Access临时数据表 菜鸟的DELPHI问题!!!请帮忙!! 如何在Delphi实现每过1小时就执行一个Dos命令。 关于类似用友财务凭证组件 如何为动态生成的窗体(放在DLL里)写他的KeyOnPress事件! 问提多多 大家帮帮忙吧 我是一个自学者 没钱上网呀 所以只有一次问多个问题 用delphi5里的query控件查询PARADOX类型的数据库中的日期时怎样才能按年月日查。 放大一幅画的原理是什么? DELPHI能实现这样的图象处理功能吗?(请高手指教!) 发票打印问题,各位给点儿建议。
const sWeek:Array[1..7] of String=('日','一','二','三','四','五','六');
var iWeek : Word;
begin
iWeek:=DayOfWeek(ThisNow);
Result:='星期'+sWeek[iWeek];
end;
Uses DateUtilsAgree with pazee(耙子)!呵呵!
dateutils;function GetDayOfWeek(Day:TDateTime):integer;
begin
result:=dateutils.dayofweek(day);//:P
end;