« Windows Error codes | Home | QTEditableMovie Plugi… »

Tip of Day: ChartTime back to date object

We had today the question how to convert back from ChartDirector time to a Xojo date. To solve this, we got this example code for you:
Function ChartTimeToDate(ChartTime as Double) As date static diff as double = 0.0 if diff = 0.0 then dim d2 as Double = CDBaseChartMBS.chartTime(2015, 1, 1) dim da as new date(2015, 1, 1) dim ts as Double = da.TotalSeconds diff = ts - d2 end if dim d as new date d.TotalSeconds = diff + ChartTime Return d End Function
As you see we calculate the difference in base date from Date and ChartTime and later use difference to convert. The biggest plugin in space...
28 08 15 - 16:34