kann mir jemand sagen, wie ich bei ActiveX einem Property einen TimeValue-Wert übergeben kann ?
Code: Alles auswählen
objRoute.Waypoints.Item(1).PreferredDeparture = TimeValue("8:00:00 AM")
Moderator: Moderatoren
Code: Alles auswählen
objRoute.Waypoints.Item(1).PreferredDeparture = TimeValue("8:00:00 AM")
Das war im März 2006...Andreas Herdt hat geschrieben:A new method will be introduced
AutomationObject:treatDateAsString( .T. | .F. ) // default .F.
If .T. is set then the date will be returned as character string
in the following syntax:
"YYYYMMDDHHMMSS"
Code: Alles auswählen
#include "activex.ch"
sDateTime:=dtos(date())+time()
objRoute:Waypoints:Item(1):treatDateAsString(.T.):setProperty("PreferredDeparture",
VTType():new( sDateTime, VT_DATE))
Code: Alles auswählen
* cMyDate ist ein Datum
* cMyTime ist eine Zeit in der Form HH:MM
oMap:activeRoute:DriverProfile:StartTime := Dtos(cMyDate)+Strtran(cMyTime+":00",":","")