7 respuestas en este tema

[Fenareth]

Buenas tardes a todos chicos y chicas...

Vengo aquí con un ligerísimo detallín que no sé cómo resolver sobre una exportación de datos a excel...

Para generar la exportación utilizo una clase especialmente hecha para ello por el buen Egostar pero que ahora me veo en la necesidad de modificar para hacer unos cambiecitos mínimos de formato...

Este es parte del código donde valida el tipo de campo:

delphi

case Data_Type of
....
...
...
...   
    ftTimeStamp,ftDateTime :
    begin
      FXLRange.NumberFormat := '@';
      FXLRange.HorizontalAlignment := Alineacion;
      if Field_Value = null then
         Valor := ''
      else
         Valor := FormatDateTime(TDateTimeField(xlDataSet.Fields[Cell_Col-1]).DisplayFormat, Field_Value));  //Aquí da formato al valor del campo
    end;

El detalle con ésto es que el usuario que general el reporte quiere ver en las celdas la fecha con formato de fecha y no de texto que es como se genera... Intenté con ésto:

delphi

  Valor := StrToDate(FormatDateTime(TDateTimeField(xlDataSet.Fields[Cell_Col-1]).DisplayFormat, Field_Value));

Pero ahora me manda el valor de la celda en formato de fecha pero numérico (40911, 40912, 40913... etc)

Alguna idea que pueda utilizar para darle formato de dd/mm/yyyy pero dejando el formato del valor de la celda como fecha y no como texto ??? 

Saludox y gracias por su ayuda

[TiammatMX]

Según recuerdo, en Excel puedes teclear directamente (por ejemplo, 08/03/2012) o hacer la transformación desde el Ctrl+F1 a la(s) celda(s) involucrada(s).

Tomando la primera opción, yo le haría FormatDateTime('dd/mm/yyyy',dLaFecha) al dato correspondiente. Ahora que si prefieres la segunda opción, el usuario tendría el mando y como que no es buena idea.

[Héctor Randolph]

En donde dice FormatNumber:='@' coloca esto:

delphi

FormatNumber:='dd/mm/yyyy'.

y en Valor haz algo como esto:

delphi

Valor:=FormatToStr(Field_Value)

Saludos

[egostar]

Hola, tan cerca y tan lejos

delphi

case Data_Type of
....
...
...
...   
    ftTimeStamp,ftDateTime :
    begin
      FXLRange.NumberFormat := '[$-409]dd-mm-yyyy;@';
      FXLRange.HorizontalAlignment := Alineacion;
      if Field_Value = null then
         Valor := 0
      else
         Valor := Field_Value; 
    end;

Saludos

PD; Se me adelantó amigo Héctor

[Sergio]

Excel espera recibir las fechas por COM en formato americano si se lo envias como texto, ya veo que te han dado codigo para enviarlo como un valor numerico modificando el formato del rango antes, si lo quieres enviar en modo texto y con formato del rango "general", yo lo hago así:

delphi

var 
  MyDate: TDate;
  AmericanFormat: TFormatSettings;
begin
  //Formato americano:
  GetLocaleFormatSettings( 0, AmericanFormat);
  AmericanFormat.ThousandSeparator:= ',';
  AmericanFormat.DecimalSeparator:=  '.';
  AmericanFormat.ShortDateFormat:=   'mm/dd/yyyy';
  //Envio fecha a un rango como texto:
  FXLRange.Value:= FormatDateTime('ddddd', MyDate, AmericanFormat);
end;

Lo del formato americano lo dejo creado en mi app y de esa forma el envio de fechas es solo una linea.

Si quieres mas trucos sobre el uso de excel u openoffice desde delphi, echale un vistazo a esta unidad:

http://user.services...=219641#p219641

[Fenareth]

Muchas gracias a todos por su ayuda... al final lo hice casi como me dijo Héctor Randolph con dos pequeños cambiecitos...

delphi

ftTimeStamp,ftDateTime :
    begin
      FXLRange.NumberFormat := 'dd/mm/aaaa';  // aaaa en vez de yyyy
      FXLRange.HorizontalAlignment := Alineacion;
      if Field_Value = null then
         Valor := ''
      else
         Valor := DateToStr(Field_Value);  // DateToStr en vez de FormatToStr
    end;

Esos cambios nos me generarán problemas más adelante ???... no sé, digamos, por las versiones de excel o el idioma del SO ??? 

Saludox !

[egostar]

Esos cambios nos me generarán problemas más adelante ???... no sé, digamos, por las versiones de excel o el idioma del SO ??? 

Nada más no lo metas a la Interfaz 6 y no habrá problemas

Saludos

[Fenareth]

Esos cambios nos me generarán problemas más adelante ???... no sé, digamos, por las versiones de excel o el idioma del SO ??? 

Nada más no lo metas a la Interfaz 6 y no habrá problemas

Saludos

Oooooooppsssss !!!!!!!



Jajajajajajajaja no temas !!!!! 

 

Saludox !