Club Builder

[leopack]

Hola, estoy rescatando los valores desde un archivo excel y guardandolos en una estructura, tengo el siguiente problema, uno de los valores de la planilla excel tiene el formato de hora,cuando lo rescato en mi programa se lo asigno a una variable Variant, de la siguiente forma:

Variant valor;

celda=xlSheet.Exec(PropertyGet("Range") << "A5");
valor=celda.Exec(PropertyGet("Value"));

en el documento excel, el registro tiene el valor 8:00, pero llega a la variable valor como un 0,3333 porque al parecer lo convierte.
Lo que necesito es poder leer el valor y dejarlo en un AnsiString que tenga la cadena: "8:00".
PORFAVOR AYUDENME!!!!!... Lo necesito urgente... Muchas gracias, siempre me responden y me ha servido mucho. Saludos, Leo.

[_Leo]

Prueba declarando la variable 'valor' como TDateTime:

    TDateTime valor;

    celda = xlSheet.Exec(PropertyGet("Range") << "A5");
    valor = static_cast<TDateTime>( celda.Exec(PropertyGet("Value")) );

    // Y lo mostramos con el formato estandar
    ShowMessage( valor );
    // o dandole el formato que queramos
    ShowMessage( valor.FormatString("hh:nn") );

y si por lo que sea quieres hacerlo usando tu variable de tipo Variant:

    Variant valor;

    celda = xlSheet.Exec(PropertyGet("Range") << "A5");
    valor = celda.Exec(PropertyGet("Value"));

    // Y lo mostramos diciendole que contiene fecha/hora
    ShowMessage( valor.AsType(varDate) );

Espero que te sirva.


PD: Que feo me suenan palabras como "urgente" en un foro "gratuito"

[leopack]

Muchas Gracias por la respuesta!!! Creo que me va a ser de mucha utilidad.