Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
15 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 14 Visitantes :: 2 Motores de busca

rodiney

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

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: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

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

Os nossos membros postaram um total de 4 mensagens em 2 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

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.

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.]

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.]

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