怎么得到系统的时间和日期??

Question

怎么得到系统的时间和日期??
最好详细点,举个例子!!
谢谢各位大哥!!

Answer 1

delphi中怎么得到系统的时间和日期??
具体过程该怎么做呢????

Answer 2

date 日期
time 时间
now  当前时间

Answer 3

var
  MyDate: TDate;
  MyTime: TTime;
  MyDateTime: TDateTime;
begin
  MyDate := Date;
  MyTime := Time;
  MyDateTime := Now;
end;

Answer 4

procedure TForm1.Timer1Timer(Sender: TObject);
 var m:SystemTime;
begin
      GetLocalTime(m);
      Edit1.Text:=inttostr(m.wYear)+'年'+inttostr(m.wMonth)+'月'+inttostr(m.wDay)+'日'+'星期'+inttostr(m.wDayOfWeek)+'  '
       +inttostr(m.wHour)+':'+inttostr(m.wMinute)+':'+inttostr(m.wSecond)+':'+inttostr(m.wMilliseconds);
end;

Answer 5

now可以取得当前系统时，不过如果你要取出时间的格式的时候就要用到FormatDate，如果要取得年、月、日、时、分、秒时就要用到Year等系统变量了

Answer 6

那它提取出来的日期的格式是???
YYYY-MM-DD还是MM-YYYY-DD;
格式不是是取决于你系统设置的时间或者日期的格式???????????????

Answer 7

now可以取得当前系统时，不过如果你要取出时间的格式的时候就要用到FormatDate，如果要取得年、月、日、时、分、秒时就要用到Year等系统变量了这句话什么意思?具体怎么做呢?象这个样子不行么????????????????
var
  MyDate: TDate;
  MyTime: TTime;
  MyDateTime: TDateTime;
begin
  MyDate := Date;
  MyTime := Time;
  MyDateTime := Now;
end;