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
| DateDébutEXPRESS est une Date ="20150101"
résultat est entier = DateDifférence("20150101",SAI_Date)
résultat++
//Trace(résultat)
SI résultat > 84 ALORS
// On récupère la partie décimale de la division
monReste est un réel = PartieDécimale(résultat/84)
//Trace(monReste)
SI monReste = 0 ALORS
// Cela veut dire qu'on démarre un nouveau cycle
résultat = 1
SINON
// Avec le modulo, on va récupérer le néme jour par une règle de trois
résultat = Arrondi((monReste*84), 0)
FIN
FIN
//Trace(résultat)
SELON résultat
CAS 29,30,31,32,38,39,40,41,42,47,48,49,50,51
SAI_résultat = "Matin"
CAS 5,6,7,8,9,15,16,17,18,24,25,26,27,28,33,34,35,36,37,43,44,45,46,52,53,54,55,56,61,62,63,64,65,71,72,73,74,80,81,82,83,84
SAI_résultat = "Repos"
CAS 1,2,3,4,10,11,12,13,14,19,20,21,22,23
SAI_résultat = "AM"
CAS 57,58,59,60,66,67,68,69,70,75,76,77,78,79
SAI_résultat = "Nuit"
FIN |
Partager