×
Linguagem de Programação ADVPL
Perguntas Diferença de Dias
- Flávia Mártis
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
9 anos 11 meses atrás #26662
por Flávia Mártis
Diferença de Dias foi criado por Flávia Mártis
Boa tarde pessoal!
Estou tentando executar o seguinte trecho de código:
duracaomes1 := (QRY->CAMPO3)
duracaomes2 := (QRY->CAMPO4)
If (duracaomes1 <> '' .and. duracaomes2 <> '')
duracaomes3 := DateDiffDay(ctod(duracaomes1), ctod(duracaomes2))
EndIf
Mas estou recebendo somente 0 como resultado..
Alguém pode me ajudar para saber o que está errado???
Obrigada,
Flávia Mártis
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Estou tentando executar o seguinte trecho de código:
duracaomes1 := (QRY->CAMPO3)
duracaomes2 := (QRY->CAMPO4)
If (duracaomes1 <> '' .and. duracaomes2 <> '')
duracaomes3 := DateDiffDay(ctod(duracaomes1), ctod(duracaomes2))
EndIf
Mas estou recebendo somente 0 como resultado..
Alguém pode me ajudar para saber o que está errado???
Obrigada,
Flávia Mártis
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- Flávia Mártis
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
9 anos 11 meses atrás #26681
por Flávia Mártis
Respondido por Flávia Mártis no tópico Diferença de Dias
Ei Kanaãm, bom dia!
O resultado foi o mesmo!!!
Tem mais alguma ideia para resolver o problema???
Obrigada,
Flávia Mártis
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
O resultado foi o mesmo!!!
Tem mais alguma ideia para resolver o problema???
Obrigada,
Flávia Mártis
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
9 anos 11 meses atrás #26684
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Diferença de Dias
Flavia bom dia, qual o conteudo dos campos ? estão vindo de uma query correto ?, já estão setados para vir como data ou estão vindo como caracter ?
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Flávia Mártis
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
9 anos 11 meses atrás #26689
por Flávia Mártis
Respondido por Flávia Mártis no tópico Diferença de Dias
Ei pessoal,
Resolvi esse problema da seguinte forma:
If (alltrim(datafim) <> '')
totdias := DateDiffDay(STOD(datafim) ,STOD(dataini)) + 1
End If
Tive que usar STOD porque já estava pegando uma string, devido a query, e para realizar a diferença de dias precisava de data!
Obrigada pela ajuda de todos!
Flávia Mártis
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Resolvi esse problema da seguinte forma:
If (alltrim(datafim) <> '')
totdias := DateDiffDay(STOD(datafim) ,STOD(dataini)) + 1
End If
Tive que usar STOD porque já estava pegando uma string, devido a query, e para realizar a diferença de dias precisava de data!
Obrigada pela ajuda de todos!
Flávia Mártis
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
9 anos 11 meses atrás #26690
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Diferença de Dias
Flavia boa noite, uma dica, sempre que criar uma query no protheus utilize o comando setfield:
cQuery += "SF4.F4_FILIAL='"+xFilial("SF4")+"' AND "
cQuery += "SF4.F4_CODIGO=SC6.C6_TES AND "
cQuery += "SF4.F4_DUPLIC='S' AND "
cQuery += "SF4.D_E_L_E_T_<>'*' AND "
cQuery += "SC9.C9_FILIAL='"+xFilial("SC9")+"' AND "
cQuery += "SC9.C9_PEDIDO=SC5.C5_NUM AND "
cQuery += "SC9.C9_ITEM=SC6.C6_ITEM AND "
cQuery += "SC9.C9_PRODUTO=SC6.C6_PRODUTO AND "
cQuery += "SC9.C9_NFISCAL='"+Space(Len(SC9->C9_NFISCAL))+"' AND "
cQuery += "SC9.D_E_L_E_T_<>'*'"
cQuery := ChangeQuery(cQuery)
cQry := cArquivo+"A"
dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cQry,.T.,.T.)
TcSetField(cQry,"EMISSAO","D") Determina que o campo EMISSAO da query venha no formato DATA
cQuery += "SF4.F4_FILIAL='"+xFilial("SF4")+"' AND "
cQuery += "SF4.F4_CODIGO=SC6.C6_TES AND "
cQuery += "SF4.F4_DUPLIC='S' AND "
cQuery += "SF4.D_E_L_E_T_<>'*' AND "
cQuery += "SC9.C9_FILIAL='"+xFilial("SC9")+"' AND "
cQuery += "SC9.C9_PEDIDO=SC5.C5_NUM AND "
cQuery += "SC9.C9_ITEM=SC6.C6_ITEM AND "
cQuery += "SC9.C9_PRODUTO=SC6.C6_PRODUTO AND "
cQuery += "SC9.C9_NFISCAL='"+Space(Len(SC9->C9_NFISCAL))+"' AND "
cQuery += "SC9.D_E_L_E_T_<>'*'"
cQuery := ChangeQuery(cQuery)
cQry := cArquivo+"A"
dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cQry,.T.,.T.)
TcSetField(cQry,"EMISSAO","D") Determina que o campo EMISSAO da query venha no formato DATA
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.107 segundos