cs_cricri_forever
Messages postés49Date d'inscriptionmercredi 28 septembre 2005StatutMembreDernière intervention31 mars 2006
-
7 mars 2006 à 14:01
cs_Delphiprog -
8 mars 2006 à 18:06
Bonjour,
J'ai 3edit (eDebut, eFin, eDif) , 1button depart, 1button fin
Voila j'aimerai savoir comment je pourrai faire pour que quand je clique sur le button depart il m'affiche le temps actuel dans eDebut et quand je clique sur le button fin il m'affiche le temps actuel dans eFin et la difference dans eDif (le temps HH:MM:SS)
Si quelqu'un pourrait me venir en aide Je debute debute
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 7 mars 2006 à 16:15
c'est parcequ'il compte les milisecondes si tu veux une soustraction exacte il faut utiliser d'autres fonctions de l'unité DateUtils :
function YearsBetween(const ANow, AThen: TDateTime): Integer; // Calcule le nobre d' Années entre deux dates
function MonthsBetween(const ANow, AThen: TDateTime): Integer; // Calcule le nobre de Mois entre deux dates
function WeeksBetween(const ANow, AThen: TDateTime): Integer; // Calcule le nobre de Semaines entre deux dates
function DaysBetween(const ANow, AThen: TDateTime): Integer; // Calcule le nobre de Jours entre deux dates
function HoursBetween(const ANow, AThen: TDateTime): Int64; // Calcule le nobre de Heures entre deux dates
function MinutesBetween(const ANow, AThen: TDateTime): Int64; // Calcule le nobre de Minutes entre deux dates
function SecondsBetween(const ANow, AThen: TDateTime): Int64; // Calcule le nobre de Secondes entre deux dates
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64; // Calcule le nobre de Milisecondes entre deux dates
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 7 mars 2006 à 16:00
Salut,
La même en couleur
procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin debut:= now ; // on récupère la date et l'heure à l'instant
DateTimeToString(str,'dddd d mmmm yyyy:hh-mm-ss',debut); // on la convertie en String
edit1.Text:=str // et on l'affiche
end ;
procedure TForm1.Button2Click(Sender: TObject);
var str:string;
terme,deltaT:Tdatetime;
begin terme: =now; // on récupère la date et l'heure à l'instant
DateTimeToString(str,'dddd d mmmm yyyy:hh-mm-ss',terme); // on la convertie en String
edit2.text:=str; // et on l'affiche
deltaT:=terme-debut; // on fait la soustraction
DateTimeToString(str,'hh-mm-ss',deltat); // on la convertie en String
edit3.text:=str; // et on l'affiche
end;
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 7 mars 2006 à 16:10
dans le format que j'ai mis je n'ai pas pris en comptes les
millisecondes il n'affiche donc que les secondes entières pour afficher
en plus le millisecondes fais
DateTimeToString(str,'hh-mm-ss.mm',deltat); // on la convertie en String
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 8 mars 2006 à 00:40
Euh de quoi tu parles ?
Cest quoi PVInfo.dpk ?
Cest le paquet du composant que tu as créé ?
A parement il te manque un fichier.
Donne un peut plus d'informations.
cs_cricri_forever
Messages postés49Date d'inscriptionmercredi 28 septembre 2005StatutMembreDernière intervention31 mars 2006 8 mars 2006 à 00:50
j'ai essayé de créer le composant puis je clique sur compiler et quand je veux excecuter il me marque cet erreur! et en debogage il me met une erreur a vclactnband donc je ne c pas d'ou sa vient ou est ce que j'ai fait une fausse manipulation ? pour dire je suis un peu perdu la
requires
rtl,
vcl,
designide,
vclactnband, vclx;
contains
VInfoReg in 'VInfoReg.pas',
dfsAbout in 'DFSAbout.pas',
VersInfo in 'VersInfo.pas',
Unit1 in '..\Cours Informatique\COMPOSANT\Unit1.pas';