Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Inversão nas datas ....


fdirk

Pergunta

Bom dia!!

Estou trabalhando em um sistema q não foi construido por mim ...

Ele busca uma data do banco, inverte e faz os seguintes passos abaixo

'ObjRS("DT_INICIO_PERIODO2") - data invertida

            dataPagamentoFerias = AdicionaDiasUteis(ObjRS("DT_INICIO_PERIODO2"))
            
            if(Day(ObjRS("DT_INICIO_PERIODO2")) = 31) then
                dav = DateAdd("D",-31,ObjRS("DT_INICIO_PERIODO2"))
            else
                dav = DateAdd("D",-30,ObjRS("DT_INICIO_PERIODO2"))
            end if

            dataAvisoFerias     = Day(Cdate(dav))&"/"&Month(Cdate(dav))&"/"&Year(Cdate(dav))

            mes = CStr(DatePart("m", ObjRS("DT_INICIO_PERIODO2")))
Problemas: quando o dia é =< 12 os resultados das datas ficam invertidos. Exemplo da inversão: Data original - 12/07/2010 DT_INICIO_PERIODO2 - 07/12/2010 dataPagamentoFerias = 03/12/2010 dav - 07/11/2010 dataAvisoFerias - 07/11/2010 mes - 12 Exemplo quando funciona: Data original - 13/05/2010 DT_INICIO_PERIODO2 - 05/13/2010 dataPagamentoFerias = 11/05/2010 dav - 13/04/2010 dataAvisoFerias - 13/04/2010 mes - 5
function AdicionaDiasUteis(pData)
        pData = DateAdd("D", -2, pData)
        
        If Weekday(pData) <> 1 And Weekday(pData) <> 7 Then
            AdicionaDiasUteis = pData
        else
            if(Weekday(pData) = 1) then
                AdicionaDiasUteis = DateAdd("D",-2,pData)
            else
                AdicionaDiasUteis = DateAdd("D",-2,pData)
            end if
        End If
AdicionaDiasUteis = FormatMediumDate(Day(Cdate(AdicionaDiasUteis))&"/"&Month(Cdate(AdicionaDiasUteis))&"/"&Year(Cdate(AdicionaDiasUteis)))
end function

P q as datas invertem quando são nos menores q 13?

Att,

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Coloquei, mas continua invertendo...

Resolvi!

Tirei o ObjRS("DT_INICIO_PERIODO2") e usei o ObjRS("DT_INICIO_PERIODO").

ObjRS("DT_INICIO_PERIODO") - 2010/07/12

Não sei porque o programador antigo inverteu a data ... mas está funcionando agora.

Att.

Editado por fdirk
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...