Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
14 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 14 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7037 usuários registrados
O último usuário registrado atende pelo nome de GETULIO

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

Dias da Semana - <

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Dias da Semana - <

Mensagem por m@r<3|o em 31/7/2010, 14:27

Pessoal como saber os dias da semana

segunda
terça
quarta
quinta
sexta
sabado
domingo

para colocar no reporter

Abs
Obrigado
Marcelo Fazan

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Dias da Semana - <

Mensagem por Marcos Guedes em 31/7/2010, 14:53

Veja se lhe ajuda:
Código:
CLEAR

?diasemanaingles(DATE())
?diasemanaportugues(DATE())

FUNCTION diasemanaingles AS STRING
   LPARAMETERS dt AS DATE
   RETURN CDOW(DATE())
ENDFUNC

FUNCTION diasemanaportugues AS STRING
   LPARAMETERS dt AS DATE
   LOCAL ndia AS INTEGER
   LOCAL cdia AS STRING
   m.dia = DOW(dt)
   DO CASE
      CASE (m.dia==1)
         m.cdia= "Domingo"
      CASE (m.dia==2)
         m.cdia= "Segunda-feira"
      CASE (m.dia==3)
         m.cdia= "Terça-feira"
      CASE (m.dia==4)
         m.cdia= "Quarta-feira"
      CASE (m.dia==5)
         m.cdia= "Quinta-feira"
      CASE (m.dia==6)
         m.cdia= "Sexta-feira"
      CASE (m.dia==7)
         m.cdia= "Sábado"
      OTHERWISE
         m.cdia=""
   ENDCASE
   RETURN m.cdia
ENDFUNC

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Dias da Semana - <

Mensagem por m@r<3|o em 31/7/2010, 15:23

Obrigado Marcos

Obrigado Abs
Marcelo Fazan

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Dias da Semana - <

Mensagem por lardecristo em 31/7/2010, 16:20

Mais um exemplo.

Código:
MESSAGEBOX(TrazDiaSemanaExtenso(DATE()))

FUNCTION TrazDiaSemanaExtenso(ldData as Date)
   LOCAL lsExtenso as String, lnDia as Integer
   LOCAL lsAux as String
   lnDia = DOW(ldData)
   lsAux = "            Domingo      Segunda-FeiraTerça-Feira  Quarta-Feira Quinta-Feira Sexta-Feira  Sábado "
   lsExtenso = ALLTRIM(SUBSTR(lsAux,(13*m.lnDia)+1,13))
RETURN m.lsExtenso
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Dias da Semana - <

Mensagem por Marcos Guedes em 31/7/2010, 16:58

lardecristo, teu exemplo me inspirou a criar outro:
Código:
CLEAR
?diasemanaportugues2(DATE())

FUNCTION diasemanaportugues2 AS STRING
   LPARAMETERS dt AS DATE
   LOCAL dias AS STRING
   m.dias = "Domingo Segunda-Feira Terça-Feira Quarta-Feira Quinta-Feira Sexta-Feira Sábado"
   RETURN GETWORDNUM(m.dias,DOW(m.dt))
ENDFUNC
Very Happy

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Dias da Semana - <

Mensagem por lardecristo em 31/7/2010, 17:18

Legal, este GETWORDNUM, eu nunca tinha usado, mais uma para a minha lista.
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Dias da Semana - <

Mensagem por hugo em 31/7/2010, 18:41

parabens

reputados

a proposito, adivinharam a pergunta que ia postar aqui

hauahauahauahauahau

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Dias da Semana - <

Mensagem por hugo em 31/7/2010, 18:42

A PROPOSITO

quem faz perguntas tao boas assim, que trazem pro forum
respostas tao uteis, tambem merece reputacao!


pensem nisto!

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum