Discussion :

[EricDgn]

Oui, le type est Variant car ces fonctions donnent en résultat soit une date, soit Null.
Cordialement.

[nouveau17]

Oui, le type est Variant car ces fonctions donnent en résultat soit une date, soit Null.
Cordialement.

Donc pas possible d'avoir pour le reste des dates le format exemple Dim 12/06/2023

[EricDgn]

Une chose est de calculer une date, une autre chose est d'en fixer la présentation. Au niveau d'un formulaire, la présentation s'effectue en utilisant la propriété "Format" qui peut par exemple être jjj". "jj/mm/aaaa (qui donnera ainsi lun. 12/06/2023).
Bien cordialement.

[nouveau17]

bonjour,

depuis le début le format existe dans l'applic le format ne fonction qu'avec "date" mais pas avec "variant".



cordialement.

[EricDgn]

Bonjour,

Que se passe-t-il si vous supprimez dans les états les champs totalisant les jours de récup (ceux dont la formule est =Somme([r]) )?

Cordialement.

[nouveau17]

bonjour,

en supprimant les champs qui contiennent somme([r]), c'est la même chose pour les formats des dates fin et reprise ne changent pas.

cordialement.

[micniv]

Une suggestion, afin de conserver le format Date dans toutes les fonctions de l'application (pour ne jamais à avoir à utiliser Variant) :

petit rappel introductif :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'    Print CDate(0)
'    00:00:00
'       Print CDbl(#12:00:00 AM#)
'       0
'    Print Format(#12:00:00 AM#, "ddd dd/mm/yyyy")
'    sam. 30/12/1899

ainsi on peut alors créer et utiliser les 2 fonctions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function Date_nulle() as date
date_nulle = #12:00:00 AM#
end function
 
function isDateValid(dt1 as date) as boolean
isDateValid = IIf(CDbl(dt1) > 0, True, False)
end function

Ceci pourrait éviter des maux de tête ...

[EricDgn]

Bonjour,

C'est en effet vraiment gênant. Si vous pouvez exploiter la solution proposée par micniv, tant mieux. Celle que j'ai finalement trouvée:
- renommer les textbox d'un autre nom que le champ source auquel il est fait appel
- utiliser la formule suivante comme source de données: =CDate([CuDFin])
- masquer les erreurs par un format conditionnel basé sur l'expression Année(CDate(Nz([CuDFin])))<2000

(et même chose avec CuDRep)

Assez tordu, mais rien trouvé d'autre.
Cordialement.

[nouveau17]

bonjour,

ca fonctionne très bien grand merci pour votre précieuse aide.

en plus ca n'a pas affecter la somme R, c'est parfait.

bien cordialement.

[nouveau17]

Bonjour,

un petit souci concernant la date fi n'est pas correcte à mon avis pour l'exemple de pedro pedro.
dans cet exemple date fin 07/07/23 et date retour 08/07/23

merci

[EricDgn]

Bonjour,

Je pense que c'est juste, le 5/7 étant un jour férié.

Cordialement.

[nouveau17]

bonjour,

même pour 05/02
le problème est réglé en changeant <6 par <7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Weekday(tmpDate, vbSunday) < 7 Then

pour
Public Function DateFin(NbJours As Variant, DateDébut As Variant, bCal As Boolean) As Variant et
Public Function DateReprise(DateFinCongé As Variant) As Variant

sauf pour les 11 jours a compter du 04/07 la fin est trop décaler ainsi que la reprise
normalement 14 fin 15 reprise alors qu'actuellement 17 fin et 18 reprise
cordialement.