[firebase-br] Procedure em C para UDF

[Gelson Borsoi Lista Firebase]

Olá a todos.

Gostaria de saber se alguém da lista teria disponibilidade para transcrever 
a procedure Delphi abaixo para C:

procedure UltDiaMesData(Ret: PFBTS; var dData: TFBDate); cdecl; export;
var
  R: TDateRec;
begin
  R := FBDecDate(dData);
  Ret^.Date := FBEncDate(DateRec(R.Year, R.Month, LastDay(R.Year, R.Month)));
  Ret^.Time := FBEncTime(TimeRec(23, 59, 59));
end;

A mesma está registrada no Firebird da seguinte maneira:

DECLARE EXTERNAL FUNCTION ULTDIAMESDATA
    TIMESTAMP,
    TIMESTAMP
RETURNS PARAMETER 1
ENTRY_POINT 'UltDiaMesData' MODULE_NAME 'vsudf'

Essa declaração poderá ser alterada se necessário.

Desde já agradeço.

Gelson Borsoi

--
http://www.borsoi.com.br)