Este fórum está sendo desativado

[Diegonsf]

boa tarde,

Preciso de ajuda para tentar resolver um pequeno problema que tenho.

tenho uma planilha que me mostra uma data inicial e uma final, queria fazer uma barra que ele me conta-se 1 dia como porcentagem, exemplo:
Data Inicial 01/03/2019
Data Final 31/03/2019
Data Atual 09/03/2019

Dias percorrido (09/03/2019 - 01/03/2019) .

Data inicial 01/03/2019
Data Final 31/03/2019
Data Atual 09/03/2019

Total de datas ( 31/03/2019 - 01/03/2019)

Porcentagem de dias percorrido (Dias percorrido / Total de datas) * 100

O resultado me mostra em porcentagem e queria que essa barra aumenta-se até chegar a % do resultado, e para-se. conforme os dias chegando perto do final, tem como alguém me da uma dica? preciso fazer isso em VBA.

[osvaldomp]

Código: Selecionar todos

Private Sub CommandButton1_Click()
 Dim di As Long, df As Long, e As Long, p As Long
  On Error Resume Next
  di = Format(TextBox2, "00000")
  df = Format(TextBox3, "00000")
  e = Format(TextBox1, "00000") - di
  p = e * 288 / (df - di)
  Me.Label4.Width = p
  Me.Label4.Caption = Application.Round(p * 100 / 288, 1) & " %"
End Sub

obs. na janela Propriedades de Label4 altere a propriedade Width de 288 para 0