Dans le cadre d'un projet de rétro engineering, je dois traduire le code VBA sous forme de règles des gestion.
Le but étant de pouvoir redévelopper l'outil dans un autre langage.
Sprd0 = vPx(K, 6)
If vIndex(K, 7) = "ML" Then
Sprd1 = vIndex(K, 3)
sContrib = vIndex(K, 7)
ElseIf vIndex(K, 7) = "Vista" Then
If vSource(K, 1) = "Spread" And vSource(K, 2) = "Fixe" Then
sContrib = vSource(K, 2)
Else
Sprd1 = vIndex(K, 3)
sContrib = vIndex(K, 7)
End If
ElseIf vSource(K, 1) = "Spread" And vSource(K, 2) = "Fixe" Or vSource(K, 2) = "" Then
If vIndex(K, 3) = "" Then
Sprd1 = Sprd0
Else
Sprd1 = vIndex(K, 3)
End If
sContrib = vSource(K, 2)
Else
Sprd1 = Sprd0
End If
Comment traduiriez vous cela ? Avec un schéma ? Un tableau ? En français ?
En traduisant d'où provient la source des variables j'arrive à quelquechose comme cela :
Sprd0 = BondPx.SpGovt
Si Index.Source = "ML" Alors
Sprd1 = Index.Spread
sContrib = Index.Source
Si Index.Source = "Vista" Alors
Si Source.type = "Spread" Et Source.Contrib = "Fixe" Then
sContrib = vSource(K, 2)
Sinon
Sprd1 = Index.Spread
sContrib = Index.Source
Si Source.type = "Spread" Et Source.Contrib = "Fixe" Ou Source.Contrib = "" Alors
Si Index.Spread = "" Alors
Sprd1 = Sprd0
Sinon
Sprd1 = Index.Spread
End If
sContrib = Source.Contrib
Sinon
Sprd1 = Sprd0
Merci pour votre aide.
Partager