如何获得年,月,日 我想用一个label显示获得年,月,日。怎么办 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Label1.Caption := FormatDateTime('yyyy-mm-dd',now); Label1.Caption := FormatDateTime('yyyy',now);Label2.Caption := FormatDateTime('mm',now);Label3.Caption := FormatDateTime('dd',now); formatDateTime('yyyy',now); //返回字符串年份 formatDateTime('mm',now); //返回字符串月份 formatDateTime('dd',now); //返回字符串日 uses DateUtils;label1.Caption := inttostr(yearOf(now));label2.Caption := inttostr(MonthOf(now));label3.Caption := inttostr(dayOf(now)); 没有其它要求的话,这个就可以.Label1.Caption := FormatDateTime('yyyy',now);Label2.Caption := FormatDateTime('mm',now);Label3.Caption := FormatDateTime('dd',now); 我的最简单:Label1.Caption :=datetostr(date); Label1.Caption := FormatDateTime('yyyy-mm-dd',now); 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; 有关日期时间型数据的函数相当多.DateTimeToStr, DateTimeToStrF, StrToDateTime, DateToStr, StrToDate, TimeToStr, StrToTime, DecodeTime, DecodeDate, EncodeDate, EncodeTime, FormDateTime....你到 SysUtils 单元里,输入 DateTime, Date, Time 关键字查询一个,你就发现了. ShowMessage(FormatDateTime('dddddd', Date)); Label1.Caption := FormatDateTime('yyyy-mm-dd',date); formatDateTime('yyyy',now); //返回字符串年份 formatDateTime('mm',now); //返回字符串月份 formatDateTime('dd',now); //返回字符串日就可以了 DECODEDATETIME函数可以分解日期类型变量为你要的数据。 YearOf(Date)MonthOf(Date)DayOf(Date) Label1.Caption := DateToStr(Now); 是啊。YearOf(),MonthOf(),DayOf()应该满足你的需求了。 Label1.Caption :=DateToStr(date); 判断一个动态数组是否包含某一个数字 变量参数和指针参数到底有什么区别? 关于加载dcu的问题!急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急 怎么就没有人讨论ModalMark建模,以及Bold使用 为什么intraweb程序用了模版后,按钮的事件却不响应了???!! 这段程序怎么写?? 你的东西我要 怎样得到路径? 简单问题,得分容易。 关于一个sql的很菜的问题! delphi程序源代码中文乱码,求教! 大家看看这个程序,总是提示table是忙的
Label2.Caption := FormatDateTime('mm',now);
Label3.Caption := FormatDateTime('dd',now);
formatDateTime('mm',now); //返回字符串月份
formatDateTime('dd',now); //返回字符串日
label2.Caption := inttostr(MonthOf(now));
label3.Caption := inttostr(dayOf(now));
Label2.Caption := FormatDateTime('mm',now);
Label3.Caption := FormatDateTime('dd',now);
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;
DateTimeToStr, DateTimeToStrF, StrToDateTime, DateToStr, StrToDate, TimeToStr, StrToTime, DecodeTime, DecodeDate, EncodeDate, EncodeTime, FormDateTime....你到 SysUtils 单元里,输入 DateTime, Date, Time 关键字查询一个,你就发现了.
formatDateTime('mm',now); //返回字符串月份
formatDateTime('dd',now); //返回字符串日
就可以了
MonthOf(Date)
DayOf(Date)