Localizar maior Data dentro de um Dictionary

Question

Estou precisando localizar a maior data dentro de um Dictionary para então adicionar 1 mês.

Dentro do meu dictionary eu tenho as seguintes datas 01/01/2016, 01/02/2016, 01/03/2016, 01/04/2016.

Localizar maior Data 

------Maior Data = 01/04/2016

------Nova Data = Maior Data + 1 Mês

Neste caso, a Nova Data seria igual a 01/05/2016

É possivel fazer isso?

Answer 1

Thiago,

Tenta assim:

Sub main()

  Dim dic As New Dictionary

  dic.Add "01/01/2016", 1
  dic.Add "01/02/2016", 1
  dic.Add "01/03/2016", 1
  dic.Add "01/04/2016", 1

 MsgBox DateAdd("m", 1, MaxKeyFromDic(dic))
  
End Sub


Function MaxKeyFromDic(dic As Dictionary) As Variant
  
  Dim maxValue As Variant
  maxValue = 0
  
  For Each k In dic
    If k > maxValue Then maxValue = k
  Next
  
  MaxKeyFromDic = maxValue
  
End Function

---

Natan

Answer 2

Thiago,

Tenta assim:

Sub main()

  Dim dic As New Dictionary

  dic.Add "01/01/2016", 1
  dic.Add "01/02/2016", 1
  dic.Add "01/03/2016", 1
  dic.Add "01/04/2016", 1

 MsgBox DateAdd("m", 1, MaxKeyFromDic(dic))
  
End Sub


Function MaxKeyFromDic(dic As Dictionary) As Variant
  
  Dim maxValue As Variant
  maxValue = 0
  
  For Each k In dic
    If k > maxValue Then maxValue = k
  Next
  
  MaxKeyFromDic = maxValue
  
End Function

---

Natan

Depoi de eu fazer algumas mudanças para funcionar no meu código funcionou. Obrigado