Désolé, j'ai cherché dans l'API un service "com.sun.star.util.date", je
n'ai pas trouvé, par contre, il existe une structure
"com.sun.star.util.Date" qui répond à la question et je l'ai testée, ça
marche très bien.
Sub Main()
Dim DateOOo As New com.sun.star.util.Date
Dim DateISO As String
DateIso ="20060829"
DateOOo.year=Left(DateISO,4)
DateOOo.Month=Mid(DateISO,5,2)
DateOOo.Day=Right(DateISO,2)
print DateOOo.Day & "/" & DateOOo.Month & "/" & DateOOo.year
End Sub
Cordialement
Marceau
Serge LE LOUARNE a écrit :
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
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------------------------
Orange vous informe que cet e-mail a ete controle par l'anti-virus
mail. Aucun virus connu a ce jour par nos services n'a ete detecte.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
