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
53
54
55
| PUBLIC iPeriode AS INTEGER
PUBLIC sMonTexte AS STRING
PUBLIC sAlerte AS STRING
PUBLIC sDateJour AS STRING
'différences entre deux dates
PUBLIC sTrans1 AS STRING '<------------------------------------------------- variables de transposition
PUBLIC sTrans2 AS STRING
'jour de la semaine de la date de naissance
PUBLIC sTrans3 AS STRING
'ajout période à une date
PUBLIC sTrans4 AS STRING
PUBLIC sTrans5 AS STRING
PUBLIC SUB Form_Open() '<------------------------------------------------- on commence
DIM sQuand AS STRING
Application.MainWindow = ME
ME.Center
sDateJour = Format(Date(Now), "dd/mm/yyyy")
sQuand = sDatejour
lblD1.Text = sQuand
sQuand = Format(Now, "dddd dd mmmm yyyy")
lbl.Text = "Aujourd'hui, nous sommes le " & sQuand
sAlerte = "Erreur OverFlow "'"Calcul Impossible "
RadioBut_Click()
RBDateNais_Click()
RBAJPer_Click()
END
PUBLIC SUB Form_KeyPress()
IF Key.code = Key.Enter OR Key.code = Key.Return THEN
CmdCalDe_Click()
CmdJour_Click()
CmdCalDe2_Click()
ENDIF
IF Key.code = Key.Esc THEN ME.Close '<------------------------------------- pour fermer par escape
END
PUBLIC SUB CmdFin_Click() '<------------------------------------------------- pour sortir de là
ME.Close()
END
PUBLIC SUB TimeDe1_Timer() '<------------------------------------------------- mais que fait le timer
lblDmn.Text = Format(Time(Now), "hh:nn:ss")
END
|
