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.
Partager