Notifications
Clear all

Days360 no Formulário

2 Posts
2 Usuários
0 Reactions
945 Visualizações
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Boa tarde galera,

Estou tentando usar o DIAS360 no VBA.

Tenho duas datas no txtDate e txtDate2

Porém quando uso o código:

Private Sub CommandButton1_Click()
  
MsgBox Application.WorksheetFunction.Days360(Val(txtDate), Val(txtDate2))
  
End Sub

Está me retornando a apenas as diferenças do dia, sem considerar os meses.

EX:

txtDate = 10/10/2015
txtDate2 = 20/12/2015

Resultado = 10 dias

Correto seria = 70 dias

 
Postado : 23/10/2015 10:52 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


Testa desta maneira:

MsgBox Application.WorksheetFunction.Days360(CDate(txtDate), CDate(txtDate2))

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/10/2015 11:08 am