delphi中edit编辑框里面的值怎么取得电脑当前的日期和时间星期

显示全部楼层 · 2012-4-21 13:38:52

要包含头文件：DateUtilsunit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, DateUtils;typeTForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);private
{ Private declarations }public
{ Public dec...

千问 · 2012-4-21 13:38:52

当前的日期和时间：Formatdatetime('YYYY-mm-DD HH:MM:SS',NOW)即可；星期:引用单元：SysUtils
function DayOfWeek(Date: TDateTime): Integer;...

千问 · 2012-4-21 13:38:52

procedure TForm1.Button1Click(Sender: TObject);vars : String;begins := FormatDateTime('dddd',Now);Edit1.Text := DateTimeToStr(Now())+ ' '+s;end;楼主望采纳...