Importação Campo DATA do Excel para Delphi

[Digito Sistemas]

Estou com um probleminha na importação de uma tabela no excel.

Ela contem um quadro de horário de funcionário.

Data	Ent. 1	Saí. 1	Ent. 2	Saí. 2
01/04/18 - dom	Folga	Folga	Folga	Folga
02/04/18 - seg	06:00*	11:00*	12:00*	14:20*
03/04/18 - ter	06:00*	11:00*	12:00*	14:20*
04/04/18 - qua	06:00*	10:41	12:00*	14:20*
05/04/18 - qui	06:00	11:03	12:01	14:21
06/04/18 - sex	06:00	11:00	12:00	14:20

 

Estou fazendo assim:

Dia     := StrToDate(Copy(vData,1,8));
                Entrada_m:= Planilha.Cells[WLinha,Coluna+1];
                  Saida_m  := Planilha.Cells[WLinha,Coluna+2];
                  Entrada_t:= Planilha.Cells[WLinha,Coluna+3];
                  Saida_t  := Planilha.Cells[WLinha,Coluna+4];

 

O Resultado das variáveis estão vindo assim:

Ex:

Entrada_m = '0,25' 

Saida_m = '0,500694444444444' 

Entrada_T = '0,46044'

Saida_T = '0,597916666666667'

 

Como  Resolver para me trazer as horas corretas?

 

Desde já agradeço.

 

[BigWings]

Multiplica por 24.

Ou joga num TTime.

[Digito Sistemas]

Valeu erra Isso mesmo.

 

Fiz alguma adaptações e deu certo.