Bonjour,
Comment peut on rendre une chaine de caractre “dd/mm/aaaa hh:mm:ss” reconnaissable en tant que date heure ?
MyDate = “19 octobre 1962” ’ Dfinit la date.
MyShortDate = CDate(MyDate) ’ Convertit en type de donnes Date.
MyTime = “16:35:47” ’ Dfinit l’heure.
MyShortTime = CDate(MyTime) ’ Convertit en type de donnes Date.
CDate n’existe pas en Xojo.
[quote=126004:@jean-paul devulder]C’est la commande Parsedate
voir ici [/quote]
ça marche que pour la date, ma chaine contient “31/08/2014 19:55:25”
[code] Dim theDate as New Date
Dim converted as Boolean
// Attempt to convert the string “12/31/2013” to a date. If
// the conversion succeeds, theDate variable contains the converted date.
//converted = ParseDate(“31/08/2014”, theDate)
Converted = ParseDate(ddate(1),theDate)
If converted then
MsgBox("Converted to: " + theDate.ShortDate)
Else
MsgBox(“Could not convert the string to a date.”)
End If[/code]
Vous pouvez obtenir l’heure en dcomposant (parse) la chane de caractres.
dim d as new date
dim s as string = "31/08/2014 19:55:25"
d.hour = val(mid(s,len(s)-7,2))
d.Minute = val(mid(s,len(s)-4,2))
d.Second = val(mid(s,len(s)-1,2))
Michel, ma question est rgle, merci a tous.
[code]
dim d As new date
d.SQLDateTime = “2014-08-31 19:55:25”
MsgBox str(d.hour)+":"+str(d.Minute)+":"+str(d.Second)[/code]