StrToDateTime函数的错误 ( 积分: 50 )

E

eastwood1976

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-10

• #1

以下是我的代码：
ss1:=inttostr(yy)+'-'+inttostr(mm)+'-1 0:00:00';
dd1:=strtodatetime(ss1);
if mm=12 then
ss1:=inttostr(yy+1)+'-1-1 00:00:00'
else
ss1:=inttostr(yy)+'-'+inttostr(mm+1)+'-1 0:00:01';
dd2:=strtodatetime(ss1); //}
结果dd1=0而dd2却有正确的值
哪位大虾为我指点迷津，50分

 

E

eastwood1976

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-10

• #2

以下是我的代码：
ss1:=inttostr(yy)+'-'+inttostr(mm)+'-1 0:00:00';
dd1:=strtodatetime(ss1);
if mm=12 then
ss1:=inttostr(yy+1)+'-1-1 00:00:00'
else
ss1:=inttostr(yy)+'-'+inttostr(mm+1)+'-1 0:00:01';
dd2:=strtodatetime(ss1); //}
结果dd1=0而dd2却有正确的值
哪位大虾为我指点迷津，50分

 

X

xpai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-10

• #3

呵呵，除非 mm＝0，否则就太怪了

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-10

• #4

//测试通过
procedure TForm1.Button1Click(Sender: TObject);
var
d : TDatetime;
begin
Edit1.Text := '2005-1-1 0:00:00';
d := StrToDatetime(Edit1.Text);
Edit2.Text := FormatDatetime('YYYY-MM-DD HH:NN:SS', d);
end;

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-10

• #5

你可以用IncMonth函数实现 月份+1

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime; // uses SysUtils

 

E

eastwood1976

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-10

• #6

问题就在这里
yy=2005
mm=11
这时候出错了

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-10

• #7

//测试通过
procedure TForm1.Button1Click(Sender: TObject);
var
yy, mm : Word;
d : TDateTime;
begin
yy := 2005; mm := 11;
Edit1.Text := IntToStr(yy)+'-'+IntToStr(mm)+'-1 0:00:00';
d := StrToDateTime(Edit1.Text);
Edit2.Text := FormatDateTime('YYYY-MM-DD HH:NN:SS', d);
end;

 

E

eastwood1976

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-10

• #8

多谢大家了
我把变量改了个名字，问题解决了，真奇怪
我可用的是正版Delphi7

 

E

eastwood1976

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-10

• #9

问题的根源还没有找到，就到此告一段落吧