Datum in SQL Funktion prüfen

[malzusrex]

Danke!

Das war es

Create Function MyLib/DAT_Diff( Dat1 Dec(8, 0), Dat2 Dec(8, 0) ) 
       Returns Decimal (6, 0)                                     
       Language sql                                               
Begin                                                             
declare EXIT HANDLER FOR SQLEXCEPTION return 0;                   
Return                                                            
 Days(Date(SubStr(Digits(Dat1), 1, 4) Concat '-' Concat           
           SubStr(Digits(Dat1), 5, 2) Concat '-' Concat           
           SubStr(Digits(Dat1), 7, 2) ))                          
-Days(Date(SubStr(Digits(Dat2), 1, 4) Concat '-' Concat           
           SubStr(Digits(Dat2), 5, 2) Concat '-' Concat           
           SubStr(Digits(Dat2), 7, 2) ));                         
end 

[Fuerchau]

Das geht auch einfacher:

days(date(char(Dat1 * 1000000))) - days(date(char(Dat2 * 1000000)))

Die Funktion Date erlaubt auch einen Timestamp in der Form JJJJMMTTHHMMSS.

[malzusrex]

Gut werde ich umbauen.

(aber das Beispiel hatte ich auch mal von dir ;-) )
http://newsolutions.de/forum-systemi...erenz-in-Tagen

[Fuerchau]

Man lernt nie aus und SQL wird von Release zu Release besser. Das ISO-Datum galt noch für V4!

[Fuerchau]

Nachtrag:
Ich habe mir mal eine VBA-ähnliche Funktion gebaut:
DATESERIAL(Year as integer, Month as Integer, Day as integer) as Date
return date('0001-01-01') + (year - 1) Years + (Month - 1) months + (day - 1) days;
Fehlerabfangen falls Über-/Unterlauf.

Diese ist zum Rechnen manchmal ganz gut.
Beispiel:
Dateserial(Year(mydate), Month(Mydate) + 1, 0) = immer der Letzte des Monats
Ich denke da gibt es immer wieder Anwendungen, auch z.B. bei alten Strukturen mit getrennten Datumfeldern.

Ggf. kann man ja noch einen "case when Year < 100 then case when Year < 40 then year + 2000 else year + 1900 end else year end" einbauen um 2-stellige Jahre zu berücksichtigen (wie Microsoft auch).