怎样得到系统日期和时间？

Question

我用了5个Edit控件来显示年、月、日、时、分，问如何取得这些数据？谢谢！

Answer 1

直接用DateTimePicker显示时间就可以了啊!

Answer 2

Now
然后DecodeTime和DecodeDate就是的http://lysoft.7u7.net

Answer 3

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;

Answer 4

Edit1.Text:=FormatDateTime('yy',now);//年
Edit2.Text:=FormatDateTime('mm',now);//月
Edit3.Text:=FormatDateTime('dd',now);//日
Edit4.Text:=FormatDateTime('hh',now);//时
Edit5.Text:=FormatDateTime('nn',now);//分
Edit6.Text:=FormatDateTime('ss',now);//秒

Answer 5

Edit1.Text:=FormatDateTime('yy',now);//年
Edit2.Text:=FormatDateTime('mm',now);//月
Edit3.Text:=FormatDateTime('dd',now);//日
Edit4.Text:=FormatDateTime('hh',now);//时
Edit5.Text:=FormatDateTime('nn',now);//分
Edit6.Text:=FormatDateTime('ss',now);//秒

Answer 6

最好的办法是使用windows的api函数getlocaltime，
如下：
声明一个变量： CurTime: _SYSTEMTIME; //一个结构变量
然后调用：getlocaltime（curtime）；
这样curtime中就包含了当前系统的时间。
_systemtime的定义如下：
typedef struct _SYSTEMTIME {  // st  
    WORD wYear; 
    WORD wMonth; 
    WORD wDayOfWeek; 
    WORD wDay; 
    WORD wHour; 
    WORD wMinute; 
    WORD wSecond; 
    WORD wMilliseconds; 
} SYSTEMTIME; 你只需要从这个结构里面取值就行了，不用在调用什么转换函数，对于你的需要绝对高效