Bonjour Daniel,
Je ne comprends pas ce test dans ton code :
v_DateDebut = v_Form.getByName("DateDebut").Text
v_DateFin = v_Form.getByName("DateFin").Text
' On vérifie que la date de début soit plus petie que la date de fin
if v_DateDebut > v_DateFin then
MsgBox("Date de début ("& v_DateDebut & ") plus grande que date de
fin ("& v_DateFin &")",16)
else
Là, tu es en train de comparer des chaînes de caractères au lieu de dates ?
La valeur du contrôle, ce n'est pas plutôt :
v_DateDebut = v_Form.getByName("DateDebut").currentvalue
ou
v_DateDebut = v_Form.getByName("DateDebut").getDate
http://api.libreoffice.org/docs/common/ref/com/sun/star/form/component/DateField.html
http://api.libreoffice.org/docs/common/ref/com/sun/star/awt/UnoControlDateFieldModel.html#Date
http://api.libreoffice.org/docs/common/ref/com/sun/star/awt/XDateField.html
Alex
--
Envoyez un mail à [email protected] pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
