Ver Mensaje Individual
  #6  
Antiguo 11-03-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Hugo.

De acuerdo a lo que pude entender, te hice un ejemplo muy reducido considerando sólamente el aspecto fecha/resultado. En el mismo supongo el formato de la fecha almacenada como 'dd/mm/yyyy', ej: '01/01/2012'. Esto último es esencial al momento de elegir como extraer el día, mes o año con la función Copy.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: Double;
  AXLabel: string;
begin
  with DataSet do
  begin
    First;
    while not Eof do
    begin
      x:= StrToFloat(Copy(FieldByName('FECHA').AsString, 4, 2)+  // mes (--/mm/----)
                     Copy(FieldByName('FECHA').AsString,1,2));   // día (dd/--/----)
      y:= FieldByName('RESULTADO').AsFloat;
      if FieldByName('ANULADO').AsInteger = 1 then
        Series2.AddBubble(x, y, 1, Copy(FieldByName('FECHA').AsString,1,5), clRed)  // se muestra: dd/mm
      else
        Series1.AddBubble(x, y, 1, Copy(FieldByName('FECHA').AsString,1,5), clLime); // se muestra: dd/mm
      Next;
    end;
  end;
end;
El quid para ordenar las fechas almacenadas como cadena, es invertirla como hago arriba en la obtención del valor de x. De otro modo y ejemplificando, la fecha '31/03/2000' es mayor que '01/01/2144'... Espero te sea de ayuda.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 11-03-2012 a las 22:16:30. Razón: corregir comentario
Responder Con Cita