急求一个时间转化问题 ( 积分: 8 )

C

cf83325

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-29

• #1

我的数据库里面的字段是数字类型(ACCESS的库)。

字段类型 字段名称 字段值
数字 DTTR70 1070409

在dbgrid里面显示的时候要求显示的是时间，即1070409显示为2007-04-09
请问牛人们有什么好的方法可以做到。。。。希望能有几行代码，加点思路。

 

雪

雪狼2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-29

• #2

2007-04-09怎么转化成1070409
反一下不就可以了？

 

雪

雪狼2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-29

• #3

TDateTime = type Double;

DateTimePicker.DateTime := 0;

 

C

cf83325

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-29

• #4

只要把数字显示成相应的时间就可以了。1070409(数据库里面的字段)显示为2007-04-09（在DGgrid里面显示)

 

U

unjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-29

• #5

type TDateTime = type Double;
datetime本身就是Double，直接将数字赋值给一个datetime变量，再用DateToStr函数将时间变为字符串就可以得到你要的效果了。

 

C

ch2001023

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-29

• #6

1070409
在DBGrid中显示的也是字符型，可以用pos,copy,format,对此字符进行操作！
还有就是在获得数据之前操作，拿TAdoQuery 来说，双击TAdoQuery的控件->add all field
然后选中要格式化的字段，在onGetText操作，就可以了！
Sender.AsString是每次获得数据，可以作为AsBoolean 等等
Text 是在DBGrid中显示的数据。

 

C

cjion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-29

• #7

如果字段长度确定就可以用DTTR70=(1070409)
select '20'+right(left(DTTR70,3),2)+'-'+left(right(DTTR70,4),2)+'-'+right(DTTR70,2) as NewA
----------------------
2007-04-09

 

C

cf83325

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-29

• #8

感谢各位了。尤其是ch2001023的回答我很满意，我解决了这个问题

 

C

cf83325

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-29

• #9

多人接受答案了。