Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Date() + 3
Message
De
22/07/2005 04:49:03
 
 
À
21/07/2005 23:25:56
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
01034976
Message ID:
01035025
Vues:
22
Hi,
>>
function AddWorkingDays(tdDate, tnDays)
local i, tdResult
tdResult = tdDate
for i = 1 to tnDays
  tdResult = tdResult + 1
  if dow(tdResult) = 7 && Saturday
  	tdResult = tdResult + 1
  endif
  if dow(tdResult) = 1 && Sunday
  	tdResult = tdResult + 1
  endif
next
return tdREsult
>>
Need to be careful of first day of week setting. dow(tdResult,1) would be safer.
Regards,
Viv
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform