Importar hora no formato hh:mm do excel para CDS?

Delphi

17/05/2009

Pessoal, alguém sabe me dizer como jogar um campo horas de uma tabela excel com formato de [hh]:mm no dbgrid?

Formatei a planilha do excel para formato de [hh]:mm para jogar valores acima de 23:59, pois trabalho com horas acima das 24:00.

Bom na celula do excel formatei um horario que é 39:26, mais quando jogo no dbgrid fica assim [b:3f0279accc]01/01/1900 15:26:00[/b:3f0279accc]

E não consegui formatar no displayformat do componente para ficar como 39:26.

Estou usando componentes do ADO.

Estou tentando jogar os valores assim num CDS
 ADOTable1.First;
     while not ADOTable1.Eof do
     begin

        if (ADOTable1AdNot.asString <> ´´) then
        begin
          ClientDataSet1.Insert;
          ClientDataSet1NOME.AsString := ADOTable1ADMINISTRATIVO.String  ;               
          ClientDataSet1VARIAVEIS.Value := ADOTable1AdNot.Value;
          ClientDataSet1.Post;
        end;
ADOTable1.Next;
     end;
     ClientDataSet1.IndexFieldNames := ´NOME´;


Meu problema esta aqui
[b:3f0279accc]ClientDataSet1VARIAVEIS.Value := ADOTable1AdNot.Value;[/b:3f0279accc]
Se eu não formato o displayformat ele me traz desta forma
[color=red:3f0279accc][b:3f0279accc]01/01/1900 15:26:00[/b:3f0279accc][/color:3f0279accc]

Se eu formato o displayformat assim hh:mm, o resultado fica assim:
[color=red:3f0279accc][b:3f0279accc]15:26[/b:3f0279accc][/color:3f0279accc]

Mas preciso que fique assim:
[b:3f0279accc]39:26[/b:3f0279accc]

Acho que o problema nem seja no componente, e sim no excel, mais não sei como formatar esta droga de hora para ficar como preciso.


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Andepunk

Andepunk

17/05/2009

o correto neste caso é criar um capo do tipo varchar(4) e utilizar o formatmasktext(). Neste caso nao fica no formato correto pois ele aceita hora ate 23:59 acima disso é formato invalido;


GOSTEI 0
Andepunk

Andepunk

17/05/2009

utilize o formatmasktext(´hh:mm´, texto) desta forma.


GOSTEI 0
POSTAR