tdFieldByNameAsDateTime

Aufbau

tdFieldByNameAsDateTime(iDataSet, sFieldName)

Typ

Funktion

Beschreibung

Diese Funktion ruft den durch sFieldName angegebenen Feldwert als Datums-/Zeitangabe für den ausgewählten Datensatz ab – gilt nur für datums- und zeitbasierte Felder. Hinweis: Der zurückgegebene Wert ist tatsächlich ein Float-Wert – genau wie der Wert, der von einem Delphi-Datensatz mit FieldbyName('MyField').AsDateTime zurückgegeben würde.

Parameter: 2

iDataSet=Nummer des Datensatzes, muss zwischen 1 und 10 liegen. IndySoft stellt 10 Datensätze bereit, auf die über benutzerdefinierte Skriptfunktionen vom Typ „td*“ zugegriffen werden kann.

sFieldName=Name des abzurufenden Feldes.

Beispiel

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('Unternehmen: ' & sCompanyName & Chr(13) &

'Letztes in Betrieb genommenes Messgerät am: ' & DateToStr(fMaxDate))

tdNext(1)

End While

End If |