获取时间

procedure TForm1.Button2Click(Sender: TObject);
var
 date: SYSTEMTIME;
begin
 GetLocalTime(date);
 showmessage(inttostr(date.wMonth ));
end;

你可能感兴趣的:(职场,休闲)