Concatenar usando laço de repetição for

[Leandro_Maia]

è possivel fazer esse tipo de concatenação usando o for.

for iCount = 1 to 10
XPHIlum.Fonte.PH&iCount&HoraInicial = abs((Left(XPHIlum.Item(“Texto”&iCount).Value, 2)*60) +
Right(XPHIlum.Item(“Texto”&iCount).Value, 2))
next

[Fernando (Luiz Fernando Freire dos Reis)]

Lenadro, bom dia.

Sim, é possível. Tenta desta forma:

For iCount = 1 to 10

Execute “XPHIlum.Fonte.PH”&iCount&“HoraInicial = abs((Left(XPHIlum.Item(”“Texto”""&iCount&").Value, 2)*60) + Right(XPHIlum.Item("“Texto”""&iCount&").Value, 2))"

Next

[Leandro_Maia]

Ola, Fernando
Bom dia,

Quando mando ele executar me retorna a seguinte mensagem de erro

será que é necessario colocar aspas simples ?

[Fernando (Luiz Fernando Freire dos Reis)]

@Leandro_Maia, bom dia.

Cometi um equívoco neste script:

For iCount = 1 to 10

Execute “XPHIlum.Fonte.PH”&iCount&“HoraInicial = abs((Left(XPHIlum.Item(”“Texto”""&iCount&").Value, 2)*60) + Right(XPHIlum.Item("“Texto”""&iCount&").Value, 2))"

Next

Exatamente como comentou: as aspas. Elas estavam na posição incorreta. Segue o correto:

For iCount = 1 to 10

Execute “XPHIlum.Fonte.PH”&iCount&“HoraInicial = abs((Left(XPHIlum.Item(”“Texto”&iCount&""").Value, 2)*60) + Right(XPHIlum.Item("“Texto”&iCount&""").Value, 2))"

Next

Grato pela compreensão.

[Leandro_Maia]

Bom dia,
Luiz … Desculpa a demora eu entrei de ferias e não pude mais fazer os testes … hoje eu recomecei e lhe dou um feedback.