在SQL Server 2000數據庫中測試后通過如下代碼，功能實現如下：

USE MASTER

GO

IF EXISTS(SELECT * FROM dbo.sysdatabases WHERE name='my_test_database')

DROP DATABASE [my_test_database]

GO

CREATE DATABASE [my_test_database]

GO

USE [my_test_database]

GO

CREATE TABLE [my_table] ([my_id] VARCHAR(16))

GO

--存儲過程開始

CREATE PROCEDURE get_new_id

@NEW_ID VARCHAR(16) OUTPUT

AS

BEGIN

DECLARE @DATE DATETIME

DECLARE @YYYY VARCHAR(4)

DECLARE @MM VARCHAR(2)

DECLARE @DD VARCHAR(2)

--保存取得的當前時間

SET @DATE = GETDATE()

SET @YYYY = DATEPART(yyyy, @DATE)

SET @MM = DATEPART(mm, @DATE)

SET @DD = DATEPART(dd, @DATE)

--位數不夠的前面補0

SET @YYYY = REPLICATE('0', 4 - LEN(@YYYY)) + @YYYY

SET @MM = REPLICATE('0', 2 - LEN(@MM)) + @MM

SET @DD = REPLICATE('0', 2 - LEN(@DD)) + @DD

--取出表中當前日期的已有的最大ID

SET @NEW_ID = NULL

SELECT TOP 1 @NEW_ID = [my_id] FROM [my_table] WHERE [my_id] LIKE @YYYY+@MM+@DD+'%' ORDER BY [my_id] DESC

--如果未取出來

IF @NEW_ID IS NULL

--說明還沒有當前日期的編號，則直接從1開始編號

SET @NEW_ID = (@YYYY+@MM+@DD+'00000001')

--如果取出來了

ELSE

BEGIN

DECLARE @NUM VARCHAR(8)

--取出最大的編號加上1

SET @NUM = CONVERT(VARCHAR, (CONVERT(INT, RIGHT(@NEW_ID, 8)) + 1))

--因為經過類型轉換，丟失了高位的0，需要補上

SET @NUM = REPLICATE('0', 8 - LEN(@NUM)) + @NUM

--最后返回日期加編號

SET @NEW_ID = @YYYY+@MM+@DD + @NUM

END

END

GO

--執行20次調用及插入數據測試

DECLARE @N INT

SET @N = 0

WHILE @N < 20

BEGIN

DECLARE @NEW_ID VARCHAR(16)

EXECUTE get_new_id @NEW_ID OUTPUT

INSERT INTO [my_table] ([my_id]) VALUES (@NEW_ID)

SET @N = @N + 1

END

SELECT * FROM [my_table]

GO

--輸出結果

/**//*

my_id

----------------

2006092700000001

2006092700000002

2006092700000003

2006092700000004

2006092700000005

2006092700000006

2006092700000007

2006092700000008

2006092700000009

2006092700000010

2006092700000011

2006092700000012

2006092700000013

2006092700000014

2006092700000015

2006092700000016

2006092700000017

2006092700000018

2006092700000019

2006092700000020

*/

注釋：原來yyyymmdd格式的日期直接這樣取即可：

SELECT CONVERT(CHAR(8), GETDATE(), 112)

--輸出結果：

/**//*

--------

20060927

*/