Não precisa nada disso, existe uma forma mais simples
coloque no evento BeforePrint do QuickReport
QRLabel26.Caption:= FormatDateTime('"Rio de Janeiro, "", "d" de "" de
"',date);
Nielsen Cassiano Simões <[EMAIL PROTECTED]> wrote:
Coloque no OnPrint do QRLabel:
Value := FormatDateTi
Coloque no OnPrint do QRLabel:
Value := FormatDateTime(LongDateFormat, Date);
Delete(Value, 1, Pos(',', Value));
Value := 'Rio de Janeiro,' + Value;
Nielsen
On Tue, 26 Oct 2004 14:15:20 -, er83pet04 <[EMAIL PROTECTED]> wrote:
>
>
> Estou querendo exibir no meu relatório a data d
ShortDateTime()
- Original Message -
From: "er83pet04" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, October 26, 2004 12:15 PM
Subject: [delphi-br] Exibir data do sistema no relatório
Estou querendo exibir no meu relatório a data do sistema. Pa
jrjuniore [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 26 de outubro de 2004 11:49
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Exibir data do sistema no relatório
Faça o seguinte:
lbData.caption := formatDateTime('"Rio de Janeiro, " dd "de" "de"
y
PROTECTED]
Enviada em: terça-feira, 26 de outubro de 2004 12:15
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Exibir data do sistema no relatório
Estou querendo exibir no meu relatório a data do sistema. Para fazer isso
coloquei:
var
Present: TDateTime;
Year, Month, Day : Word;
begin
Present
;Dezembro');
begin
Result := vDia[DayOfWeek(Data)]+', '+FormatDateTime('dd',Data)+' de
'+vMes[StrToInt(FormatDateTime('mm',Data))]+' de '+FormatDateTime('',Data);
end;
falo
[]'s
- Original Message -
From: er83pet04
T
edit1.Text := FormatDateTime('dd" de "" de "',Date);
Espero ter ajudado!
[]s
Christian Balz
_
De: er83pet04 [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 26 de outubro de 2004 12:15
Para: [EMAIL PROTECTED]
Assunto: [delphi
se for o quickreport porque vc nao usa o QRSysData ?
- Original Message -
From: er83pet04
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 11:15 AM
Subject: [delphi-br] Exibir data do sistema no relatório
Estou querendo exibir no meu relatório a data do sistema
Estou querendo exibir no meu relatório a data do sistema. Para fazer
isso coloquei:
var
Present: TDateTime;
Year, Month, Day : Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
lblData.Caption := 'Rio de Janeiro, ' + IntToStr(Day) + ' de ' +
IntToStr(Month) + ' de
9 matches
Mail list logo