Correction du code ou formule de calculer Date et heure

[christophe03200]

Bonjour , suite a beaucoup d'aide pourcette base et merci encort , mais petit
Probleme de calcule de date et heure : entre date début et date de fin celon le Nb de semaine chosir ?
je veux affiché la date de fin avec l'heure inclus automatiquement avec la bonne date .



Voir Images et fichier ZIP Base

merci de prendre du temp pour moi .

Cordialement

[Welshgasman]

Non comprende. Lo siento.

[christophe03200]

Bonjour, je vais essayer de vous expliquer !

date de début + heure :
26/03/2025 17:56 = calcule automatiquement celon le Nb de semaine (1.2.3.4.5.6) 1 semaine et 4 semaines pour 1 mois et affiche la date de fin + heure automatiquement : pour 1 semaine = 02/03/2025 17:56
et sur ma base il me manque les heures et jours , la date est fausse !

Je reste à votre écoute
Cordialement

Hello, I'll try to explain!

Start date + time:
March 26, 2025 5:56 PM = automatically calculated based on the number of weeks (1, 2, 3, 4, 5, 6). 1 week and 4 weeks for 1 month, and automatically displays the end date + time: for 1 week = March 2, 2025 5:56 PM
And in my database, I'm missing the hours and days; the date is wrong!

I remain at your disposal.
Sincerely,

[orange]

I recommend that you translate your post to English via Google Translate so others will read it. If you are doing detailed scheduling you can not assume 4 weeks per month.

Christophe, Puisque vous utilisez Office 365, vous devez avoir accès au copilote (gratuit). Tapez la demande suivante

ms access vba function to return week number and date and time given input of weeknumber, date and time with option to select 1, 2 ,3,...6 weeks

[christophe03200]

Bonsoir, je suis déjà en anglais et je repose la question suite à votre message : Qu'en est-il du code ? Fonction VBA MS Access permettant de renvoyer le numéro de semaine, la date et l'heure après saisie, avec possibilité de sélectionner 1, 2, 3 ou 6 semaines. Que dois-je faire ? Merci pour votre aide. Je suppose que je dois modifier la section. Cordialement,

[mike60smart]

In your screenshot for CustomerID 481 Can you explain in English what you want to see for each of the records in the Subform.

You have Nr of Weeks & Nr of Days based on a Start Date and an End Date.

What do you want to also display for each record?

Dans votre capture d'écran pour le numéro de client 481, pouvez-vous expliquer en anglais ce que vous souhaitez voir pour chaque enregistrement du sous-formulaire ?
Vous avez le nombre de semaines et le nombre de jours, basés sur une date de début et une date de fin.
Que souhaitez-vous également afficher pour chaque enregistrement ?

[orange]

Christophe,
I am attaching a vba function obtained via copilot and header info supplied by me. I hope I have your requirements properly defined.

Update: I tried your french expression into copilot and the resulting code had errors. I tried several iterations with copilot to correct errors but his results were still giving errors --incorrect result.

I suggest you try to work with the function attached.
PM if you have additional issues.

Another update:
I have revised the french version, I have calculate the week number of the BaseDate which removes the StartingWeek parameter. I have run the french version several times l and think I have it working. You'll notice some frenglish terms.

Function CalculerSemaineEtDate(BaseDate As Date, BaseTime As String, nbSemaines As Integer) As String
    Dim NouvelleDate As Date
    Dim DateDeDepart As Date
    Dim StartingWeek As Integer
    Dim Resultat As String
    Dim NouvelleHeure As String
    ' Vérifier que le nombre de semaines est valide
    If nbSemaines < 1 Or nbSemaines > 6 Then
        CalculerSemaineEtDate = "Erreur : Veuillez sélectionner un nombre de semaines entre 1 et 6."
        Exit Function
    End If

    ' Réutiliser StartingWeek comme valeur initiale ou recalculer à partir de BaseDate
    StartingWeek = DatePart("ww", BaseDate, vbSunday, vbFirstFourDays)

    ' Calculer la date de départ correspondant au StartingWeek
    DateDeDepart = DateAdd("ww", StartingWeek, BaseDate)

    ' Calculer la nouvelle date en ajoutant nbSemaines à DateDeDepart
    NouvelleDate = DateAdd("ww", nbSemaines, BaseDate)

    ' Construire le résultat
    Resultat = "Semaine de départ : " & StartingWeek & vbCrLf & _
               "Base date : " & Format(BaseDate, "yyyy-mm-dd") & vbCrLf & _
               "Base heure : " & Format(BaseTime, "hh:mm:ss") & vbCrLf & _
               "Nouvelle date : " & Format(NouvelleDate, "yyyy-mm-dd") & vbCrLf & _
               "Nouvelle heure : " & Format(BaseTime, "hh:mm:ss")
               
    CalculerSemaineEtDate = Resultat
End Function

Sample execution:

?CalculerSemaineEtDate ( Date,Time,3)
Semaine de départ : 13
Base date : 2025-03-26
Base heure : 18:35:52
Nouvelle date : 2025-04-16
Nouvelle heure : 18:35:52

J'espère avoir compris vos exigences.

[jojowhite]

check and test your db. see the code on the AfterUpdate of Base date.

[orange]

Christophe,

Does jojowhite's database satisfy your need? If so then I suggest you use it.
How important is restricting the number of weeks >1 and <=6?