Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

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

Resolvido Re: Dias da Semana - <

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


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