8 replies to this topic

[rmax209]

Estou tentando concluir um sistema de cadastro q o cliente seleciona o dia do vencimento (5,10,15,20,25) e o script em asp calcula automaticamente o valor da primeira fatura proporcional ao dia de vencimento escolhido levando em conta a data atual do cadastro, na programção q eu mesmo fiz estou usando o comando ADD para adicionar um mês na data atual, por ex: data do cadastro é (4/9/2006) e o cliente escolhe o dia 5 para pagar as mensalidade então o sistema calcula s dias q faltam da data do cadastro até o dia do vencimento daqui a 1 mês e da o valor em R$, o problema q me deparei agora foi q cada mês tem uma quantidade diferente de dias tipo 31,30,29 e o tal do 28 do fevereiro ou seja essa diferença de dias em cada mês esta gerando um problemão no calculo já q todo mundo ja tem d costume q dia 5 para o próximo dia 5 não importando o mês sempre tem 30 dias mais na programção naun funciona assim ele realmente calcula os dias q existem em cada mês... kramba escrivi muito naun sei se alguem vai m entender mais o sistem q to fazendo é igual ao desse site aqui .

ta tudo quase pronto só naun sei como fazer a lógica nesse caso das diferenças de dias em cada mês....

agradeço muito q puder m ajudar! vlw galera!

[siola]

Tente usar a função DateDiff pra pegar qual o numero de dias entre as datas e em cima desse valor fazer a conta

[rmax209]

Eu ja utilizo essa função... o prblema é como descobrir quantos dias tem cada mes dinamicamente e ele calcular como se todos tivessem 30 dias!

[siola]

response.write "hoje: " & date() & "<BR>"

novadata = dateadd("m", 1, date())

response.write "daqui 1 mes: " & novadata & "<BR>"

diferenca = datediff("d", date(), novadata)

response.write "numero de dias de diferença: " & diferenca

[rmax209]

response.write "hoje: " & date() & "<BR>"
novadata = dateadd("m", 1, date())
response.write "daqui 1 mes: " & novadata & "<BR>"
diferenca = datediff("d", date(), novadata)
response.write "numero de dias de diferença: " & diferenca

isso eu ja fiz... como disse no post acima...

talvez eu naun esteja conseguindo expressar direito a minha duvida... vow deixar o sistema como está mesmo... d qualquer forma vlw siola

[Então]

Bom cara ai vai uma esquema que fiz para resolver esse problema, tem coisas que, derrepente, você ter que adaptar ao seu modo de usar, mas o básico é isso ai.


até a próxima....

<%

'Dia que o Cliente escolheu para pagar
DiaEscolhaCliente = 10

' Supondo que seja dia 04/09/2006
DiaHoje = Day(now()) 

'Verifica quantos dias tem no mês corrente
UltimoDiadoMes = DateAdd( "d", -1, DateSerial( Year(now()) , Month(now()) ,  1))

'Verifica se o dia que o cliente escolhe, existe para o Mês
if DiaEscolhaCliente > day(UltimoDiadoMes) then DiaEscolhaCliente = day(UltimoDiadoMes)

'Adiciona um mês para Cobrança
MesCobranca = DateAdd( "m", -1, DateSerial( Year(now()) , Month(now()) ,  DiaEscolhaCliente ))

'Soma os dias proporcionais
DiasProporcioanais = (Day(UltimoDiadoMes)-day(now())) + DiaEscolhaCliente


Response.Write "<br>Último dia do Mês = "& Day(UltimoDiadoMes)
Response.Write "<br>Dia Escolhido pelo Cliente = "& DiaEscolhaCliente
Response.Write "<br>Dias proporcionais= "& DiasProporcioanais
Response.Write "<br>Data da Cobrança = "&  MesCobranca
	
%>
 

Edição feita por: Então, 04/09/2006, 23:25.

[rmax209]

Consegui resolver

apenas coloquei uns Ifs em cada mês q não tem exatamente 30 dias!

Ex: o mês de janeiro tem 31 dias entaun para o sistema calcular sempre baseado em 30/30... tirei um dia do mês q tem 31 dias...

If Month(now) = CDate(1) Then
dias_restantes = dias_restantes - 1
Else
End if

e agora o sistema calcula como se todos meses do ano tivessem 30 dias!

vlw pela força galera!

Edição feita por: rmax209, 05/09/2006, 09:33.

[jairomendes]

Oi, tem como ver se o mes tem 31 dias sim, mas por regra de negocio, se calcula sempre 30 dias.

[rmax209]

é isso ai