FlexPro
HistoryBase
Ingénierie
Formation
Téléchargements
Support FlexPro
Connaissance
Communauté
À propos de nous
Références
Emplois
Contact général
Liste des revendeurs
Support FlexPro
FR
DE
EN
Porte-plaquette
Produits et solutions
Support et téléchargements
Entreprise
Magazine
Contact
Langue
MyWeisang

Paramètres du compte.

Topic

Microsoft date format

Page d'accueil ' Communauté ' Généralités ' Microsoft date format

Voir les messages de 3 - 1 à 3 (sur un total de 3)
  • Auteur
    Messages
  • #34019
    Gwenvael Le Seach
    Participant

    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

    #34021
    Gwenvael Le Seach
    Participant

    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

    #34020
    Bernhard Kantz
    Participant

    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 [b]Date[/b] data type.
    Example:
    [code]
    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
    [/code]

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

    support@weisang.com

Voir les messages de 3 - 1 à 3 (sur un total de 3)
  • Vous devez être connecté pour répondre à ce sujet.