获取日期与时间

今天尝试使用tdatetimepicker空间选择时间，并提取年月日作为“进货单号”的前八位。

获取操作代码写在tdatetime的onexit函数中。

tdatetimepicker返回类型为tdate型，或tdatetime型。

 

涉及知识：

1、datetimepicker控件的应用

2、word型数据转化为int型

3、tdate型数据转化为tsystemtime型

4、int型转化为string型数据

7、date型数据转化为string型数据

5、datetimepicker返回类型

6、tsystemtime.wYear等返回类型

 

procedure TForm1.dtpExit(Sender: TObject);
var
  st:tsystemtime;
  dt:tdatetime;
  yy,mm,dd:string;

begin
  //第一种
  editdate.Text:=datetostr(datetimepicker1.Date);

//editdate是edit空间的name，editdate用以存放YYYY-MM-DD型的数据。把转成string型的数据放到editdate中。

 

  //第二种
  dt:=datetimepicker1.DateTime;//提取用户选择的datetime
  datetimetosystemtime(dt,st);//把datetime转化成systemtime

  yy:=inttostr(st.wYear);//提取年
  mm:=inttostr(st.wMonth);//提取月
  dd:=inttostr(st.wDay);//提取日
  editjcno.Text:=yy+mm+dd;//editjcno是edit控件的name，寓意“进仓单号”。把提取到的“年月日”放入editjcno中显示

//提取datetimepicker中的年月日，并以YYYYMMDD的格式显示在editjcno中

 

 

end;