回 帖 发 新 帖 刷新版面

主题:请问以下用什么函数取的系统的时间

用NOW 和DATE  取的都是日期 不是具体的时间
用TIME 更奇怪 居然是1899 12 30
 我需要几小时几分

回复列表 (共2个回复)

沙发

var
  s:string;
begin
  s:= DateTimeToStr(now);
  //S存的就是现在的日期时间,然后用POS截取后面的时间
end;

板凳

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=copy(timetostr(now),0,5);
end;

end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册