Warum so eine kleinigkeit auf den
SQL Server auslagern?
Wie wäre es mit?
Delphi-Quellcode:
function GetMwStWert(D:Datumstyp):real; // Noch aus früheren Zeiten... Da gabe es noch keine Datetime!
var
DDD : Datumstyp;
begin
if D.Jahr > 92
then begin
ValDate('01.04.98',DDD);
if AbsDatum(D) >= AbsDatum(DDD)
then result := 16.0
else result := 15.0;
end
else result := 14.0;
end;
Frank
PS.: Die Erweiterung für 01.01.07 ist ja ein Kinderspiel!