nicolas a écrit :
Je cherche à enregistrer des données dates dans ma base de donnée dbase, cela
depuis une boite de dialogue, et en passant par un rowset.
Donc d'apres ce que j'ai compris du Livre, les boites de dialogue renvoient une
date format ISO, et l'api a besoin d'objets de date spécifique. Donc j'ai écrit
le petit programme suivant pour faire la conversion:
Function ConvDate(DateISO as long)
dim convdateISO as new com.sun.star.util.date
convdateISO.year=Left(DateISO,4)
convdateISO.Month=Mid(DateISO,4,2)
convdateISO.Day=Right(DateISO,2)
Convdate=convdateISO
end function
ALors apparemment basic ne connait pas d'objet du type com.sun.star.util.date,
j'ai pourtant recopier la def de la page 588 .Je navigue a vu avec l'API, qu'est
ce qui ne va pas? quelqu'un aurait il une réponse ... ou une petite fonction
déja écrite qui tournerait.??..
Nico
Hello,
Il faut d'abord définir le service avant de l'utiliser.
dim convdateISO as object
ConvDate = createUnoService("new com.sun.star.util.date")
Puis utiliser :
=====================================
sub main
ConvDate(20060829)
end sub
sub ConvDate(DateISO as string)
dim convdate as object
dim convdateYear as string
dim convdateMonth as string
dim convdateDay as string
dim dateFin as string
ConvDate = createUnoService("new com.sun.star.util.date")
convdateYear=Left(DateISO,4)
convdateMonth=Mid(DateISO,5,2)
convdateDay=Right(DateISO,2)
dateFin = convdateDay & "-" & convdateMonth & "-" &convdateYear
print dateFin
end sub
======================================
A+
Serge
5 messages in org.openoffice.fr.progRe: [prog] Dates boite de dialogue et...
