DateTime的处理?

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

1 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-14 10:17:03 得分 90

看来你需要将你的比较程序写出来看看了。Top

2 楼PrettyMurphy（土豆）回复于 2006-03-14 10:17:26 得分 10

分别取出年月日,时分秒来比较吧.Top

3 楼primeP（OK）回复于 2006-03-14 10:48:11 得分 0

//调用函数  
  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;Top

4 楼primeP（OK）回复于 2006-03-14 10:56:16 得分 0

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

5 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-14 11:19:07 得分 0

可以直接取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;Top

6 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-14 11:19:38 得分 0

其中DateOf函数要Users   DateUtilsTop

7 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-14 11:19:46 得分 0

其中DateOf函数要Uses   DateUtilsTop

8 楼primeP（OK）回复于 2006-03-14 11:45:47 得分 0

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

相关问题

• 函数
• 字段
• date
• ckrq
• ckinfoselect
• denddate
• dbegindate
• ck
• 处理
• datetime

• 帖主：primeP
• cuteant
• PrettyMurphy

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载