Le 2005-06-29 21:26, GeGe a écrit :
Où trouver les syntaxes de programmation? Je n'aurais jamais pensé à "dim
nouvDate as new com.sun.star.util.Date" tout seul!
Dans les documents listés à la page des HowTo du site web, ou dans le
livre Programmation OpenOffice.org
Je me répond en partie. Plus court:
oDocument = ThisComponent
oForm = oDocument.DrawPage.Forms.Standard
dim nouvDate as new com.sun.star.util.Date
dim vDate as date
if oForm.DateDebut.date>0 then
vDate= cdatefromiso(oForm.DateDebut.date)
nouvDate.Day = day(vDate)
nouvDate.Month = month(vDate)
nouvDate.Year = year(vDate)+1
oForm.updateDate(oForm.findColumn ("DATEFIN"),nouvDate)
Voila! Voili!
Oui, mais cela ne tient pas compte du 29 février, alors que ta solution
précédente le fait.
Question subsidiaire: peut-on vérifier la validité d'une date. Le calcul
sur 29/02/2004 donne 29/02/2005!
Regardes dans l'aide en ligne sur IsDate
IsDate("29/02/2005") renvoie False
Bonne soirée
Bernard
5 messages in org.openoffice.fr.progRe: [prog] Calcul sur les dates (suite)
