tdFieldByNameAsDateTime

Estrutura

tdFieldByNameAsDateTime(iDataSet, sFieldName)

Tipo

Função

Descrição

Esta função recupera o valor do campo indicado por sFieldName como data/hora para o conjunto de dados selecionado — aplicável apenas a campos baseados em data/hora. Nota: o valor devolvido é, na verdade, um valor de tipo float — tal como seria devolvido por um conjunto de dados do Delphi com FieldbyName('MyField').AsDateTime.

Parâmetros: 2

iDataSet = número do conjunto de dados; deve ser um número entre 1 e 10. A IndySoft disponibiliza 10 conjuntos de dados que podem ser acedidos através das funções de script personalizadas «td*».

sFieldName=nome do campo a recuperar.

Exemplo

if tdDoSQLRecords(1, 'SELECT COMPANY_NAME FROM COMPANY ORDER BY COMPANY_NAME') then

tdFirst(1)

while (tdEOF(1) = '0')

sCompanyName = tdFieldbyNameAsString(1, 'COMPANY_NAME')

iCount = 0

if tdDoSQLRecords(2, 'SELECT MAX(SERVICE_DATE) AS MAX_SERVICE_DATE FROM GAGES WHERE COMPANY = '' & sCompanyName & ''') then

fMaxDate = tdFieldbyNameAsDateTime(2, 'MAX_SERVICE_DATE')

End If

ShowMessage('Empresa: ' & sCompanyName & Chr(13) &

'Medidor mais recente colocado em serviço em: ' & DateToStr(fMaxDate))

tdNext(1)

End While

End If |