IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Flash Pascal Discussion :

Utilisation de l'unité Date [Flash Pascal]


Sujet :

Flash Pascal

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 130
    Billets dans le blog
    9
    Par défaut Utilisation de l'unité Date
    Bonjour !

    Voici un exemple de code Flash-Pascal, qui utilise les fonctions de l'unité Date.

    Le mode "auto refresh" de l'éditeur (dans la version non officielle postée dernièrement par Paul TOTH) est épatant. Le résultat à l'écran se modifie à mesure qu'on modifie le code, de sorte qu'on peut voir tout de suite si ce qu'on a écrit est bon ou pas.



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
     
    program DateDuJour;
     
    {$FRAME_WIDTH    320}
    {$FRAME_HEIGHT    32}
     
    uses Flash8, Date;
     
    var
      t:TextField;
      f:TextFormat;
      d:TDate;
     
    begin
      t:=TextField.Create(nil,'t',0,0,0,320,32);
      f:=TextFormat.Create('Tahoma',24);
      d:=TDate.Create;
     
      case d.getDay of
        0:t.text:='Dimanche';
        1:t.text:='Lundi';
        2:t.text:='Mardi';
        3:t.text:='Mercredi';
        4:t.text:='Jeudi';
        5:t.text:='Vendredi';
        6:t.text:='Samedi';
      end;
      t.text:=t.text+#32;
     
      t.text:=t.text+IntToStr(d.getDay);
      t.text:=t.text+#32;
     
      case d.getMonth of
        1:t.text:=t.text+'Janvier';
        2:t.text:=t.text+'Février';
        3:t.text:=t.text+'Mars';
        4:t.text:=t.text+'Avril';
        5:t.text:=t.text+'Mai';
        6:t.text:=t.text+'Juin';
        7:t.text:=t.text+'Juillet';
        8:t.text:=t.text+'Août';
        9:t.text:=t.text+'Septembre';
        10:t.text:=t.text+'Octobre';
        11:t.text:=t.text+'Novembre';
        12:t.text:=t.text+'Décembre';
      end;
      t.text:=t.text+#32;
     
      t.text:=t.text+IntToStr(d.getFullYear);
     
      t.setTextFormat(f);
    end.
    Images attachées Images attachées  

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 5
    Dernier message: 09/07/2007, 11h57
  2. Comment utiliser Between entre 2 dates en SQL DELPHI/Paradox
    Par tarbala dans le forum Bases de données
    Réponses: 4
    Dernier message: 12/04/2006, 10h33
  3. [TP] Problème d'utilisation d'une unité
    Par altruist dans le forum Turbo Pascal
    Réponses: 2
    Dernier message: 24/02/2006, 16h38
  4. [ADO] utilisation de l'unité adodb sous delphi 2005 PE
    Par dams580 dans le forum Bases de données
    Réponses: 8
    Dernier message: 17/02/2006, 09h40
  5. Question de base sur l'utilisation de la fonction date()
    Par deaven dans le forum Langage SQL
    Réponses: 2
    Dernier message: 04/12/2005, 15h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo