date et heureRésolu

Question

bonjour
Je voudrait savoir comment afficher dans un label la date et l'heure en temps r&#233;el.
merci

jlen100 · Accepted Answer

salut,

mets un timer sur ta forme et dans l'&#233;v&#232;nement ontimer

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  label1.Caption :=DateTimeToStr(Now);

end;



@+

jlen

guigui265 · Answer

Merci,ca marche du tonerre!!

jlen100 · Answer

precision si tu veux un format d'affichage :

lundi 16 janvier 2006  15-30-20

mets:

procedure TForm1.Timer1Timer(Sender: TObject);

var str:string;

begin

   DateTimeToString(str,'dddd mmmm yyyy:hh-mm-ss',now);

  label1.Caption := str;

end;

s

@+

jlen

guigui265 · Answer

merci,c pa mal du tou,m&#233; dan ce cas,entre dddd et mmmm y manque kelke chose,car ca me donne lundi janvier 2006....

jlen100 · Answer

mille excuses j'en ai oubli&#233; un morceau:

 procedure TForm1.Timer1Timer(Sender: TObject);

 var str:string;

 begin

    DateTimeToString(str,'dddd d  mmmm yyyy:hh-mm-ss',now);

   label1.Caption := str;

 end;

guigui265 · Answer

merci,ca marche mieux
et au passage, tu saurais comment, en r&#233;cup&#233;rant des  dates dans 2 datetimepicker, avec un bouton calculer et un label d'affichage, afficher dan ce label le nombre de jours entre l&#233; deux dates  saisies et ce sans compter les week end?

jlen100 · Answer

il n'existe pas de fonction qui te donne cela directement

utilises  la fonction daysbetween qui te donne le nombre de jours entre 2 dates

function DaysBetween(const ANow, AThen: TDateTime): Integer;

puis la fonction WeeksBetween qui te donnes le nombre de semaine entiere entre 2 dates

function WeeksBetween(const ANow, AThen: TDateTime): Integer;

et enfin la fonction  DayOfWeek qui te donne le jour de la semaine 

function DayOfWeek(Date: TDateTime): Integer;

&#224; partir de cela tu peux calculer le nombre de samedi et de dimanche compris entre les 2 dates

@+

jlen

guigui265 · Answer

ok,mais avec ca,je n'arrive pas a compter le nombre de jours entre ces deux dates et a retirer les week end.
A la rigueur, je parvient juste a compter TOUT les jours entre ces deux dates.

guigui265 · Answer

et comment faire pour affecter la date d'aujourdui au datetimepicker sur le formcreate?

jlen100 · Answer

en principe en connaissant le premier jour et le nombre de semaine tu
devrait pouvoir calculer le nombre de jours moins les WE . Pour
l'instant je n'ai pas le temps de le faire mais j'y regarde ce soir.

pour affecter la date du jour &#224; datetimerpicker dans form cr&#233;ate ne
principe il le fait par d&#233;faut mais on peut le forcer en faisant :

procedure TForm1.FormCreate(Sender: TObject);

begin

datetimepicker1.Date:=now;

end;

si tu fais datetimepicker1.Date:=now-1; tu as la date de la veille et ainsi de suite



@+

jlen

guigui265 · Answer

ok merci
et pour affecter la date d'ojourdui,javais trouver en cherchant un peu, mais je d&#233;bute en delphi,je ne connais pas toutes les fonctions et tout les petits trucs, mais ca va venir !!!

jlen100 · Answer

c'est normal de gal&#233;rer un peu au d&#233;but on a tous d&#233;buter un  jour
mais vas voir dans l'aide DELPHI aux routines de  gestion date et
heure

@+

jlen

f0xi · Answer

a j'oubliais aussi : IncAMonth,procédure Incrémente les données de date d'un mois. IncDay,fonction Renvoie une date décalée d'un certain nombre de jours. IncHour,fonction Renvoie une valeur date/heure décalée d'un certain nombre d'heures. IncMilliSecond,fonction Renvoie une valeur date/heure décalée d'un certain nombre de millisecondes. IncMinute,fonction Renvoie une valeur date/heure décalée d'un certain nombre de minutes. IncMonth,fonction Renvoie une date décalée d'un certain nombre de mois. IncSecond,fonction Renvoie une valeur date/heure décalée d'un certain nombre de secondes. toujours utile de le savoir!

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

cs_mimichette · Answer

merci a tous,est ce que je peut ne pas afficher le contenu de datetimepicker jusqu'a ce que je clique dessu en lui ecrivant quelque chose sur sa propriété  onkeypress ou onclick par exemple?

Date et heure

14 réponses

Votre réponse