Forum AtoutFox : Re: Fonction inverse de WEEK()   

sam. 20 février 2016, 19h48

Francis Faure
France
atoutfox.public.association

Re: Fonction inverse de WEEK()

Bonjour Bernard,

- Il n'y a pas nativement cette fonction dans vfp,
il suffit de calculer le premier lundi de l'année et d'ajouter le nombre de jours correspondant a n°semaine x 7
- Pour ton exemple : en 2016 la semaine n° 5 va du 01/02/2016 au 07/02/2016 (et non du 8/2 au 14/2)
- ci-après un code te retournant le premier lundi de la semaine demandée, pour le dimanche lui ajouter 6 jours

Cordialement
Francis

set date french
set century on

? Lundi_de_la_semaine(2016,5)

function Lundi_de_la_semaine(liAnnee as integer, liNumeroSemaine as integer) as date
  local ldReturn as date
  ldReturn = date(m.liAnnee,1,1)
  if week(m.ldReturn, 2, 2) == 1 && si 1er janvier dans semaine N°1
    ldReturn = m.ldReturn - dow(m.ldReturn, 2) + 1 && lundi de semaine n°1
  else
    ldReturn = m.ldReturn + (8 - dow(m.ldReturn, 2)) && lundi semaine suivante
  endif
  ldReturn = m.ldReturn + ((m.liNumeroSemaine - 1) * 7)
  return m.ldReturn
endfunc



Le sam. 20 février 2016, 17h39 Bernard Avril a écrit :


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017319