[firebase-br] Formatar Data -> "Connection Lost"
Roberto Germano Vieweg Neto
roberto em jjwinformatica.com.br
Sex Maio 5 14:43:29 -03 2006
Desculpas ae, esqueci uma parte do código, tae:
library JJWXPUDF;
uses
SysUtils,
Classes,
SyncObjs,
Variants,
DateUtils;
const
DB_FORMAT_SETTINGS : TFormatSettings = (
CurrencyFormat: 0;
NegCurrFormat: 0;
ThousandSeparator: #0;
DecimalSeparator: '.';
CurrencyDecimals: 0;
DateSeparator: '-';
TimeSeparator: ':';
ListSeparator: #0;
CurrencyString: '';
ShortDateFormat: 'yyyy-mm-dd';
LongDateFormat: 'yyyy-mm-dd';
TimeAMString: 'AM';
TimePMString: 'PM';
ShortTimeFormat: 'hh:nn:ss.zzz';
LongTimeFormat: 'hh:nn:ss.zzz';
ShortMonthNames: ('', '', '', '', '', '', '', '', '', '', '', '');
LongMonthNames: ('', '', '', '', '', '', '', '', '', '', '', '');
ShortDayNames: ('', '', '', '', '', '', '');
LongDayNames: ('', '', '', '', '', '', '');
TwoDigitYearCenturyWindow: 50;
);
function FormatDateTime(AFormat, ADateTime: PChar): PChar; cdecl;
begin
Result := PChar(SysUtils.FormatDateTime(AFormat, StrToDateTime(ADateTime, DB_FORMAT_SETTINGS)));
end;
exports
FormatDateTime;
begin
end.
----- Original Message -----
From: Fábio Henrique Beccaria Sampaio
To: Carlos H. Cantu ; FireBase
Sent: Friday, May 05, 2006 2:14 PM
Subject: Re: [firebase-br] Formatar Data -> "Connection Lost"
E como seria ela escrita corretamente??
Esta assim...
library DateUtilsUDF;
uses
SysUtils,
Classes,
SyncObjs,
Variants,
DateUtils,
StrUtils;
function FormatDateTime(AFormat, ADateTime: PChar): PChar; cdecl;
begin
Result := PChar(SysUtils.FormatDateTime(AFormat,
StrToDateTime(ADateTime)));
end;
exports
FormatDateTime;
begin
end.
DECLARE EXTERNAL FUNCTION FORMAT_DATE_TIME
CSTRING(50),
CSTRING(25)
RETURNS CSTRING(50)
ENTRY_POINT 'FormatDateTime' MODULE_NAME 'DateUtilsUDF';
Pronto, para usar, um exemplo:
select
FORMAT_DATE_TIME('yyyy.MM.dd', A.DAT_EMISSAO) AS DAT_EMISSAO
from
NFS A
----- Original Message -----
From: "Carlos H. Cantu (TeamFB)" <listas em warmboot.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Friday, May 05, 2006 1:02 PM
Subject: Re: [firebase-br] Formatar Data -> "Connection Lost"
Porque provavelmente a UDF está mal escrita e está derrubando o
servidor.
[]s
Cantu (Membro do TeamFB - FireBase)
http://www.warmboot.com.br
FireBase - http://www.FireBase.com.br
FL> Esse erro: "Connection Lost" também acontece comigo quando executo
algumas
FL> UDF´s... Por que será?
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa
Mais detalhes sobre a lista de discussão lista