Obtener Fecha y Hora de Servidor Firebird

Para obtener la fecha del servidor Firebird creamos una función (Function Object):

$PBExportHeader$f_fecha_servidor.srf
global type f_fecha_servidor from function_object
end type

forward prototypes
global function datetime f_fecha_servidor ()
end prototypes

global function datetime f_fecha_servidor ();

// -------------------------------------------------------------------------------------
// Funcion : f_fecha_servidor
// Proposito: Devuelve la fecha y hora del servidor Firebird
// Creador : Jorge A. Barzola Rosadio
// Fecha : 16/07/2015
// -------------------------------------------------------------------------------------
 DateTime ldt_DateTime

SetNull(ldt_DateTime)

SELECT CURRENT_TIMESTAMP
    INTO :ldt_DateTime
  FROM RDB$DATABASE;

RETURN ldt_DateTime

end function