Microsoft date format

[Gwenvael Le Seach]

I am currently using the demo version of Flexpro to analyse large sets of data from a fast recorder. It seems to be very powerfull and meet my expectations.
I still have a problem of date format. The fast recorder generate date in a “Microsoft” format, in days since the 1st of january 1900 (today is the 39202nd day. How can I use Flexpro to change that?

Thanks

[Gwenvael Le Seach]

I am currently using the demo version of Flexpro to analyse large sets of data from a fast recorder. It seems to be very powerfull and meet my expectations.
I still have a problem of date format. The fast recorder generate date in a “Microsoft” format, in days since the 1st of january 1900 (today is the 39202nd day. How can I use Flexpro to change that?

Thanks

[Bernhard Kantz]

There is no special function which converts your format into the calendar time format.
In FlexPro the calendar time value specifies the amount of time passed in seconds since January 1, 1970 at 00:00:00 UTC.
But you can create a VBA macro which converts the integer value into the calendar time format. It’s also possible to implement a custom import filter.

Use the Date data type.
Example:

    Dim nDate As Long
    Dim dtmDate As Date
    
    nDate = 39203
    dtmDate = nDate
    
    Dim oDataset As DataSet
    
    ThisDatabase.RootFolder.Add "Test", fpObjectTypeDataSet
    Set oDataset = ThisDatabase.RootFolder.Object("Test")
    With oDataset
        .DataStructure = fpDataStructureScalar
        .DataType(fpDataComponentY) = fpDataTypeCalendarTime
        .Value(fpDataComponentY) = dtmDate
    End With

See also
Automating Tasks
Automating Using FlexPro Visual Basic
Examples
A Custom Import Filter

support@weisang.com

[Author]

Posts