Início
totonho01 10/12/2013, 20:13tenho um campo data: formato =agora() que fica assim: "terça-feira, 10 de dezembro de 2013". Eu queria colocar em maiuscula a primeira letra (terça) e a do mês (no caso dezembro) em maiuscula. como fazer?
3 participantes
[Resolvido]data tipo completa em maiúscula
totonho01- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 19
Registrado : 20/11/2013
marcosfaguiar- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 82
Registrado : 20/08/2012
Caro otonho01
Eu tenho um codigo só com a primeira letra
Na fonte de controle coloca assim =SeqConv(Format(Agora();"mmmm / yyyy");3)
Abraço
Eu tenho um codigo só com a primeira letra
Na fonte de controle coloca assim =SeqConv(Format(Agora();"mmmm / yyyy");3)
Abraço
totonho01- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 19
Registrado : 20/11/2013
esse codigo retorna somente o mes e o ano, mas falta o dia.
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Boa tarde,
Já tentou usar a função de formatar a primeira letra maiúscula que se tem falado aqui no fórum?
Já tentou usar a função de formatar a primeira letra maiúscula que se tem falado aqui no fórum?
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
Convidado- Convidado
um pitaco, vc terá que fazer uma magicazinha para obter esse resultado, você terá que criar um campo não acoplado no formulário e deixar como invisível, coloque na propriedade valor padrão desse campo: =SeqConv(Format$(Agora();"Data completa");3) isso lhe retornará todas as iniciais em maiúsculo, ou seja, a preposição de retornará De, para vc normalizar a preposição mude o formato do seu campo data para texto e crie um módulo novo e copie e cole esse código:
Public Function TrocaStr(wStr, w1, w2)
'----------------------------------------------
'TrocaStr
'Função auxiliar de FirstCaps
'Autor : Jacques Zetune
'----------------------------------------------
Dim wpos As Integer, wde As Integer
wde = 1
Do
wpos = InStr(wde, wStr, w1)
If wpos > 0 Then
Mid(wStr, wpos, Len(w1)) = w2
wde = wpos + 1
Else
Exit Do
End If
Loop
TrocaStr = wStr
End Function
Public Function FirstCaps(wText As String)
'--------------------------------------
'FIRSTCAPS
'Autor : Jacques Zetune
'Alterada por Cesar Rocha
'--------------------------------------
Dim wRetVal As String
wRetVal = StrConv(wText, 3)
wRetVal = TrocaStr(wRetVal, " E ", " e ")
wRetVal = TrocaStr(wRetVal, "De ", "de ")
wRetVal = TrocaStr(wRetVal, "Da ", "da ")
wRetVal = TrocaStr(wRetVal, "Do ", "do ")
wRetVal = TrocaStr(wRetVal, "Das ", "das ")
wRetVal = TrocaStr(wRetVal, "Dos ", "dos ")
FirstCaps = wRetVal
End Function
no evento atual do formulário coloque:
[CampoQueMudouFormato] = FirstCaps([CampoNãoAcoplado])
Public Function TrocaStr(wStr, w1, w2)
'----------------------------------------------
'TrocaStr
'Função auxiliar de FirstCaps
'Autor : Jacques Zetune
'----------------------------------------------
Dim wpos As Integer, wde As Integer
wde = 1
Do
wpos = InStr(wde, wStr, w1)
If wpos > 0 Then
Mid(wStr, wpos, Len(w1)) = w2
wde = wpos + 1
Else
Exit Do
End If
Loop
TrocaStr = wStr
End Function
Public Function FirstCaps(wText As String)
'--------------------------------------
'FIRSTCAPS
'Autor : Jacques Zetune
'Alterada por Cesar Rocha
'--------------------------------------
Dim wRetVal As String
wRetVal = StrConv(wText, 3)
wRetVal = TrocaStr(wRetVal, " E ", " e ")
wRetVal = TrocaStr(wRetVal, "De ", "de ")
wRetVal = TrocaStr(wRetVal, "Da ", "da ")
wRetVal = TrocaStr(wRetVal, "Do ", "do ")
wRetVal = TrocaStr(wRetVal, "Das ", "das ")
wRetVal = TrocaStr(wRetVal, "Dos ", "dos ")
FirstCaps = wRetVal
End Function
no evento atual do formulário coloque:
[CampoQueMudouFormato] = FirstCaps([CampoNãoAcoplado])
totonho01- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 19
Registrado : 20/11/2013
certissimo
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Corrigido o título
de
[Resolvido]data tipo completa em amiuscula
para
[Resolvido]data tipo completa em maiúscula
de
[Resolvido]data tipo completa em amiuscula
para
[Resolvido]data tipo completa em maiúscula
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Como Fazer 3 ou mais filtros em um mesmo relatorio? tipo Por Cpf na data "tal" com "Tal" tipo de solicitação? é possivel. Me ajudem Amigos.
» [Resolvido]Somar horas em uma data completa
» [Resolvido]Cidade e Data completa, como fazer?
» [Resolvido]Troca de campo de texto ao inserir data completa
» [Resolvido]Contratos e Licitações - (Digito data Inicial e as Demais o Sistema Completa)
» [Resolvido]Somar horas em uma data completa
» [Resolvido]Cidade e Data completa, como fazer?
» [Resolvido]Troca de campo de texto ao inserir data completa
» [Resolvido]Contratos e Licitações - (Digito data Inicial e as Demais o Sistema Completa)