很简单的问题,如何取得一个日期值是星期几? 很简单的问题,如何取得一个日期值是星期几? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var Present: TDateTime; Year, Month, Day: Word; Strdate:string;begin inherited;Getpicture; Present:= Now; DecodeDate(Present, Year, Month, Day); strdate := '今天是 ' + IntToStr(Year) + '年' + IntToStr(Month) +'月' + IntToStr(Day) + '日'; label2.caption:=StrDate end; 关于 DBGrid 请教下 openkey 操作注册表。。。。 ◆Oracle漏洞检测系统--DBScan◆ 唉~~公商勾结也太让人郁闷了,大家看看这个问题有解决方法吧?》? 在Image中绘制曲线的问题?(给菜鸟一点建议吧,各位!) 如何让程序至始至终让鼠标保持正常指针,而不要出现Sql查询时的crHourGlass形状?? 人事管理软件 ComboBox控件下拉宽度的问题 Dll的简单问题(20分订金,总分100分) 问一个弱弱的问题 在线等待(MDI)显示子窗体 怎样实现如下报表的格式。 一页不满指定行则以空行补上,
Present: TDateTime;
Year, Month, Day: Word;
Strdate:string;
begin
inherited;Getpicture;
Present:= Now;
DecodeDate(Present, Year, Month, Day);
strdate := '今天是 ' + IntToStr(Year) + '年'
+ IntToStr(Month) +'月'
+ IntToStr(Day) + '日';
label2.caption:=StrDate
end;