各位大虾,能给个思路吗?? 要求:编写一个简易日历。在文本框中输入要查找的日期,程序可以计算出这一天处在该年份的第几周,并且能判断出这一天到底是星期几? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你可以用一些函数,例如:WeekOfTheMonth、WordToStr之类的函数进行转换 首部 function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; $[SysUtils.pas功能 分解日期为年、月、日、星期说明 [DOW:Day Of Week]参考 function SysUtils.DateTimeToTimeStamp例子///////Begin DecodeDateFullyprocedure TForm1.Button1Click(Sender: TObject);varYear, Month, Day, DOW: Word;beginDecodeDateFully(Date, Year, Month, Day, DOW);SpinEdit1.Value := Year;SpinEdit2.Value := Month;SpinEdit3.Value := Day;SpinEdit4.Value := DOW;end;///////End DecodeDateFully 首部 function DayOfWeek(const DateTime: TDateTime): Word; $[SysUtils.pas功能 返回日期时间DateTime所在的星期说明 1(星期天),2(星期一),3(星期二),4(星期三),5(星期四),6(星期五),7(星期六)参考 function SysUtils.DateTimeToTimeStamp例子 ///////Begin DayOfWeekprocedure TForm1.Button1Click(Sender: TObject);constcWeekCn: array[1..7] of string =('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');beginEdit1.Text := cWeekCn[DayOfWeek(Now)];end;///////End DayOfWeek 抓包问题。抓包 delphi 2009 datasnap 问题 如何得到 客户端IP和端口 delphi关于转换数据库字符集的一个小问题 请问一个 Socket Server 可做多个服务器吗? indy中哪个组件用来开发FTP上传的? 有没有做塑胶注塑行业的富翁。想就业务流程沟通一下!参与就有分。 谁有这个版本的TTrayIcon? 关于结束类名!高手前进! 如何取消登陆数据库的对话框?(access)以前问过很多次???? 关于判断字段存在的问题 请问,Unicode Character Set 和 DBCS,有何不同? 请教水晶报表换页问题!!!
功能 分解日期为年、月、日、星期
说明 [DOW:Day Of Week]
参考 function SysUtils.DateTimeToTimeStamp
例子
///////Begin DecodeDateFully
procedure TForm1.Button1Click(Sender: TObject);
var
Year, Month, Day, DOW: Word;
begin
DecodeDateFully(Date, Year, Month, Day, DOW);
SpinEdit1.Value := Year;
SpinEdit2.Value := Month;
SpinEdit3.Value := Day;
SpinEdit4.Value := DOW;
end;
///////End DecodeDateFully
功能 返回日期时间DateTime所在的星期
说明 1(星期天),2(星期一),3(星期二),4(星期三),5(星期四),6(星期五),7(星期六)
参考 function SysUtils.DateTimeToTimeStamp
例子
///////Begin DayOfWeek
procedure TForm1.Button1Click(Sender: TObject);
const
cWeekCn: array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
Edit1.Text := cWeekCn[DayOfWeek(Now)];
end;
///////End DayOfWeek