各位大侠:
我通过下列程序从服务器上得到服务器时间,
经常得到的时间不是服务器时间,而是'1900-1-1'请问什么原因
function Tjz.srvdatetime2():tdatetime; //服务器时间
var t1:tdatetime;
qrystr:string;
begin
//获得服务器时间
qrystr:='select getdate()';
ADOdate.Close;
ADOdate.SQL.Clear;
ADOdate.SQL.Add(qrystr);
ADOdate.Open;
if ADOdate.RecordCount<=0
then
messagebox(handle,pchar('客户机无法获得服务器时间,请检查网络!'),pchar('信息!'),64)
else
begin
t1:=ADOdate.Fields[0].AsDatetime;
result:=t1;
end; end;
我有两个变量
a1:tdate; a2:=ttime;
请问我如何将他们合并成tdatetime
我通过下列程序从服务器上得到服务器时间,
经常得到的时间不是服务器时间,而是'1900-1-1'请问什么原因
function Tjz.srvdatetime2():tdatetime; //服务器时间
var t1:tdatetime;
qrystr:string;
begin
//获得服务器时间
qrystr:='select getdate()';
ADOdate.Close;
ADOdate.SQL.Clear;
ADOdate.SQL.Add(qrystr);
ADOdate.Open;
if ADOdate.RecordCount<=0
then
messagebox(handle,pchar('客户机无法获得服务器时间,请检查网络!'),pchar('信息!'),64)
else
begin
t1:=ADOdate.Fields[0].AsDatetime;
result:=t1;
end; end;
我有两个变量
a1:tdate; a2:=ttime;
请问我如何将他们合并成tdatetime
t: TTime;
d: TDate;
dt: TDateTime;
begin
t := StrToTime('21:05');
d := StrToDate('2008-04-28');
dt := d + t; showmessage(DateTimeToStr(dt));
TdataTime = StrToDateTime(strDateTime);
dataTime = StrToDateTime(strDateTime);
a1:tdate;a2:ttime;
dt:TDateTime;
b1,b2:string;
begin
b1:=datetostr(a1);
b2:=timetostr(a2);
dt:=strtodatetime(b1+''+b2);
end;
CONVERT (data_type[(length)], expression [, style])
参数
expression
是任何有效的 Microsoft® SQL Server™ 表达式。有关更多信息,请参见表达式。
data_type
目标系统所提供的数据类型,包括 bigint 和 sql_variant。不能使用用户定义的数据类型。有关可用的数据类型的更多信息,请参见数据类型。
length
nchar、nvarchar、char、varchar、binary 或 varbinary 数据类型的可选参数。
style
日期格式样式,借以将 datetime 或 smalldatetime 数据转换为字符数据(nchar、nvarchar、char、varchar、nchar 或 nvarchar 数据类型);或者字符串格式样式,借以将 float、real、money 或 smallmoney 数据转换为字符数据(nchar、nvarchar、char、varchar、nchar 或 nvarchar 数据类型)。
SQL Server 支持使用科威特算法的阿拉伯样式中的数据格式。
在表中,左侧的两列表示将 datetime 或 smalldatetime 转换为字符数据的 style 值。给 style 值加 100,可获得包括世纪数位的四位年份 (yyyy)。不带世纪数位 (yy) 带世纪数位 (yyyy)
标准
输入/输出**
- 0 或 100 (*) 默认值 mon dd yyyy hh:miAM(或 PM)
1 101 美国 mm/dd/yyyy
2 102 ANSI yy.mm.dd
3 103 英国/法国 dd/mm/yy
4 104 德国 dd.mm.yy
5 105 意大利 dd-mm-yy
6 106 - dd mon yy
7 107 - mon dd, yy
8 108 - hh:mm:ss
- 9 或 109 (*) 默认值 + 毫秒 mon dd yyyy hh:mi:ss:mmmAM(或 PM)
10 110 美国 mm-dd-yy
11 111 日本 yy/mm/dd
12 112 ISO yymmdd
- 13 或 113 (*) 欧洲默认值 + 毫秒 dd mon yyyy hh:mm:ss:mmm(24h)
14 114 - hh:mi:ss:mmm(24h)
- 20 或 120 (*) ODBC 规范 yyyy-mm-dd hh:mm:ss[.fff]
- 21 或 121 (*) ODBC 规范(带毫秒) yyyy-mm-dd hh:mm:ss[.fff]
- 126(***) ISO8601 yyyy-mm-dd Thh:mm:ss:mmm(不含空格)
- 130* 科威特 dd mon yyyy hh:mi:ss:mmmAM
- 131* 科威特 dd/mm/yy hh:mi:ss:mmmAM
* 默认值(style 0 或 100、9 或 109、13 或 113、20 或 120、21 或 121)始终返回世纪数位 (yyyy)。** 当转换为 datetime 时输入;当转换为字符数据时输出。
是函数返回值没初始代的原因,可以在函数进入时:Result := Now;(给个本机的时间)。可能是无法访问服务器出错的原因;你的程序写得也有问题,函数在没有正确返回时,你只是打印一个出错信息,这样是不够的,通常正确的作法是抛出异常,而不是吃掉异常(除非函数本身很清楚的业务规则也就是业务逻辑)
2)a1:tdate; a2:=ttime;请问我如何将他们合并成tdatetime
NewDateTime := Trunc(a1) + (a2 - Trunc(a2))
日期时间的在Delphi表示法中,内部是浮点数,整数部分是日期,小数部分是时间