DateTime的处理?

Question

请问，我要将2006-3-14 10:05:31 处理为：2006-3-14 23:59:59 怎样处理？我传一个DateTime型的参数给一个函数,函数体内变量是DateTime型，字段类型也是DateTime型,但在函数体内，用参数和字段相比就是行不出值。

Answer 1

//调用函数
dBeginDate:=date_begin.DateTime;
dEndDate:=date_end.DateTime;
IF CkInfoSelect(dBeginDate,dEndDate)=False THEN
ShowMessage('查询出错。');//函数体
Function TwOutputStoreROOM.CkInfoSelect(dInSRBegin,dInSREnd:TDateTime):Boolean;
wData.MySqlDeal.sSqlText:='SELECT CK_CKRQ as 出库日期,'+
     'CK_ZT as 状态 From JLGL_CK WHERE  CK_CKRQ>=:p1 AND '+
     'CK_CKRQ<=P2;
     wData.MySqlDeal.SqlParamAddDateTime(dInSRBegin);
     wData.MySqlDeal.SqlParamAddDateTime(dInSREnd);     if wData.MySqlDeal.CdsOpen(wData.CDS6) then
        Result:=True
     else
        Result:=false;

Answer 2

现在我是得到一个DateTime型的值如：2006-3-14 10:49:52 想把它变为:2006-3-14 23:59:59
也就是取这一天的最大范违或最小范违。

Answer 3

可以直接取Date然后加上23;59:59再拼起来就行了procedure TForm1.Button1Click(Sender: TObject);
var
  d: TDateTime;
begin
  d := StrToDateTime('2006-3-14 10:49:52');
  d := StrToDateTime(DateTimeToStr(Dateof(d))+' 23:59:59');
  ShowMessage(DateTimeToStr(d));
end;

Answer 4

其中DateOf函数要Users DateUtils

Answer 5

其中DateOf函数要Uses DateUtils

Answer 6

多谢  cuteant(我这张旧船票还能否登上你的破船|涛声是否依旧) 已给搞定。多谢。