显示当前日期问题？

Question

//添加记录至借阅信息
  str:='insert into 借阅信息(会员编号,店内编号,借出日期,是否归还) ';
  str:=str+'values('+format('%0.10d',[strtoint(rennu)])+',';
  str:=str+format('%0.10d',[strtoint(booksh)])+',';
  str:=str+formatdatetime('yyyy-mm-dd',now)+',';       //这一行
  str:=str+''''+'否'+''''+')';
  adocommand1.CommandText :=str;
  adocommand1.Execute;为什么用以上语句输入数据库的是1905-6-19
windows XP   系统当前时间为2003-2-04

Answer 1

我不知道为什么，但是Win98下可以用这种方式：Str:=str+DateToStr(Date(Now))加入当前日期，试试:)

Answer 2

用函数Dateunit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  myDateTime : TDateTime;
begin
  MyDateTime := Date;
  Showmessage(DateToStr(MyDateTime));
end;end.

Answer 3

榕榕的方法报错，too many actual parameters
grail_(grail_) 的方法显示的是1899-12-30我快要崩溃了，谁来救救我！！！！！！！！！！！！！

Answer 4

DateToStr(Date())
TimeToStr(Time())

Answer 5

oracle的插如当前日期是用
TO_DATE('sysdate(string)','yyyy-mm-dd hh:mi:ss')函数
(to_date('date','yyyy-mm-dd') 
or to_date('time','hh:mi:ss'));
ACCESS最好就直接在数据库中定义该字段类型为文本型!
sql server没有插过,但是好象不能直接对日期或者时间进行筛选!

Answer 6

1899-12-30是delphi里的'0'
int(date);  //获取系统日期 edit1.Text :=datetimetostr(int(date));
int(now);  //获取系统日期和时间

Answer 7

int(date)可不可以用别的格式显示，用这个输到数据库，delphi自动
把2003－02－04变成1997了，它自己给减了，我疯了！！！！！！！

Answer 8

cupidvenus(小鱼儿) 的DateToStr(Date) 應該可以試試!!

Answer 9

显示是没问题，就是写到数据库，delphi自动
把2003－02－04变成1997了，它自己给减了

Answer 10

改成这样:
  str:='insert into 借阅信息(会员编号,店内编号,借出日期,是否归还) ';
  str:=str+'values('+format('%0.10d',[strtoint(rennu)])+',';
  str:=str+format('%0.10d',[strtoint(booksh)])+',';
  str:=str+''''; //加入前引号
  str:=str+formatdatetime('yyyy-mm-dd',now);
  str:=str+''''; //加入后引号,即用引号将时间括起来
  str:=str+',';
  str:=str+''''+'否'+''''+')';
  adocommand1.CommandText :=str;
  adocommand1.Execute;

Answer 11

根据你使用的数据库的类型，使用数据库的字符串-日期转换函数将字符串转换成日期，推荐使用CAST函数，基本每个数据库都支持。