Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 10-03-2009
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Poder: 23
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Pon un ejemplo de la línea, porque no entiendo bien cual es el formato de cada una.
Si por ejemplo fuera así:
Código:
01/01/2009,123.98
02/01/2009,21.32
...
puedes hacerlo de la siguiente manera:
- Lees todo dentro de un TStringList
(SList.LoadFromFile(archivo))
- Te metes dentro de un bucle leyendo cada linea
(for i := 0 to SList.Lines.Count -1)
- De cada línea lees las partes
(
fecha := StringToDateTime(copy(SList.Lines[i],1,10))
dato := StrToInt(copy(SList.Lines[i],12,10 {longitud del campo}))
)
- Con un if verificas si la fecha está dentro del rango a promediar
(if ((fecha>=DesdeFecha) and (fecha<=HastaFecha)) then)

Código Delphi [-]
SList := TStringList.Create;
try
   //Cargo el archivo
   SList.LoadFromFile(archivo);
   //Empiezo el bucle
   for i := 0 to SList.Lines.Count -1 do
   begin
      //Extraigo informacion
      fecha := StringToDateTime(copy(SList.Lines[i],1,10))
      dato := StrToInt(copy(SList.Lines[i],12,10 {longitud del campo}))
      //Verifico rango
      if ((fecha>=DesdeFecha) and (fecha<=HastaFecha)) then
      begin
         //Si está en el rango acumulo
         Inc(cantidad);
         Suma := Suma + Dato;
      end;
   end;
   //Finalmente calculo el promedio
   Promedio := Suma / cantidad;
finally
   SList.Free;
end;
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Sacar el promedio o media en sql ? juangabriel1786 SQL 4 04-12-2008 23:33:28
¿Como capturar el promedio de un tdbchart? ANXO Conexión con bases de datos 3 28-11-2005 15:41:14
Recuperar Promedio de un TdbChart en un dbedit ANXO Gráficos 0 20-11-2005 13:05:35
Como hago un promedio de una columna? ANXO Conexión con bases de datos 10 12-10-2005 01:56:08
Promedio de campo calculado con una sub-consulta ContraVeneno SQL 8 06-10-2005 16:38:06


La franja horaria es GMT +2. Ahora son las 02:07:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi