Discussion :

[kazuzu]

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.

[mactwist69]

Un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

wDat.substring(7,2)

[Sehnsucht]

Doit y avoir moyen de s'en sortir avec un appel à Date.TryParse (ou TryParseExact) et un If

[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