var

  spdelib_base_datetime :TDateTime;

implementation

initialization

  spdelib_base_datetime := EncodeDateTime(2000,1,1,0,0,0,0);

finalization

end.

当然,你直接给数据值也行,因为在delphi里TDateTime就是double类型.这只是个人习贯而以.

定义系统服务单元:提供了系统的comb算法:

//********************************************************************

//

// Name   : Sinoprise Function Library For Delphi

//

//Author  :     Shuguang Yin

//Create  :     2005-11-15

//

// Copyright (c) 2005 : Sinoprise Technology Lab

// Official WebSite   : http://www.sinoprise.com

// Sinoprise Technology Community : http://www.winux.cn

//

//********************************************************************

//

//Unit Name : SSystemUnit

//

//Function : The System Functions

//

//********************************************************************

unit SSystemUnit;

interface

uses Windows,ActiveX,SysUtils,Dateutils;

const Cardinal_Length = sizeof(Cardinal);

type

  SSystem = class

     //取得一个经过转化的GUID，详见：Jimmy Nilsson的''''The Const of GUIDs as Primary Keys''''

     class Function GetCombGUID():TGUID;overload;

     class Function GetCombGUID(guid:TGUID):TGUID;overload;

     //从comb guid中得到日期和时间

     class Function GetDateTimeFromCombGuid(guid:TGUID):TDateTime;

     //根据给定的字符串分割符 ，格式化GUID的字符串

     class Function GetGuidString(guid:TGUID;beginSymbol:string=''''{'''';

               endSymbol:string=''''}'''';partitionSymbol:string=''''-''''):string;

     class Function GetGuidString2(guid:TGUID;beginSymbol:string=''''{'''';

               endSymbol:string=''''}'''';partitionSymbol:string=''''-''''):string;

  end;

implementation

uses SConvertUnit,SConstUnit;

{ SSystem }

class function SSystem.GetCombGUID: TGUID;

begin

   if CoCreateGUID(result) = S_OK

   then begin

      result := GetCombGUID(result);

   end

   else begin

上一页  [1] [2] [3] [4]  下一页