VBA Excel-如何将日期字符串从dd / mm / yyyy转换为yyyy-mm-dd？

Question

我是新手...在Excel中转​​换日期字符串时遇到问题。有人可以帮我吗？

我得到的不是这样的转换：-/ 2-13 / 06/2017

谢谢！

Sub muda_datas()
    For linha = 3 To 479
    MsgBox Cells(linha, 24).Value
        dia = Cells(linha, 24).Value
        mes = Mid(Cells(linha, 24).Value, 6, 2)
        Cells(linha, 24).Value = ano & "-" & mes & "-" & dia
    Next linha
End Sub