DateTime字段在DbGrid中显示时如何只显示小时和分钟？

Question

有没有Time这个函数，
如果有问题就解决了

Answer 1

用字段编辑器,然后设置对应字段的DisplayFormat属性为  hh:nn:ss

Answer 2

var Text : string;
    Size : integer;
在事件OnDrawColumnCell中键入
    if (Column.Field.FieldName = '你的时间字段名') then
    begin
    Text := DateToStr(Column.Field.AsDate) + ' '+TimeToStr(Column.Field.AsDate);
    end  else
    begin
      Text := Column.Field.AsString;
    end;
    Size := (Sender as TDBGrid).Canvas.TextExtent(Text+' ');
     (Sender as TDBGrid).Canvas.TextRect(Rect,Rect.Right-Size.cx+2,Rect.Top+2,Text);
  end;

Answer 3

Sorry,去掉DateToStr(Column.Field.AsDate) + ' '+
var Text : string;
    Size : integer;
在事件OnDrawColumnCell中键入
    if (Column.Field.FieldName = '你的时间字段名') then
    begin
    Text := TimeToStr(Column.Field.AsDate);
    end  else
    begin
      Text := Column.Field.AsString;
    end;
    Size := (Sender as TDBGrid).Canvas.TextExtent(Text+' ');
    (Sender as TDBGrid).Canvas.TextRect(Rect,Rect.Right-Size.cx+2,Rect.Top+2,Text);
  end; 

Answer 4

to 星星农场、河海:
　　两位所说的是设置Table的字段吧，可设置后在DBGrid中一点效果都没有:(

Answer 5

to 星星农场、河海:
　　Sorry!我设成EditMask了，设了DisplayFormat确实有效果，但进入Edit状态时，被
隐藏的数据又会全部显示出来。

Answer 6

你可能在DBGrid中没有生成相应的列！

Answer 7

那的确是这样的，Borland的EditMask确实不是很好用，它只能确保Edit后的结果是EditMask的形式的。

Answer 8

别用datetime型字段，用varchar，或分成两个整型字段。