comment relier une procedure et deux fonction pour avoir une resultat unique..

Question

bonjour
j'ai devolloper un programme qui calcul les date et les heures de fin d'une fabrication. dans ce programme il y'a une procedure qui calcul les date de fin " brut" c'est a dire samedi , dimanche, et jour ferier tous inclus. en meme temps j'ai fait deux fonction qui calcule le nombre de jour ouvr&#233; ( il prend en compte samedi et dimanche et jour ferier)

mon probl&#232;me maintenant est comment relier les deux car j'ai essay&#233; est &#231;a marche pas 
merci 

programation .....

skirby · Answer

Salut h_adil,



il faudrait que tu donnes tes fonctions et proc&#233;dures histoire de voir ce que l'on peut en faire.



A+

tbbuim1 · Answer

D'apr&#232;s ce que j'ai cru comprendre, tu voudrais utiliser la date obtenu
avec la premi&#232;re fonction pour calculer le temps exacte en jours ouvr&#233;s.

Beh, je ne vois pas le probl&#232;me, si ta premi&#232;re fonction renvoi une date.

public function FinFrabication(param as jesaispas) as DATE

il ne te reste plus qu'&#224; utiliser le r&#233;sultat de cette fonction pour les autres, non?

C'est quoi le probl&#232;me exactement, qu'entends tu par "relier les deux"?

TBBUIM

h_adil · Answer

voila le programme
complet . 

Private Sub date_fin_Enter()
'le nombre de minute
Dim nbrmin As Double


'la partie entier du nombre de jour
Dim partieentiere As Integer


' la partie decimal de nombre de jour
Dim partiedecimale As Double


'la partie fixe de nombre de minute
Dim partiefixe As Integer


' le total de production par minute
Dim total As Double


'le nombre de jour
Dim nbrjour As Double


' la date de fin brut
Dim datefinbrut As Date


' la det de debut et date fin
Dim date1, date2 As Date
Dim nombrejour, nbjourtot As Double


 


