[WD] Convertir un timestamp en Date sous Windev

windev

Aujourd’hui j’ai joué un peu avec Windev qui est un AGL (Assistant de Gestion Logiciel) français qui permet de développer assez rapidement des applications complètes.

Windev, développé par PCSoft, est assez atypique car il  utilise un langage de programmation en français, ce qui est assez perturbant au départ.

Pour mes tests j’ai du convertir une date au format unix timestamp vers un type date.

PROCEDURE TimeStampVersDateHeure(LOCAL nTimeStamp est un entier)
 
dhDateHeure est une DateHeure
nOffSet est un entier = DateVersEntier("19700101")
 
nEntierDate est un entier = PartieEntière(nTimeStamp/86400)
nEntierHeure est un entier = (nTimeStamp-(nEntierDate*86400))*100
 
dhDateHeure..PartieDate = EntierVersDate(nOffSet+nEntierDate)
dhDateHeure..PartieHeure = EntierVersHeure(nEntierHeure)
 
dhDateHeure = DateHeureUTCVersLocale(dhDateHeure)
 
RENVOYER dhDateHeure
 
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 
PROCEDURE DateHeureVersTimeStamp(LOCAL dhDateHeure est une DateHeure)
 
nTimeStamp est un entier
nOffSet est un entier = DateVersEntier("19700101")
 
dhDateHeure..Milliseconde = 0
dhDateHeure = DateHeureLocaleVersUTC(dhDateHeure)
 
nTimeStamp = (DateVersEntier(dhDateHeure..PartieDate)-nOffSet)*86400+HeureVersEntier(dhDateHeure..PartieHeure)/100
 
RENVOYER nTimeStamp

J’espère que çà  vous aidera car j’ai un peu miséré :p

One Response to [WD] Convertir un timestamp en Date sous Windev

  1. Nicolas says:

    Merci. C’est bien pratique c’est petites fonctions.

Leave a Reply

Your email address will not be published. Required fields are marked *