 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
4 messages in org.openoffice.fr.progRe: [prog] calcul sur les dates| From | Sent On | Attachments |
|---|---|---|
| GeGe | Jun 21, 2005 6:16 am | |
| Jean...@i-carre.net | Jun 21, 2005 6:22 am | |
| Jean...@i-carre.net | Jun 21, 2005 6:33 am | |
| GeGe | Jun 21, 2005 10:17 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] calcul sur les dates | Actions... |
|---|---|---|
| From: | GeGe (ggn...@free.fr) | |
| Date: | Jun 21, 2005 10:17:34 am | |
| List: | org.openoffice.fr.prog | |
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, Jean...@i-carre.net <Jean...@i-carre.net> é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
[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]