Jump to content
Fórum Script Brasil
  • 0

Problema Com Intervalo De Data


falha404

Question

E aê moçada!

Me deparei com pedido que já estou horas em cima e nada.

O problema é o seguinte:

Tenho um intervalo de data; ex, 27/jan/2006 a 08/fev/2006

Bem, eu quero saber é quantos dias de cada mês se passaram.

No exemplo acima a resposta seria:

[Mês]     [Dias]
  jan        5
  fev        8

Agradeço a ajuda aê!!

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

ae,

cara so sei resolver na base da gambiarra, então vai

Dim dtInicial As Date

Dim dtFinal As Date

Dim jan, fev 'coloque todos os meses

dtInicial = Texto0.Value

dtFinal = Texto4.Value

While Not dtInicial = dtFinal + 1

Select Case Mid(dtInicial, 4, 2)

Case Is = "01" ' coloque um case para cada mes

jan = jan + 1

Case Is = "02"

fev = fev + 1

End Select

dtInicial = dtInicial + 1

Wend

MsgBox (jan & " " & fev)

Parece trabalhoso mas resolve.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.8k
×
×
  • Create New...