?sqlexec(nHandle,'INSERT INTO X (date) values (' + FBDTOS({01/01/2005}) + ')')
?sqlexec(nHandle,'INSERT INTO X (date) values (' + FBDTOS(DATE()) + ')')

FUNCTION FBDTOS(tdDate)
	RETURN "'" + TRANSFORM(YEAR(tdDate), "@L 9999") + "-" ;
		+ TRANSFORM(MONTH(tdDate), "@L 99") + "-" ;
		+ TRANSFORM(DAY(tdDate), "@L 99") + "'"
ENDFUNC