------
一切都為了明天

僅供參考

http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=45174
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=44335


===================引 用 kuf41 文 章===================

正確的民國格式是可以寫出來,

重點是一些錯誤的民國格式需回傳Null,

不知有何方法

------
一切都為了明天

請問您SQL語法怎麼寫的??


===================引 用 kuf41 文 章===================
正確的民國格式是可以寫出來,

重點是一些錯誤的民國格式需回傳Null,

不知有何方法

[code sql]
CREATE FUNCTION dbo.Date_TWtoUS (@twDate as varchar(10))
RETURNS Datetime AS
BEGIN
return
Case When len(@twDate)=8
then Cast(Cast(Cast(left(@twDate,2) as int) 1911 as varchar(4)) right(@twDate,6) as Datetime)
else Case when len(@twDate)=9
then Cast(Cast(Cast(left(@twDate,3) as int) 1911 as varchar(4)) right(@twDate,6) as Datetime)
else Null
end
end
END

[/code]

當Select Date_TWtoUS('99.21.03)時,會出錯
不知SQL有無例外處理
===================引 用 老大仔 文 章===================
請問您SQL語法怎麼寫的??

------
一切都為了明天

編輯記錄

請再加以下的判斷試看看

PS: 以下沒經測試，因為我電腦目前沒有SQL，所以可能必須稍加修改一下囉
Sorry~

[code sql]
Case When len(@twDate)=8 then
if (CAST(substring(@twDate, 4, 2) as INT) > 12) then Null
else
Cast(Cast(Cast(left(@twDate,2) as int) 1911 as varchar(4)) right(@twDate,6) as Datetime)
else Case when len(@twDate)=9 then
if (CAST(substring(@twDate, 5, 2) as INT) > 12) then Null
else
Cast(Cast(Cast(left(@twDate,3) as int) 1911 as varchar(4)) right(@twDate,6) as Datetime)
else Null
[/code]


===================引 用 kuf41 文 章===================

[code sql]
CREATE FUNCTION dbo.Date_TWtoUS (@twDate as varchar(10))
RETURNS Datetime AS?
BEGIN
? return
?Case?When len(@twDate)=8
??then Cast(Cast(Cast(left(@twDate,2) as int) 1911 as varchar(4)) right(@twDate,6) as Datetime)
??else?Case?when len(@twDate)=9
then Cast(Cast(Cast(left(@twDate,3) as int) 1911 as varchar(4)) right(@twDate,6) as Datetime)
else Null
???end
?end
END

[/code]

當Select Date_TWtoUS('99.21.03)時,會出錯
不知SQL有無例外處理
===================引 用 老大仔 文 章===================
請問您SQL語法怎麼寫的??
?
?

編輯記錄

先謝謝你的熱心回應

以下語法可能不行(我沒試過),因為Cast(left(@twDate,2) as int)就會出錯了,
像Select Date_TWtoUS('91.?A.12'),不是數字


起因:
要把舊系統裡的民國日期資料轉換至新系統為Datetime模式
可是以前的資料有很多都不是民國格式.像
89.?A.12', ' . . '......等

所以;
要在做轉換時把這些都變成Null


===================引 用 老大仔 文 章===================
請再加以下的判斷試看看

PS: 以下沒經測試，因為我電腦目前沒有SQL，所以可能必須稍加修改一下囉
Sorry~

[code sql]
Case When len(@twDate)=8 then
? if (CAST(substring(@twDate, 4, 2) as INT) > 12) then Null
? else
Cast(Cast(Cast(left(@twDate,2) as int) 1911 as varchar(4)) right(@twDate,6) as Datetime)??
??? else Case when len(@twDate)=9 then
? if (CAST(substring(@twDate, 5, 2) as INT) > 12) then Null
? else
??? Cast(Cast(Cast(left(@twDate,3) as int) 1911 as varchar(4)) right(@twDate,6) as Datetime)??
??? else Null
[/code]

------
一切都為了明天

終於完成,以下為Function

[code sql]
Create FUNCTION dbo.Date_TWtoUS (@twDate as varchar(10))
RETURNS Datetime AS
BEGIN
declare @shortDate as varchar(6)
declare @value as datetime
set @twDate=rTrim(lTrim(@twDate))
--長度為8
if len(@twDate)=8
begin
set @shortDate=substring(@twDate,1,2) substring(@twDate,4,2) substring(@twDate,7,2)
--判斷是否為數字,因小數點也是數字,要特別判斷
if (charindex('.',@shortDate)>0) or isnumeric(@shortDate)=0
set @value= Null
else
begin
Set @twDate=Cast(Cast(substring(@shortDate,1,2) as int) 1911 as char(4)) right(@twDate,6)
if isDate(@twDate)=1
set @value= Cast(@twDate as Datetime)
else
set @value= Null
end
end
--長度為9
else if len(@twDate)=9
begin
set @shortDate=substring(@twDate,1,3) substring(@twDate,5,2) substring(@twDate,8,2)
--判斷是否為數字,因小數點也是數字,要特別判斷
if (charindex('.',@shortDate)>0) or isnumeric(@shortDate)=0
set @value= Null
else
begin
Set @twDate=Cast(Cast(substring(@shortDate,1,3) as int) 1911 as char(4)) right(@twDate,6)
if isDate(@twDate)=1
set @value= Cast(@twDate as Datetime)
else
set @value= Null
end
end
--其他都Null
else set @value= Null
return @value
END

[/code]

------
一切都為了明天