我知道用trunc函数把年月日存入数据库,现在我把DateTimePincker的kind设为DTK time,可以对时分秒进行修改,如何只把时分秒存入数据库,而年月日不存?谢谢!

解决方案 »

  1.   

    formatdatetime('tt',[DateTimePincker.datetime]);
      

  2.   

    用这个方法,DateTimePincker“.”后面根本不会跳出datetime这一值!是不是哪里写错了啊!
    我这样写的 
    Table_Account.FieldValues['Account_TimeSFM']:=formatdatetime('tt',[DateTimePicker_AccountTimeSFM.datetime]);
    结果编译出错:Ordinal type required!
      

  3.   

    formatdatetime('tt',[DateTimePincker.datetime]);
    e/ee/eee/eeee 以相应的位数显示年 
    FormatdateTime('ee',now); 
    输出为:04    (表示04年) m/mm/mmm/mmmm 表示月 
    FormatdateTime('m',now);
    输出为:8 
    FormatdateTime('mm',now);
    输出为    08 
    FormatdateTime('mmm',now);
    输出为    八月 
    FormatdateTime('mmmm',now); 
    输出为    八月     和ddd/dddd 一样,在其他国家可能不同yy/yyyy 表示年 
    FormatdateTime('yy',now);
    输出为 04 
    FormatdateTime('yyyy',now);
    输出为 2004, h/hh,n/nn,s/ss,z/zzz 分别表示小时,分,秒,毫秒 t    以短时间格式显示时间 
    FormatdateTime('t',now);
    输出为 10:17 tt 以长时间格式显示时间 
    FormatdateTime('tt',now);
    输出为10:18:46 ampm 以长时间格式显示上午还是下午 
    FormatdateTime('ttampm',now);
    输出为:10:22:57上午 
    大概如,如果要在Format中加普通的字符串,可以用双引号隔开那些特定义的字符,这样普通字符
    不会被显示为时间格式啦: 
    FormatdateTime('"today is" c',now);
        输出为:today is 2004-8-7 10:26:58  
      时间中也可以加"-"或"\"来分开日期: 
    FormatdateTime('"today is" yy-mm-dd',now);
    FormatdateTime('"today is" yy\mm\dd',now);
    输出为: today is 04-08-07 也可以用":"来分开时间   
    FormatdateTime('"today is" hh:nn:ss',now);
    输出为:today is 10:32:23 
      

  4.   

    t    以短时间格式显示时间  
    FormatdateTime('t',now); 
    输出为 10:17  
      

  5.   

    Table_Account.FieldByName('Account_TimeSFM').AsString :=
    formatdatetime('hh:nn:ss',DateTimePicker_AccountTimeSFM.datetime); 
    如果只要时和分,则用:
    Table_Account.FieldByName('Account_TimeSFM').AsString :=
    formatdatetime('hh:nn:00',DateTimePicker_AccountTimeSFM.datetime); 
      

  6.   


    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Showmessage( formatdatetime('t',DateTimePicker1.DateTime ));
      Showmessage( format('%.2f',[2.23678] ));
      Showmessage( formatfloat('##.##',2.23678 ));
    end;
      

  7.   


    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Showmessage( formatdatetime('tt',DateTimePicker1.DateTime ));//时分秒
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Showmessage( formatdatetime('t',DateTimePicker1.DateTime ));//时分
      Showmessage( format('%.2f',[2.23678] ));
      Showmessage( formatfloat('##.##',2.23678 ));
    end;
      

  8.   

    Edit2.Text := timetostr(datetimepicker1.Time);
      

  9.   

    谢谢大家啊!解决了!用formatdatetime('hh:nn:ss',DateTimePicker_AccountTimeSFM.datetime);