我用time()获取机器的当前日期 。可是返回的却是1899-12-30 ，这是为什么呢？

time返回的当前时间
date返回的才是当前日期啊

解决方案 »

  1.   

    你是不是把得到的time插入到了数据库里，看到的是1899??
      

  2.   

    在Date为空或者未赋值时，Delphi给出的起始时间。
    你可以用一DateTimePicker1来测试：
       不要修改它的日期（看上去可能是'2001-09-01'），此时取出该值存到数据库里
       它的日期就为'1899-......'
      

  3.   

    用API读。
    var
    systime: systemtime;
    begin
       getlocaltime(systime);
    end;你试试！
      

  4.   

    The following example assigns 'The meeting is on Wednesday, February 15, 1995 at 10:30 AM' to the string variable S. S := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM',   StrToDateTime('2/15/95 10:30am'));
      

  5.   

    -_-!其实TDataTime是一个浮点数，整数部份是天数，从1899-12-30开始计算，如果TDataTime=1的话，就是1900-1-1。浮点部份是时间，致于0.1代表多少时间我不清楚，可能是1小时就是1/24吧。time返回的只是小数部份的值，整数部份是0，所以你用DateTimeToStr或者DateToStr就会出现你不想要的返回值。你应该用TimeToStr，或者你用Now得到当然的时间和日期。看多些Delphi的帮助啦，它在这方面有详细的说明。
      

  6.   

    你看，我也碰到了：http://www.csdn.net/expert/TopicView.asp?id=262844
      

  7.   

    你用time取日期；date为0；即一个起始日期
    取到1899-12-30 没啥好奇怪的
    用date now不就得了
      

  8.   

    我这里也是，在win2000里,我的有数据库的程序也有这样的情况。而且，你刚设好，一运行程序又变1899了。
      

  9.   

    获得日期用Date,获得时间用time,获得日期时间用now。
      

  10.   

    不要吓我，什么千年虫，你不要日期只要时间当然这是这样，不信看ShowMessage(Datetostr(0));
      

  11.   

    用StrToDate(DateToStr(Time))肯定没错的