bonjours,

Comment puis-je faire pour que le code ci dessous soit 100% légal en VB.NET ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Shared Function SpecToDAte(wDat As String) As DateTime
        Dim returnValue As DateTime = DatDateZero
        On Error Resume Next
        returnValue = DateValue(Microsoft.VisualBasic.Mid$(wDat, 7, 2) & "/" & Microsoft.VisualBasic.Mid$(wDat, 5, 2) & "/" & Microsoft.VisualBasic.Mid$(wDat, 1, 4))
        On Error GoTo 0
        return returnValue
    End Function
autant les mid$ je m'en fou que cela reste comme cela, mais c'est les on error que je ne comprend pas bien. j'imaginai remplacer par un bloc
try-catch mais là je voit pas comment.
Il faudrait un bloc try-catch pour chaque instruction ou un bloc try-catch pour le premier returnValue qui contiendrai le deuxième try-catch avec la deuxième instruction returnValue ET le return ???

D'avance je vous remercie.