quarta-feira, 10 de dezembro de 2008

Conversão de Tipos - Na Marra!

Convertendo uma string para integer em VB (Acredite, isso é um exemplo real!)

Dim numeroParcelas As Integer

Select Case codInstallmentsComboBox.Text
Case "1"
numeroParcelas = 1
Case "2"
numeroParcelas = 2
Case "3"
numeroParcelas = 3
Case "4"
numeroParcelas = 4
Case "5"
numeroParcelas = 5
Case "6"
numeroParcelas = 6
End Select

Um comentário:

Anônimo disse...

Poxa vida, (ao programador que fez este código) isso não se faz !!!
Todos sabem que não pode faltar a opção 'Case Else' !!

Firefox