FAQ WinDevConsultez toutes les FAQ

1
2
3
  
MaSemaine est un entier 
MaSemaine = NumeroDeSemaine("20080916")

1
2
3
4
5
  
Monjour est un entier 
Monjour = DateVersJour("20080916") 
// Monjour = 2 dans ce cas 
// Si le résultat de la fonction précédente est supérieur à 5 alors il s'agit d'un jour du week-end

1
2
3
UneDate est une date 
UneDate = DateSys() 
UneDate..Mois += nombredemois

1
2
3
4
MaDate est une Date = DateSys() 
jour =Gauche(DateVersChaîne(MaDate),2) 
mois =Milieu(DateVersChaîne(MaDate),4,2) 
année=Milieu(DateVersChaîne(MaDate),7,4)

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
// Syntaxe : 
//DateRFC822_VersDateHeure (Par_DateRFC822, ParVar_Date) 
// 
// Paramètres : 
//        Par_DateRFC822 : Date chaine au format RFC822 
//        ParVar_Date : Variable par adresse. Contiendra le résultat de la conversion. 
// Valeur de retour : 
//        Aucune 
// Notes : 
//        Sur Internet, vous rencontrerez souvent des dates au format RFC 822. 
//        Cette procédure permet de convertir une date de ce format vers le format WinDev. 
  
PROCEDURE DateRFC822_VersDateHeure(Par_DateRFC822,ParVar_Date) 
  
LOC_Chaine est une chaîne = Par_DateRFC822 
LOC_DateHeure est une DateHeure 
  
// ****************************** 
// * ON SUPPRIME LE NOM DU JOUR * 
// ****************************** 
SI Position(LOC_Chaine,",") ALORS 
    LOC_Chaine=SansEspace(LOC_Chaine[[Position(LOC_Chaine,",")+1 A]]) 
FIN 
  
// ********************************************* 
// * ON REMPLACE LE NOM DU MOIS PAR SON NUMERO * 
// ********************************************* 
LOC_Chaine=Remplace(LOC_Chaine,"Jan","01",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Feb","02",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Mar","03",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Apr","04",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"May","05",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Jun","06",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Jul","07",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Aug","08",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Sep","09",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Oct","10",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Nov","11",SansCasse) 
LOC_Chaine=Remplace(LOC_Chaine,"Dec","12",SansCasse) 
LOC_DateHeure..PartieDate=ChaîneVersDate(LOC_Chaine,"JJ MM AAAA") 
LOC_DateHeure..PartieHeure=Remplace(ExtraitChaîne(LOC_Chaine,4," "),":","") 
  
  
ParVar_Date=LOC_DateHeure

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
PROCEDURE ConvertionMiladiHejri(DateMiladi est une Date) 
  
SI DateMiladi ="" ALORS DateMiladi = DateSys() 
  
y est un entier = DateMiladi..Année 
m est un entier = DateMiladi..Mois 
d est un entier = DateMiladi..Jour 
  
jd est un entier 
  
SI ((y > 1582) _OU_ (y = 1582 ET m > 10) _OU_ (y = 1582 ET m = 10 ET d > 14)) ALORS 
    jd=PartieEntière((1461*(y+4800+PartieEntière((m-14)/12)))/4)+PartieEntière((367*(m-2-12*(PartieEntière((m-14)/12))))/12)- PartieEntière((3*(PartieEntière((y+4900+PartieEntière((m-14)/12))/100)))/4)+d-32075 
SINON 
    jd = 367*y-PartieEntière((7*(y+5001+PartieEntière((m-9)/7)))/4)+PartieEntière((275*m)/9)+d+1729777 
FIN 
  
l est un entier=jd-1948440+10632 
n est un entier=PartieEntière((l-1)/10631) 
l=l-10631*n+354 
j est un entier=(PartieEntière((10985-l)/5316))*(PartieEntière((50*l)/17719))+(PartieEntière(l/5670))*(PartieEntière((43*l)/15238)) 
l=l-(PartieEntière((30-j)/15))*(PartieEntière((17719*j)/50))-(PartieEntière(j/16))*(PartieEntière((15238*j)/43))+29 
m=PartieEntière((24*l)/709) 
d=l-PartieEntière((709*m)/24) 
y=30*n+j-30 
  
HMonths_L est une chaîne 
SELON m 
    CAS 1 : HMonths_L = "Muharram" 
    CAS 2 : HMonths_L = "Safar" 
    CAS 3 : HMonths_L = "Rabi al-awwal" 
    CAS 4 : HMonths_L = "Rabi al-thani" 
    CAS 5 : HMonths_L = "Jumada al-oula" 
    CAS 6 : HMonths_L = "Jumada al-akhira" 
    CAS 7 : HMonths_L = "Rajab" 
    CAS 8 : HMonths_L = "Shaaban" 
    CAS 9 : HMonths_L = "Ramadan" 
    CAS 10 : HMonths_L = "Shawwal" 
    CAS 11 : HMonths_L = "Dhu al-Qidah" 
    CAS 12 : HMonths_L = "Dhu al-Hijjah" 
FIN 
  
DateHejri est une chaîne = d+" "+ HMonths_L +" " + y 
DateHejri2 est une chaîne = d +" / "+ m +" / " + y 
  
Info(DateHejri,DateHejri2) // Vous pouvez utiliser un renvoyer DateHejri ou DateHejri2

1
2
3
4
Monjour est un entier 
Monjour = DateVersJour("20080916") 
// Monjour = 2 dans ce cas 
// Si le résultat de la fonction précédente est supérieur à 5 alors il s'agit d'un jour du week-end