format y operaciones matematicas - Versión para impresión

Código:

' Gambas class file

Public iNumRegCatalogo As Integer



Public Sub Form_Open()



  Dim archivo As CsvFile

  Dim iregistro As Integer

  Dim cRegistrosCatalogo As New Collection

 

  'abrir archivo CSV

  archivo = New CsvFile(Application.Path & "/catalogo.csv")

 

  'meter contenido a un collection

  Do Until archivo.Eof

    cRegistrosCatalogo[archivo.Line] = archivo.Read()

    Inc iNumRegCatalogo    

  Loop

 

  ' cerrar archivo

  archivo.Close()

 

  ' agregar columnas al tableview

  TableView1.AddColumn("Descripcion", 500)

  TableView1.AddColumn("Precio", 100)

    

  'agregar un renglón al tabeview para poder introducir datos

  Inc TableView1.Rows.Count



' meter el contenido del collection al tableview

  For iregistro = 2 To iNumRegCatalogo

    

    TableView1[iregistro - 2, 0].Text = cRegistrosCatalogo[iregistro]["descripción"]

    

' la columna del precio, tienen que ir formateada con signo de pesos y alineada a la derecha

    TableView1[iregistro - 2, 1].Text = Format(cRegistrosCatalogo[iregistro]["precio distribuidor sin IVA"], GB.Currency)

    TableView1[iregistro - 2, 1].Alignment = 2

    

' siguiente registro

    Inc TableView1.Rows.Count

  Next



End





Public Sub btnSuma_Click()

 

' calcular la suma de todos los registros del tableview



  Dim iregistro As Integer

  Dim fsuma As Float

  Dim simporte As String

 

  fsuma = 0

  For iregistro = 2 To iNumRegCatalogo

    

    ' sumamos uno a uno cada registro  



    fsuma = fsuma + CFloat(TableView1[iregistro, 1].Text)  



  Next

 

' mostramos la suma

  txtSuma.Text = fsuma



End

Código:

Private Function fn_SumaElementos() As Float

Dim cantidadARr As New String[] 'este seria un ejemplo de un arreglo de cantidades monetarias



'lleno el arreglo con las cantidades

cantidadARr.Add("$1 077.59")

cantidadARr.Add("$ 1 250")





Dim item As String 'me permitira obtener el elemento en la iteracion del for each

Dim suma As Float = 0.0 'suma de elementos o cantidades monetarias .



'recorro el arreglo de las cantidades monetarias con un for each .

 

For Each item In cantidadARr

  item = Replace(Replace(item, "$", ""), " ", "") 'reemplazo los simbolos y espacios que tienen cada elemento

  suma += CFloat(Trim(item)) 'convierto el string en float y a la misma vez sumo cada elemento

Next

Return suma 'salido del for each y obtengo el resultado de la suma de cada elemento ,o suma total de elementos

End