时间问题 procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);Returns Year, Month, and Day values for a TDateTime value. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DELPHI HELP:procedure TForm1.Button1Click(Sender: TObject);var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month ' + IntToStr(Month) + ' of Year ' + IntToStr(Year); DecodeTime(Present, Hour, Min, Sec, MSec); Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour ' + IntToStr(Hour);end; word类型和string类型有什么区别啊。 当然有:WORD是二字节的无符号整数!STRING是字符串呀! yearof(MyDateTime),monthof(MyDateTime),DayOf(monthof(MyDateTime),hourof(MyDateTime),... var myday,mymonth,myyear;myday:=dayof(TheDateTime);Myyear:=Yearof(TheDateTime);... TMD,又错了!本来想说var myday,mymonth,myyear:WORD;beginmyday:=dayof(TheDateTime);Myyear:=Yearof(TheDateTime);... use DateUtils; 怎样在在Tlistview控件内容修改后,用户忘记执行保存操作而关闭窗体时,提示用户是否进行保存? 数据库与图片问题. 升星放分 把一个正浮点数转化为负数,简单的问题,帮我看看 怎么得到程序句柄? form的最大化 如何得到未执行完的线程数? OleVariant与string之间的转换 求解方案:用delphi有没办法向webbrower发送其所需的变量及实现webbrower提交? Delphi 5.0 对内存的要求是多少? 报表的问题 请问*.ps的文件用什么打开?
procedure TForm1.Button1Click(Sender: TObject);var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;
WORD是二字节的无符号整数!
STRING是字符串呀!
myday:=dayof(TheDateTime);
Myyear:=Yearof(TheDateTime);
...
var myday,mymonth,myyear:WORD;
begin
myday:=dayof(TheDateTime);
Myyear:=Yearof(TheDateTime);
...
DateUtils;