Théoriquement, oui. Mais si je veux mettre à jour ma base de données (en
dbase), je suis coincé. La ligne:
oForm.updateDate(oForm.findColumn ("DATEFIN"), [une variable date])
pour mon champ date "DATEFIN" de ma BD me renvoit systématiquement un
message d'erreur: "variable d'objet non paramétrée"
alors que
oForm.updateDouble(oForm.findColumn ("DATEFIN"), [une variable numérique])
passe sans problème, sauf le décalage de 2 jours que je n'explique pas.
Serait-ce un problème de base de temps (point 0 des dates) entre OOo et
DBase? Mais pourquoi ne l'ai-je pas en chargeant les données vers le
formulaire?
J'ai modifié le script en:
dim vDate as date
dim vDateFin as double
dim vYear as double, vMonth as double, vDay as double
if oForm.DateDebut.date>0 then
vDate= cdatefromiso(oForm.DateDebut.date)
vDateFin =dateserial (year (vdate)+1, month (vdate), day (vdate))
oForm.updateDouble(oForm.findColumn ("DATEFIN"),vDateFin-2)
end if
le mardi 21 juin 2005 15:34, [EMAIL PROTECTED]
<[EMAIL PROTECTED]> écrivit:
Rebonjour,
[...]
Pourquoi suis-je obligé d'enlever 2 jours pour avoir la date correcte
à "+ 1
an"?
Sans correction, j'obtiens systématiquement comme date à 1 an, la
date de début + 1 an et 2 jours (20/06/2005 -> 22/06/2006).
[...]
Cela provient du type de données utilisé, utiliser un type "Date"
prévu à cet effet
Jean-Claude
Sub Main
dim vDate as date
dim vDateFin as date
vDate = cdatefromiso("2005-06-20")
Print vdate
vdatefin = dateserial (year (vdate) + 1, month (vdate), day (vdate))
Print vdatefin '20/06/2006
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
[ANTISPAM: Pour me répondre, pensez à retirer le tiret avant l'arobase
(-@) dans l'adresse d'envoi] [Ecoutez http://www.radioparadise.com -
http://www.bide-et-musique.com]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
