Discussion :

[samidz2014]

Salut,
je veux récupérer le nom du jour a partir d'un edit contenant une date donnée, par exemple le nom du jour du 01/02/2016 est lundi...
j'ai essayé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TPeincipale.Timer1Timer(Sender: TObject);
var
  myDate : TDateTime;
  day    : string;
begin
myDate := EncodeDate(StrToInt(edit1.text));
day := LongDayNames[DayOfWeek(myDate)];
label1.text :=day;
end;

mais ça marche pas...

merci d'avance pour votre aides...

[seabs]

Bonjour,

Dans un premier temps, il serait bien d'indiquer la version de Delphi utilisé. Il s'agit d'un pré-requis du forum.

Ceci étant dit, la fonction DayOfWeek(myDate) retourne un valeur comprise entre 1 et 7. Le 1 pour lundi, etc.

Il est donc nécessaire de créer un fonction pour obtenir le nom du jour. Tu as le choix :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function Jour(LaDate:TDateTime):string;
begin
 
case DayofWeek(LaDate) of
 1: Result:= 'Lundi';
 2: Result:= 'Mardi';
 3: Result:= 'Mercredi';
 4: Result:= 'Jeudi';
 5: Result:= 'Vendredi';
 6: Result:= 'Samedi';
 7: Result:= 'Dimanche';
end;
 
end;

ou tu regardes cette conversion qui présente plusieurs approche http://www.developpez.net/forums/d77...jours-semaine/

Bon courage

A+

[SergioMaster]

Dans un premier temps, il serait bien d'indiquer la version de Delphi utilisé. Il s'agit d'un pré-requis du forum.

C'est bien de le rappeler

Avec D7 comme avec D3 Label1.Text:=LongDayNames[DaysOfWeek(myDate)); fonctionne parfaitement

mais ça marche pas...

est loin d'être explicite! qu'est-ce qui ne fonctionne pas ? est-ce la compilation qui échoue ou la valeur retournée qui est incorrecte ?

[Andnotor]

EncodeDate attend trois paramètres, ça ne doit pas compiler. Utilise StrToDateTime.

[samidz2014]

salut, et désolé pour le retard,
j'utilise Delphi 7,

l'erreur déclanchés :
Not enough parameters (ligne n°6)

[SergioMaster]

c'est donc AndNotOr qui a bien vu le hic, chapeau bas et

[samidz2014]

salut,

EncodeDate attend trois paramètres, ça ne doit pas compiler. Utilise StrToDateTime.

merci, c'est la solution.
merci a vous tous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TPeincipale.Timer1Timer(Sender: TObject);
var
  myDate : TDateTime;
  day    : string;
begin
myDate := StrToDateTime(RzLEDDisplay2.Caption);
day := LongDayNames[DayOfWeek(myDate)];
label1.Caption :=day;
end;

[e-ric]

Salut

de mémoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TPeincipale.Timer1Timer(Sender: TObject);
var
  myDate : TDateTime;
begin
  myDate := EncodeDate(StrToInt(edit1.text));
  label1.text := formatDateTime('dddd', myDate);
end;

devrait aussi fonctionner, formatDateTime s'appuie sur les paramètres régionaux.

Cdlt