code à la sauce VB.NET

Version imprimable

bonjours,

Comment puis-je faire pour que le code ci dessous soit 100% légal en VB.NET ?
Code:

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.

Un truc du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Shared Function SpecToDAte(wDat As String) As DateTime
 
        Dim returnValue As DateTime = nothing
 
    Try
 
          returnValue = DateValue(Microsoft.VisualBasic.Mid$(wDat, 7, 2) & "/" & Microsoft.VisualBasic.Mid$(wDat, 5, 2) & "/" & Microsoft.VisualBasic.Mid$(wDat, 1, 4))
 
     Catch ex as exception
         returnvalue =  DatDateZero
     Finally
        return returnValue
    End Try
 
    End Function

Et les mid c'est moche... utilise substring :

Code:

wDat.substring(7,2)

15/04/2015, 16h25
Sehnsucht

Doit y avoir moyen de s'en sortir avec un appel à Date.TryParse (ou TryParseExact) et un If :)
15/04/2015, 16h40
ranzoken

si tu veut du code qui marche et que personne n'ira jamais regarder, il y a des logiciels qui peuvent t'aider

mais il tu veut que ton bout de code soit propre tu sera obligé de mettre les mains dans le cambouis

et dernière précision le on error n'est pas utilisé en .net (en tout cas j’espère) utilise un try catch