如你用的是table(query也是一样)
1、双击窗体中的Table1,先关闭table1,打开字段编辑器Fields Editor;
2、在Fields Editor窗口中,单击鼠标右键,选择New Fields菜单项
3、Delphi显示New Fields对话框。选择Field Type列表框中的Currency 项, 并在Field Name文体框中输入Fff , 这样我们自定义了一个 CurrencyField 类型的字段Fff。Delphi会自动地填入相应的字段对象名,其缺省值为Table1fff;
4、单击Ok按钮,关闭New Field对话框。当Fields Editor 窗口重新出现时, 注意fff已经出现在Fields列表框中
5、在table1的OnCalcFields事件中写一句
        table1fff.AsString:=formatdatetime('hh:mm:ss',table1.FieldByname('yourtimefield').asdatetime);上面是一个改日期输出的例子,你改一下就可以用了。