-- 月曆產生器
-- 2006 / 12
-- SUN MON TUE WED THU FRI SAT
-- 1 2 3 4
-- 5 6 7 8 9 10 11
-- ....
-- 程式設計提示
--1.變數宣告與初值設定
--2.輸入
DECLARE @Year AS SMALLINT, @Month AS TINYINT
DECLARE @LeadingSpace AS TINYINT, @FirstDay AS DateTime
DECLARE @WeekDay AS TinyInt, @i as TinyInt
DECLARE @Output as Varchar(100)
SET @Year = 2006
SET @Month = 12
SET @LeadingSpace = 10

--3.運算
--4.輸出
--PRINT SPACE(@LeadingSpace) LTRIM(STR(@Year)) '/' LTRIM(STR(@Month))
PRINT SPACE(@LeadingSpace) CAST(@Year AS VARCHAR(4)) '/' CAST(@Month AS VARCHAR(2))
PRINT ' SUN MON TUE WED THU FRI SAT'
-- SET @FirstDay = '2006/10/01'
SET @FirstDay = CAST(@Year as varchar(4)) '/' CAST(@Month as varchar(2)) '/' '01'
SET @WeekDay = DatePart(weekday,@FirstDay) - 1

SET @Output = ''
--PRINT SPACE(@WeekDay*4)
SET @Output = @Output SPACE(@WeekDay*4)
SET @i = 1
WHILE @i < 30
BEGIN
SET @Output = @Output Str(@i,3) ' '
-- PRINT STR(@i,3) ' '
SET @i = @i 1
END
PRINT @Output
目前寫到這裡答案是
SUN MON TUE WED THU FRI SAT
1 2 3 4 5 6 7 8 9 10 11 12 13 14
就類似像這樣部會換行
請大大指點一下

請參考我先前做的範例
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=51675