日期用formatdatetime('yyyy-mm-dd',now),时间用formartdatetime('hh/ss/mm',now)

解决方案 »

  1.   

    函数now取得当前时间,然后再用date和time转化即可
      

  2.   

    StatusBar1.Panels[1].Text :='现在是北京时间: '
         +DateToStr(date())+'  '+TimeToStr(Time());
      

  3.   

    比如说你想在edit1中显示当前日期和时间edit1.text := datetostr(date);日期
    edit1.text := timetostr(time);时间
      

  4.   

    var
      Present:TDataTime;
      Year, Month, Day:word;
    begin
      Present:=Now;
      DecodeDate(Present,year,month,day);//分解出当前年月日
      ...
    end;
      

  5.   

    var  year,month,day:word,
    begin
      decodedate(now,year,month,day);
    end;
      

  6.   

    Edit1.Text:=DateToStr(now);
    Edit2.Text:=TimeToStr(now);
      

  7.   

    up上的都可以了
    =========================
    *************************YYYY                 YYYY*************************
    =========================
      

  8.   

    DateSeparator := '-';
      ShortDateFormat := 'yyyy/mm/dd';
      edit7.Text:= DateToStr(Date);