有关类型转换 ( 积分: 10 )

M

moyear2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #1

请问什幺样格式字符串转可换成日期类型.
如下;
xdate := StrToDatetime('2005-05-24 ampm 17:15:00');

这样会报错,请问各位字符串应为什幺格式的呢

 

M

moyear2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #2

请问什幺样格式字符串转可换成日期类型.
如下;
xdate := StrToDatetime('2005-05-24 ampm 17:15:00');

这样会报错,请问各位字符串应为什幺格式的呢

 

L

lichengbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #3

StrToDatetime('2005-05-24 17:15:00')

 

A

alec512

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #4

可以用TFormateSetting定义字符串格式。例如：
fs: TFormateSetting;

fs.LongDateFormat := 'yyyy-mm-dd hh:nn:ss';
StrToDateTime('2005-05-24 17:15:00', fs);

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #5

晕 你都用了AM PM 后面怎么还是24小时制？？

PM和AM只能写一个

对应的，如果加了PM或AM 后面是跟12小时制，应该写成

xdate := StrToDatetime('2005-05-24 pm 5:15:00');

 

M

moyear2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #6

不对 通不过

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #7

通不过？？ 不可能 我刚完整的复制过去试了，没错啊

你说的通不过，提示什么错误

 

M

moyear2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #8

to alec512兄:
fs.LongDateFormat := 'yyyy-mm-dd hh:nn:ss';
XDate1 := StrToDateTime('2005-05-24 17:15:00', fs);

我这样写会报地址错.

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #9

把你完整的代码贴出来，包括变量声明

还有在哪句话出的错，错误提示

 

M

moyear2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #10

to hs-kill
var
xdate : TDateTime;
begin
xdate := StrToDatetime('2005-05-24 pm 5:15:00');
end;
就一句话: 会报出 '2005-05-24 pm 5:15:00 不是一个有效的日期时间

谢谢了...

 

M

moyear2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #11

在线等待,本小姐先谢谢各位了

 

S

sunjing_81

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #12

用DateTime := FormatDateTime('yyyy-mm-dd hh:nn:ss', StrToDateTime(EDIT1.TEXT);

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #13

你是delphi几？ 我用的6 没出错

procedure TForm1.Button1Click(Sender: TObject);
var
xdate : TDateTime;
begin
xdate := StrToDatetime('2005-05-24 pm 5:15:00');
showmessage(datetimetostr(xdate));
end;

这样 我也只有这几句话