La date
Fermé
salmainf
Messages postés
6
Date d'inscription
lundi 11 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2013
-
Modifié par irongege le 20/07/2013 à 17:12
salmainf Messages postés 6 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 31 juillet 2013 - 24 juil. 2013 à 20:49
salmainf Messages postés 6 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 31 juillet 2013 - 24 juil. 2013 à 20:49
A voir également:
- La date
- Iphone 14 date de sortie - Guide
- Whatsapp la date est incorrecte ✓ - Forum Mobile
- Publipostage date en anglais ✓ - Forum Excel
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum Graphisme
- Vba date du jour - Forum Excel
2 réponses
Comme il est difficile de donner un avis sur ton code peu lisible et mal conçu, mais une chose est certaine, la manipulation des variables de localisation et de formatage monétaire et horaire sont accessibles via des fonctions et procedures prédefinies, meme avec un traitement par programmation impérative ça ne necessite pas tant d'effort.
L'attention doit respecter les formats définies dans les options regionales et linguistiques du systeme accessibles via le panneau de conguration et ainsi necessite un traitement spécifique pour les machines hôtes si on pense deployer son programme.
A titre d'exemple pour le format date courte : JJ/MM/AAAA le programme ci-dessous affiche le nom du jour de la semaine.
-----------------------
L'attention doit respecter les formats définies dans les options regionales et linguistiques du systeme accessibles via le panneau de conguration et ainsi necessite un traitement spécifique pour les machines hôtes si on pense deployer son programme.
A titre d'exemple pour le format date courte : JJ/MM/AAAA le programme ci-dessous affiche le nom du jour de la semaine.
-----------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender:TObject);
var Date_Fromat_Regional : TDateTime;
Nom_Du_Jour : String;
begin
Date_Fromat_Regional := StrTodate(Edit1.Text);
{ Format de date DD/MM/YYYY }
case DayOfWeek(Date_Fromat_Regional) of
1 : Nom_Du_Jour := 'ÇáÃÎÏ'; //Dimanche
2 : Nom_Du_Jour := 'ÇáÇËäíä'; //Lundi
3 : Nom_Du_Jour := 'ÇáËáÇËÇÁ'; //Mardi
4 : Nom_Du_Jour := 'ÇáÃÑÈÚÇÁ'; //Mercredi
5 : Nom_Du_Jour := 'ÇáÎãíÓ'; //Jeudi
6 : Nom_Du_Jour := 'ÇáÍãÚÉ'; //Vendredi
7 : Nom_Du_Jour := 'ÇáÓÈÊ'; //Samedi
end;
ShowMessage(Nom_Du_Jour);
end;
end.
salmainf
Messages postés
6
Date d'inscription
lundi 11 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2013
24 juil. 2013 à 20:49
24 juil. 2013 à 20:49
Bonjours,
Merci beaucoup pour votre aide Monsieur c'est tros gentil,
Cordialement;
Merci beaucoup pour votre aide Monsieur c'est tros gentil,
Cordialement;