× Linguagem de Programação ADVPL

Perguntas Diferença de Dias

Mais
9 anos 11 meses atrás #26662 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.

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 11 meses atrás #26663 por kanaamlrr
Respondido por kanaamlrr no tópico Diferença de Dias
tenta assim:

duracaomes3 := ctod(duracaomes1)-ctod(duracaomes2)

Por favor Acessar ou Registrar para participar da conversa.

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

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 11 meses atrás #26684 por lalberto
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.

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

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 11 meses atrás #26690 por lalberto
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

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
Joomla templates by a4joomla