[Resolvido]Data no Relatório assim: São Paulo, 18 de outubro de 2012.

Olá,
Não achei na pesquisa, portanto coloquei minha dúvida.

Tenho um relatório como se um ofício, ou carta e não estou conseguindo por a data
nesse formato

São Paulo,18 de outubro de 2012.

Só aparece assim pelo metodo incluir data
quinta feira, 18 de outubro de 2012.

Como tirar o dia da semana ?

Obrigado

Olá flecha,

Digamos que você tem um rótulo no teu relatório com o nome de LblData.

Coloca o código abaixo no evento Ao Carregar do teu relatório:

Dim dia, mes, ano, As Date

dia = Format(Date, "dd")
mes = Format(Date, "mmmm")
ano = Format(Date, "yyyy")

Me.LblData.Caption = "São Paulo, " & dia & " de " & mes & " de " & ano


Deve ter uma forma mais simples do que essa, más é um caminho.


Nivaldo.

Nivaldo,obrigado.

Coloquei assim, mas esta dando erro "13" Tipos incompatíveis na linha marcada:

Private Sub Report_Open(Cancel As Integer)
Dim dia As Date
Dim mes As Date
Dim ano As Date

dia = Format(Date, "dd")
mes = Format(Date, "mmmm") <---------
ano = Format(Date, "yyyy")

Me.LbLData.Caption = "São Paulo, " & dia & " de " & mes & " de " & ano

End Sub


Troquei o "MMMM" por "MM" e depois "M", não dá erro mas sai uma data maluca como abaixo:

São Paulo, 18/1/1900 de 9/1/1900 de 4/7/1905

Continuo procurando a solução.

Bom dia..

Com a permissão do Grande Nivaldo, apenas dando um pitaquinho:

Crie uma caixa de texto desacoplada nesse relatório e dentro dela insira o seguinte comando: =hoje(), e nas propriedades dela, coloque o formato como data abreviada. No rótulo dela, escreva "São Paulo".

Teste e nos informe.

Silvio

Ou ainda;

Na origem de uma caixa de texto;


="São Paulo" & "," & Trim(Format(Date();"dd")) & " de " & Trim(Format(Date();"mmmm")) & " de " & Trim(Format(Date();"yyyy"))

Sem problemas amigo Silvio, o que importa é o resultado final. Pitacos são sempre bem vindos.

Flecha,

Tenta no evento Ao Carregar.

Você colocou no evento Ao Abrir.

Más tenta as alternativas do Silvio e do J Paulo. São alternativas que enriquecem nosso aprendizado.

Nivaldo.

Pessoal,


Retornei para informar o progresso e deparei com as respostas,

Fiquei tentando por eliminatória e consegui assim:

Caixa de texto no relatório;
Rótulo = São Paulo, ; pois não consegui incluir no junto com formato
Origem de dados = Date() ;
Formato sem sinal de igual assim dd" de "mmmm" de "yyyy

Funcionou.
Mas vou experimentar as demais saidas acima,
A do JPaulo foi na Mosca!
Obrigado a todos.

Obrigado pelo retorno flexa.

O forum agradece.

Nivaldo.