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 56 57 58 59 60 61 62 63 64 65 66 67 68 69
|
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
Initialisation()
MsgBox("Ce petit programme va vous permettre de déterminer le jour de la semaine en fonction d'une date donnée." & Chr(13) & _
"Le jour et le mois doivent être saisis via une liste (petite flèche à droite des cases), l'année elle," & _
"peut être saisie manuellement ou via une liste.", , "")
End Sub
Public Sub Initialisation()
Dim LeMois() = {"janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre"}
Dim x As Integer, y As Integer, z As Integer
For x = 1 To 31
ComboBox1.Items.Add(x)
Next x
For y = 0 To 11
ComboBox2.Items.Add(LeMois(y))
Next y
For z = 1583 To 2100
ComboBox3.Items.Add(z)
Next z
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim LeJour() = {"dimanche", "lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi"}
Dim Code() = {105, 100, 106, 93, 104, 100, 99, 89, 106, 101, 99, 88}
Dim jour As Integer, mois As Integer, annee As Integer, Rang_Mois As Integer
Dim c As Single, a As Integer, m As Integer, j As Integer, y As Integer
Dim Code_ASCII_mois As Integer
jour = Val(ComboBox1.Text)
If jour = 0 Then Exit Sub
If ComboBox2.Text = "" Then Exit Sub
Code_ASCII_mois = Asc(ComboBox2.Text)
If ComboBox2.Text = "janvier" Then mois = 1
If ComboBox2.Text = "février" Then mois = 2
If ComboBox2.Text = "mars" Then mois = 3
If ComboBox2.Text = "avril" Then mois = 4
If ComboBox2.Text = "mai" Then mois = 5
If ComboBox2.Text = "juin" Then mois = 6
If ComboBox2.Text = "juillet" Then mois = 7
If ComboBox2.Text = "août" Then mois = 8
If ComboBox2.Text = "septembre" Then mois = 9
If ComboBox2.Text = "octobre" Then mois = 10
If ComboBox2.Text = "novembre" Then mois = 11
If ComboBox2.Text = "décembre" Then mois = 12
'mois = Val(ComboBox2.Text)
annee = Val(ComboBox3.Text)
If annee = 0 Then Exit Sub
' Calcul du jour de la semaine
c = Int((14 - mois) / 12)
a = annee - c
m = mois + 12 * c - 2
j = jour + a + Int(a / 4) - Int(a / 100) + Int(a / 400) + Int((31 * m) / 12)
j = j Mod 7
' Affichage du jour
Label1.Text = LeJour(j)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Close()
End Sub
End Class |
Partager