function f_nvl(piv_nwert as variant,piv_decwert as variant) as variant
'Autor Heiko Hommes
'Datum 22.10.2008
'Beschr. nvl Funktion wie in Oracle, sollte ein wert null sein
'		 dann wird dieser durch einen alternatievn Wert ersetzt


on error goto fehler

dim pov_wert as variant

if isnull(piv_nwert) then 
	pov_wert =piv_decwert
else
	pov_wert=piv_nwert
end if
	
f_nvl = pov_wert
exit function

fehler:
f_nvl = pin_nwert
exit function
End Function