生日提醒(100)

菜

菜鸟黄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #1

procedure TForm13.BitBtn3Click(Sender: TObject);var s,m,n:string;begin Form1.ADOQuery1.Active :=False; m:=datetostr(now); n:=datetostr(now+RzDBSpinEdit1.Value); s:='select * from YGZL where strtodate(IntToStr(YearOf(now))-IntToStr(MonthOf(出生日期))-IntToStr(DayOf(出生日期))) between '; s:=s+'#'+m+'#'+' and '; s:=s+'#'+n+'#'; Form1.ADOQuery1.SQL.Text :=s; Form1.ADOQuery1.Active :=True;end;我用的是ACCESS数据库,请问我应该怎么修改才可以.

 

菜

菜鸟黄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #2

提示错误是:strtodate未定义,我应该怎样做

 

L

lqcros

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #3

你要打几个标点就行, s:='select * from YGZL where ' + strtodate(IntToStr(YearOf(now)) + '-' + IntToStr(MonthOf(出生日期)) + '-' + IntToStr(DayOf(出生日期))) + 'between ';或把哪一段提出来 strtodate(IntToStr(YearOf(now))-IntToStr(MonthOf(出生日期))-IntToStr(DayOf(出生日期))) 用 Date = ate替换 Query1.ParamByName('Date').AsString := strtodate(IntToStr(YearOf(now)) + '-' + IntToStr(MonthOf(出生日期))+'-'+IntToStr(DayOf(出生日期));

 

草

草原骏马

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #4

你的写法很有意思，把Delphi里的日期转换方式和数据量里的转换方式搞混了。以下几个Delphi里的：StrToDate()IntToStr()YearOf()nowMonthOf()

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #5

sql:=format('Select * from YGZL Where DateAdd(''YYYY'',Year(Now)-Year(出生日期),出生日期) between #%s# and #%s# ',[m,n]);

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #6

lqcros说的不错~~

 

W

wllxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #7

楼主呀，你的标点真是太那个了，同意 lqcros

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #8

DateAdd(''YYYY'',Year(Now)-Year(出生日期),出生日期) 就相当于把出生日期中的年份更改为当前日期的年份，其它（月、日）保持不变。为什么就不可以呢？

 

Z

zkktom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #9

不知道acess有没有我的函数select * from rs_yuangong where day(bir)='+inttostr(dayof(now))+'and month(bir)='+inttostr(monthof(now))+'and zt<>''离职'''

 

菜

菜鸟黄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-29

• #10

接受答案了.