Timestamp
Résolu
Azerty9862
Messages postés
4
Date d'inscription
samedi 13 novembre 2004
Statut
Membre
Dernière intervention
23 janvier 2006
-
22 janv. 2006 à 20:17
PhilLu Messages postés 251 Date d'inscription lundi 9 novembre 2009 Statut Membre Dernière intervention 11 mai 2021 - 28 mars 2011 à 23:30
PhilLu Messages postés 251 Date d'inscription lundi 9 novembre 2009 Statut Membre Dernière intervention 11 mai 2021 - 28 mars 2011 à 23:30
A voir également:
- Delphi timestamp
- Timestamp delphi - Meilleures réponses
- Delphi encodetime - Meilleures réponses
- Delphi format - Conseils pratiques -Delphi
- Timestamp ✓ - Forum Visual Basic
- C# timestamp - Forum C# / .NET
- Timestamp php ✓ - Forum PHP
- Utilisation de TimeStamp - Forum Delphi / Pascal
13 réponses
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
22 janv. 2006 à 21:25
22 janv. 2006 à 21:25
salut,
plutot que d'utiliser un Ttimestamp que tu ne peut pas afficher directement utilises plutot un Tdatetime çà donne:
Syntaxe Delphi :
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
Description
La fonction EncodeTime renvoie une valeur de type TDateTime à partir des heure, minutes, secondes et millisecondes données.
Les valeurs admises vont de 0 à 23.
Les valeurs de minute et de seconde admises vont de 0 à 59.
Les valeurs de milliseconde admises vont de 0 à 999.
Si les valeurs indiquées sont en-dehors de ces limites, EncodeTime déclenche une exception EConvertError.
La valeur résultante est égale à un nombre compris entre 0 (inclusif)
et 1 (exclusif) qui indique la partie fractionnaire du jour en fonction
de l'heure indiquée ou (avec une valeur 1,0) minuit du jour suivant. La
valeur 0 correspond à minuit, 0,5 correspond à midi, 0,75 correspond à
18:00, et ainsi de suite.
procedure TForm1.Button3Click(Sender: TObject);
var apres:Tdatetime;
timestamp:Ttimestamp;
begin
apres:=encodetime( 0,1,30,0); //convertit 1mn30s en Tdatetime
label1.Caption:=timetostr(apres+now);// ajoute 1mn30s à l'heure actuelle et l'affiche
timestamp:=DateTimeToTimeStamp( apres+now); // pour l'exemple on la convertit en TTimeStamp
label2.Caption:=timetostr(now);// affiche l'heure actuelle
end;
@+
jlen
plutot que d'utiliser un Ttimestamp que tu ne peut pas afficher directement utilises plutot un Tdatetime çà donne:
Syntaxe Delphi :
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
Description
La fonction EncodeTime renvoie une valeur de type TDateTime à partir des heure, minutes, secondes et millisecondes données.
Les valeurs admises vont de 0 à 23.
Les valeurs de minute et de seconde admises vont de 0 à 59.
Les valeurs de milliseconde admises vont de 0 à 999.
Si les valeurs indiquées sont en-dehors de ces limites, EncodeTime déclenche une exception EConvertError.
La valeur résultante est égale à un nombre compris entre 0 (inclusif)
et 1 (exclusif) qui indique la partie fractionnaire du jour en fonction
de l'heure indiquée ou (avec une valeur 1,0) minuit du jour suivant. La
valeur 0 correspond à minuit, 0,5 correspond à midi, 0,75 correspond à
18:00, et ainsi de suite.
procedure TForm1.Button3Click(Sender: TObject);
var apres:Tdatetime;
timestamp:Ttimestamp;
begin
apres:=encodetime( 0,1,30,0); //convertit 1mn30s en Tdatetime
label1.Caption:=timetostr(apres+now);// ajoute 1mn30s à l'heure actuelle et l'affiche
timestamp:=DateTimeToTimeStamp( apres+now); // pour l'exemple on la convertit en TTimeStamp
label2.Caption:=timetostr(now);// affiche l'heure actuelle
end;
@+
jlen
