FAQ WinDevConsultez toutes les FAQ

Nombre d'auteurs : 3, nombre de questions : 71, dernière mise à jour : 25 novembre 2018  Ajouter une question

 

Cette FAQ ne prétend pas traiter de tous les trucs & astuces ou de tous les problèmes rencontrés par les utilisateurs de WinDev : elle a été créée via l'analyse des questions les plus fréquentes posées sur le forum de ce site, et sur les connaissances des différents rédacteurs. Nous espérons voir le nombre de questions/réponses augmenter régulièrement, pour couvrir le plus de thèmes possibles. Pour y participer, suivez le mode d'emploi donné dans la 2ème question !


SommaireConcepts, WLangage et environnementConcepts, WLangage et environnement DiversManipulation de dates (7)
précédent sommaire suivant
 

Code windev : Sélectionner tout
1
2
3
  
MaSemaine est un entier 
MaSemaine = NumeroDeSemaine("20080916")

Mis à jour le 17 décembre 2008

Code windev : Sélectionner tout
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

Mis à jour le 17 décembre 2008

Code windev : Sélectionner tout
1
2
3
UneDate est une date 
UneDate = DateSys() 
UneDate..Mois += nombredemois

Mis à jour le 25 avril 2009 Emmanuel Lecoester

Code windev : Sélectionner tout
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)

Mis à jour le 26 avril 2009 Emmanuel Lecoester

Code windev : Sélectionner tout
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

Mis à jour le 11 juillet 2009

Code windev : Sélectionner tout
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

Mis à jour le 24 juillet 2009

Code windev : Sélectionner tout
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

Mis à jour le 17 décembre 2008

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2019 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Contacter le responsable de la rubrique WinDev

Partenaire : Hébergement Web