total = [temps].Value * [quantit&#233;].Value
nbrmin = total / 60


nbrjour = nbrmin / 8


'partiefixe = Fix(nbrmin)
partieentiere = Int(nbrjour)
partiedecimale = (nbrjour - partieentiere) * 8


If nbrmin = 0 Then
[h fin].Value = "15/15/1515"
[date fin].Value = "00:00"


Else


    If nbrmin  8 Then
    MsgBox (nbrjour)
    datefinbrut = DateAdd("d", partieentiere, [date debut].Value)
    
    [h fin].Value = DateAdd("h", partiedecimale, [heure debut].Value)
  
    End If
End If
End If


 


 



End Function


Private Sub date_de_fin_net_Enter()
' la det de debut et date fin
Dim date1, date2 As Date
Dim nombrejour, nbjourtot As Double


date1 = [date debut].Value
date2 = [date fin].Value
[date de fin net].Value = nbjourouvrable(date1, date2)


End Sub


Function nbjourouvrable(date1, date2)
'fonction de calcul de nombre de jour ouvrable
Dim nbjourtot As Double


Dim i As Integer


If date1 "" Or date2 "" Then Exit Function


nbjourtot = DateDiff("d", date1, date2) + 1


For i = 1 To nbjourtot


If ferie(date1) Then
nbjourtot = nbjourtot - 1
End If


date1 = DateAdd("d", 1, date1)


Next


nbjourouvrable = nbjourtot


End Function


Function ferie(Jour)
'fonction de calcul des jours feries
If Jour = "" Then Exit Function
Dim JJ, AA, mm
Dim NbOr, Epacte
Dim PLune, Paques, Ascension, Pentecote


JJ = Day(Jour)
mm = Month(Jour)
AA = Year(Jour)


If JJ 1 And mm 1 Then ferie = True: Exit Function '1 JanvierIf JJ 1 And mm 5 Then ferie = True: Exit Function '1 MaiIf JJ 5 And mm 5 Then ferie = True: Exit Function '5 MaiIf JJ 14 And mm 7 Then ferie = True: Exit Function '14 JuilletIf JJ 15 And mm 8 Then ferie = True: Exit Function '15 Ao&#251;tIf JJ 1 And mm 11 Then ferie = True: Exit Function '1 NovembreIf JJ 11 And mm 11 Then ferie = True: Exit Function '11 NovembreIf JJ 25 And mm 12 Then ferie = True: Exit Function '25 D&#233;cembre


NbOr = (AA Mod 19) + 1
Epacte = (11 * NbOr - (3 + Int((2 + Int(AA / 100)) * 3 / 7))) Mod 30
PLune = CDate("19/04/" & AA) - ((Epacte + 6) Mod 30)If Epacte 24 Then PLune PLune - 1
If Epacte = 25 And (AA >= 1900 And AA < 2000) Then PLune = PLune - 1


Paques = PLune - WeekDay(PLune) + vbMonday + 7 'PaquesIf JJ Day(Paques) And mm Month(Paques) Then ferie = True: Exit Function


Ascension = Paques + 38 'AscensionIf JJ Day(Ascension) And mm Month(Ascension) Then ferie = True: Exit Function


Pentecote = Ascension + 11 'PentecoteIf JJ Day(Pentecote) And mm Month(Pentecote) Then ferie = True: Exit Function
ferie = False
Dim numjour
numjour = WeekDay(Jour, vbMonday) 'fixe &#224; 6 et 7 la valeur du samedi & dimancheIf numjour 6 Or numjour 7 Then ferie = True: Exit Function
End Function

programation .....

tbbuim1 · Answer

Ca serait cool aussi que tu nous donnais, des valeurs &#224; remplacer telle
que Temp.value, quantit&#233;.value, date debut, heure debut...

Et surtout la commande que tu lances qui utilise ces fonctions et qui plante.



Un moment tu &#233;cris &#231;a

        [h fin].Value = "15/15/1515"

        [date fin].Value = "00:00"

&#231;a serait pas l'inverse..? Mais &#231;a n'a pas d'importance, c juste une remarque
TBBUIM

h_adil · Answer

oui ta raison mais c'est pas &#231;a le probl&#232;me.
on ait la pour l'aide mutuelle c'est si tu sais klke chose tu me le dite moi idem
merci pour ta remarque

programation .....

tbbuim1 · Answer

Moi je veux bien t'aider, le probl&#232;me, c'est quya pas bcp de monde qui
va prendre ton code, le mettre dans un prog et le tester pour voir ce
qui d&#233;conne, alors si tu nous aide pas un peu afin de cerner le
probl&#232;me le plus rapidement possible, personne ne t'aidera...

A premi&#232;re vue, je vois rien qui cloche dans ton code, biensur, si tu
donnais des valeurs &#224; mettre &#224; la place des champs de formulaire et
surtout la commande qui te renvois  une erreur, on pourrait peut
&#234;tre t'aider...


TBBUIM

h_adil · Answer

bonjour,

en faite le code marche bien, mais ce pas ce que je veut vraiment 
" le but de code". en faite ce que je voudrais faire: cacul date fin "
brut" a partire de la date de debut et heure de debut, la quantit&#233;, et
le temps unitaire, le code peut faire &#231;a sans probl&#232;me. mais le
probl&#232;me est les resultat n'est pas fiable. donc j'ai integr&#233; les deuc
fonction qui calcul le nombre de jour ouvr&#233; samedi et dimanche inclus,
et j'ajoute ce nombre de jour ouvr&#233; a la date de fin et il calcul
automatiquement la date de fin net. jusque le code peut faire &#231;a.

mais si le nombre de jour ouvr&#233; d&#233;passe 5 le resultat n'est plus fiable
car la date ne prend pas en compte le samedi et le dimanche.

si ta pas compri tu pe me pos&#233; des questions , car je sais que c'est un peut compliquer



merci   tbbuim

programation .....

tbbuim1 · Answer

En fait, si tu te relisais avant de poster, &#231;a serait d&#233;j&#224; un peu plus compr&#233;hensible...

Pour programmer quelque chose il faut savoir pourquoi on le fait. Avant
de trouver comment le faire. Pour ce que j'ai cru comprendre, tu as une
dur&#233;e d'un truc qu'on sait pas de quoi il s'agit....

Tu veux avoir le nombre total de jours ouvr&#233;s contenue de cette dur&#233;e.

Tu pourrais peut &#234;tre commencer par calculer le nombre de jours total de la dur&#233;e.

Ensuite, tu regarde &#224; partir de quel jour commence ta p&#233;riode, lundi,
mardi, mercredi, jeudi ou vendredi. &#224; partir de l&#224;, tu sais que si &#231;a
commence un vendredi, les 2 jours suivant ne font pas parti des jours
ouvr&#233;s (donc -2) ensuite tu dis qu'une semaine contient 5 jours ouvr&#233;s,
donc tu enl&#232;ves 2 jr par semaines contenues dans ta dur&#233;e
syst&#233;matiquement. Tu auras d&#233;j&#224; un nombre total de jours
potentiellement ouvr&#233;s. Il ne te reste plus qu'&#224; v&#233;rifi&#233; si dans cette
dur&#233;e il ya des jours f&#233;ri&#233;s et si c derniers tombent en pleine
semaine. Voil&#224;, &#224; toi de jouer.
TBBUIM

Comment relier une procedure et deux fonction pour avoir une resultat unique..

8 réponses

Discussions similaires