Veja se é isso.

Lorenzon,

Bom Dia!

Veja se é assim.

Gênios!

Só não conseguimos subtrair uma data pela outra, como descrito no exemplo 2:

exemplo 2: 25/8/2014 - 20/8/2014 = 05/8/2014

A única coisa que fiz, afim de facilitar ainda mais os cálculos, foi a linha em negrito:

Private Sub Image1_Click()
Label1.Caption = "+"

Call AtualizaData
End Sub
Private Sub Image2_Click()
Label1.Caption = "-"

Call AtualizaData

25/8/2014 - 20/8/2014 = 05/8/2014

isso é errado né !?
tipo, 25/8/2014 - 20/8/2014 = 5/1/1900

Pensa.... num calendário que começa em 1900, isso faria sentido... e a macro já faz...

Fernando,

É isso mesmo. O resultado a ser apresentado entre a subtração abaixo é 5. Acho que o confundi ao escrever o resultado 05/08/2014.

25/8/2014 - 20/8/2014 = 5

a macro está formatando o resultado como data...
é possível corrigir.... quer ?

Fernando,

Desculpa-me, mas, utilizando o exemplo que você postou, o resultado apresentado no textbox3, na subtração de 28/8/2014 - 23/08/2014, é = ""

Em contrapartida, caso eu subtrair/adicionar, 28/08/2014 - 5 = 23/08/2014 e 28/08/2014 + 5 = 02/09/2014, ou seja, o código funciona perfeitamente.

é pq nessa linha:

IsDate(Me.TextBox1) And IsNumeric(Me.TextBox2)

o código impede a continuação de conteúdo 26/5/2014 no textbox2, pq não é numérico...

Entendido.

Resolvido o problema. Fiz esta adaptação e obtive êxito:

Private Sub AtualizaData()
If IsDate(Me.TextBox1) And IsNumeric(Me.TextBox2) And Label1.Caption = "+" Then
Me.TextBox3 = DateAdd("d", Me.TextBox2, Me.TextBox1)
ElseIf IsDate(Me.TextBox1) And IsNumeric(Me.TextBox2) And Label1.Caption = "-" Then
Me.TextBox3 = CDate(TextBox1.Text) - Val(TextBox2.Text) 'DateAdd("d", Me.TextBox2, Me.TextBox1)
Exit Sub

End If

If IsDate(Me.TextBox1) And IsDate(Me.TextBox2) And Label1.Caption = "-" Then
Me.TextBox3 = CDate(TextBox1.Text) - Val(TextBox2.Text) 'DateAdd("d", Me.TextBox2, Me.TextBox1)

End If

End Sub

Bastaria eu saber como formatar o valor do textbox3, em números, nos casos de datas - datas.

Formate como:
"General"

Trabalhar com datas no Excel é dificil. Mas dominar o conceito é fantástico!

O mais importante é lembrar que para cada dia do calendário, desde 1/1/1900, o Excel associa um número crescente começando em 1. O que explica aquele número aproximado de 40000 que você vê de vez em quando. Isso nada mais é do que o número da data, se contarmos dia a dia desde o dia 1/1/1900.

Os decimais representam horas de cada dia, ou seja, 0,5 significa meio dia e 0,75 represente 6pm.
E há um limite para o numero de dias que agora, bêbado de sono, eu não lembro.

aí sim vc entenderá como o Excel faz o cálculo de diferença entre datas. Ao combinar formatação e soma ou subtração de datas, tudo passa a fazer sentido.

FF