ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Fonctions pour manipuler TimeStamp   


L'auteur

Francis Faure
France France
Membre Actif (personne physique)
# 0000000001
enregistré le 11/10/2004

http://www.wanagain.net
56 ans
Faure Francis
de la société Design Or Decline
Fiche personnelle

Note des membres
pas de note

Contributions > 01 - PRG : Programmation > Temps - heures - Dates - Calendriers

Fonctions pour manipuler TimeStamp
# 0000000615
ajouté le 11/06/2008 13:10:57 et modifié le 11/06/2008
consulté 8985 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
Description
Le TimeStamp est le nombre de secondes écoulées depuis le "EPOCH" c'est a dire le 1/1/1970 a 00:00:00 Pour Convertir TimeStamp en DateTime ou l'inverse...
Code source :
*
* Manipulation de "TimeStamp"
*
* Le TimeStamp est le nombre de secondes écoulées depuis le "EPOCH" c'est a dire le 1/1/1970 a 00:00:00
* Pour Convertir TimeStamp en DateTime ou l'inverse :
*

* Exemple :
CLEAR
SET DATE FRENCH
SET CENTURY on
SET HOURS TO 24

? DateTime_to_TimeStamp()
? DateTime_to_TimeStamp({^1970/01/01 00:00:00})
? DateTime_to_TimeStamp({^2004/01/01 00:00:01})
? DateTime_to_TimeStamp({^2008/06/11 10:29:51})

? TimeStamp_to_DateTime()
? TimeStamp_to_DateTime(1072915201)
? TimeStamp_to_DateTime(1213180191)


#Define EPOCH {^1970/01/01 00:00:00}

*
* Retourne un DateTime (en heure GMT)
*
FUNCTION TimeStamp_to_DateTime(liTimeStamp as Integer)
  IF TYPE("liTimeStamp ")<>"N"
    liTimeStamp = 0
  endif
return (EPOCH + liTimeStamp)

*
* Retourne un TimeStamp
*
FUNCTION DateTime_to_TimeStamp(ltdateTime as DateTime)
  IF TYPE("ltdateTime")<>"T"
    ltdateTime=DATETIME()
  endif
return (ltdateTime - EPOCH)
Commentaires
le 11/06/2008, ybenam a écrit :
Bonjour Francis !
Deux petits mots à supprimer dans les deux fonctions ,pour que cela fonctionne avec VFP6.0:
-as integer
-as DateTime
et le résultat est parfait.
Amicalement !
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3