谁帮忙看看我定义了这个函数后程序调试无法通过？

[想到才能做到]

函数如下：
function newid(pzlb_id: string): string;
var
cnlistid,d_year,d_month,d_day:string;
i:integer;
ADOSetTmp: TADODataSet;
begin
d_year:=formatfloat('00',strtoint(formatdatetime('yy',getserverdate)));
d_month:=d_year+formatfloat('00',strtoint(formatdatetime('mm',getserverdate)));
d_day:=d_month+formatfloat('00',strtoint(formatdatetime('dd',getserverdate)))+pzlb_id;
ADOSetTmp := nil;
ADOSetTmp := TADODataSet.Create(ADOSetTmp);
ADOSetTmp.CommandText := 'SELECT MAX(spbm) AS maxid FROM spbm where substring(spbm,1,8)=''d_day''';
ADOSetTmp.Connection := DM1.ADOConnection1;
ADOSetTmp.Open;
if ADOSetTmp.fieldbyname('maxid').AsString='' then
begin
cnlistid:=d_day+'001';
end
else
begin
i:=strtoint(copy(ADOSetTmp.fieldbyname('maxid').asstring,9,3))+1;
cnlistid:=d_day+formatfloat('000',i);
end;
result:=cnlistid;
end

调示提示如下：

[错误] spbm1pas.pas(305): Undeclared identifier: 'getserverdate'
[致命错误] FXsoft.dpr(251): Could not compile used unit 'spbm1pas.pas'

[whisht]

uses 里添加单元：spbm1pas.pas

[whisht]

看错了，是
getserverdate没有定义。。

[想到才能做到]

[Quote=引用 2 楼 ljz9425 的回复:]
看错了，是
getserverdate没有定义。。
[/Quote]
如何定义？

[Q724481678Q]

你从哪里抄的代码

[ADSLAN]

getserverdate
取服务器时间 是个时间型
要么是变量 要么是函数
你自己找下它是怎么来的

[Q724481678Q]

getserverdate应该是获取服务器的时间

[xinghun61]

getserverdate应该是在其他单元中定义的，用 Ctrl+Shift+F 查找一下，看是在哪个单元中定义的，通过uses引进来就可以了