如何把年月日时分秒单独提取出来? 如何从now中把年月日时分秒单独提取出来?有现成的函数么? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var lt : TSYSTEMTIME;begin GetLocalTime(lt); Label1.Caption:=IntToStr(lt.wYear)+'年'+ IntToStr(lt.wmonth)+'月' + IntToStr(lt.wDay)+ '号'; Label2.Caption:=IntToStr(lt.wHour)+'点'+ IntToStr(lt.wMinute)+'分'+ IntToStr(lt.wSecond)+'秒';end; 谢谢,我明白了能不能再解释一下GetLocalTime这个函数? uses DateUtils;有现成的:procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);————————————————————————————————————宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。———————————————————————————————————— YearOf(Now);MonthOf(Now);DayOf(Now);HourOf(Now);MinuteOf(Now);SecondOf(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; now()、data()、time()和GetLocalTime()等都是用来读取系统日期和时间的函数。 求有经验的大侠指点客户端断开服务查询问题的思路 怎样去除重复和空值的记录 AlphaBlend问题求教 解释下SetLength(Result,Size)中的SIZE 在delphi中如何向excel中插入ole对象 文件读取的问题,急啊? 有人了解wnetaddconnection函数吗? <<<<<好笑话难找啊。tpagecontrol问题。 如何将文本文件中"aaaa¦bbbbb¦cccccc" 这样的内容显示到dbgrid 控件中呀!! 分数用不了,给大家一些!3 关于FASTNET中UDP控件的问题,在线等待!!! 帮我投一票
lt : TSYSTEMTIME;
begin
GetLocalTime(lt);
Label1.Caption:=IntToStr(lt.wYear)+'年'+
IntToStr(lt.wmonth)+'月' +
IntToStr(lt.wDay)+ '号';
Label2.Caption:=IntToStr(lt.wHour)+'点'+
IntToStr(lt.wMinute)+'分'+
IntToStr(lt.wSecond)+'秒';
end;
能不能再解释一下GetLocalTime这个函数?
procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
MonthOf(Now);
DayOf(Now);
HourOf(Now);
MinuteOf(Now);
SecondOf(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;