‘ Repasando codigo, aun suelo encontrar las eternas expresiones de formateo de cadenas
‘ heredadas del mas puro estilo 6.0, entre otras estoy hablando de mid, left, right
‘ y como no de format(a,»##,##») y un largo etc.
‘ Nada que objetar! solo recordaros que en .NET podemos salvar la gran mayoria de expresiones
‘ que requieren formato con el uso de los conocidos parametros de substitucion ‘{x}’
‘ :-))
Module Module1
‘
‘ formateando strings
Sub Main()
Dim Cadena As String = «Consumo en Kw : {0}, precio : {1}, total : {2}»
Dim Consumos = {10, 11, 21, 31, 41}
Dim Tarifa = Function(n)
Select Case n
Case Is > 40 : Return 4.6
Case Is > 30 : Return 6.3
Case Is > 20 : Return 8.2
Case Is > 10 : Return 10.5
Case Else : Return 12.4
End Select
End Function
For Each kw In Consumos
Console.WriteLine(String.Format(Cadena, kw.ToString, Tarifa(kw).ToString, (kw * Tarifa(kw)).ToString))
Next
Console.ReadLine()
End Sub
End Module