como somar dia mes e ano? 15/01/08(1+5+0+1+0+8=15)

[GILBERTO NOBRE]

Olá,

Gostaria de saber como faço para somar a data e exibir em textbox ex: 15/01/08(1+5+0+1+0+8=15)

[João.Neto]

Tente o código abaixo:

Sub somadata()

Dim data As Date

Dim dia As Date

Dim mes As Date

Dim ano As Date

Dim soma As Integer

data = #4/20/2008# 'coloque aqui qualquer data, ou um input box, ou um text box

dia = Day(data)

mes = Month(data)

ano = Year(data)

soma = dia + mes + ano

MsgBox soma 'no lugar do msgbox poder ser uma textbox ou qlquer coisa

End Sub