Dias da Semana - <

[m@r<3|o]

Pessoal como saber os dias da semana

segunda
terça
quarta
quinta
sexta
sabado
domingo

para colocar no reporter

Abs
Obrigado
Marcelo Fazan

[Marcos Guedes]

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

[m@r<3|o]

Obrigado Marcos

Obrigado Abs
Marcelo Fazan

[lardecristo]

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

[Marcos Guedes]

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

[lardecristo]

Legal, este GETWORDNUM, eu nunca tinha usado, mais uma para a minha lista.

[hugo]

parabens

reputados

a proposito, adivinharam a pergunta que ia postar aqui

hauahauahauahauahau

[hugo]

A PROPOSITO

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


pensem nisto!