Toke Herkild skrev:
> Gert Krabsen skrev:
>> Per Juul Larsen wrote:
>>> Gert Krabsen skrev:
>>>
>>>> Per Juul Larsen wrote:
>>>>
>>>>> Hej..
>>>>> jeg henter datetime indformation fra en mysqldatabase.
>>>>> Feltet ses sådan eks. "2007-05-02 10:00:23"
>>>>>
>>>>> I VB ser feltet sådan ud "02-05-2007 10:00:23"
>>>>> hvordan får jeg vendt datoen til 2007-05-02
>>>>>
>>>>> min kode ser sådan ud :
>>>>> ---*
>>>>> Do While dcexport.Recordset.EOF = False
>>>>> For fieldnum = 0 To dcexport.Recordset.Fields.Count - 1
>>>>> cellstring = "mkdir L:\" + Chr(34) + "Documents and Settings" +
>>>>> Chr(34) + "\breve\filer\" &
>>>>> Left(dcexport.Recordset.Fields(fieldnum).Value, 10)
>>>>> Next
>>>>> Print #1, cellstring
>>>>> cellstring = ""
>>>>>
>>>>> dcexport.Recordset.MoveNext
>>>>> Loop
>>>>> Close #1
>>>>> dTaskID = Shell(path + " " + file, vbNormalFocus)
>>>>> --*
>>>>
>>>> Nu kan jeg ikke lige få øje på datetime noget sted i din kode
>>>> men bortset fra det, så er der nok ingen vej uden om en konvretering
>>>> via en række substr()
>>>> Hvis du laver convert-rutinerne som funktioner, så kan de genbruges..
>>>
>>> OK tak for svar..
>>>
>>> datatime feltet er fra Mysql databasen. Det burde jeg have nævnt.
>>
>>
>> Det havde du skam nævnt. Men i dit kodeeksempel indgår feltet ikke, og
>> det var det, der forvirrer mig
>>
>>
>> mvh
>
> Mener DateTime Objektet har en formaterings rutine hvor du kan angive
> hvorledes den ønskes vist. eg:
> if Fieldnum = num_mysql_DateTime_field then
> dim Date as DateTime = Date.Parse(RS.Field(fieldnum).Value)
> Date.FormatStr = "yyyy-mm-dd hh:mm:ss"
> returnStr = Date.ToString
> end IF
>
> Er ikke testet prøv dig frem
>
> Mvh
> Toke
tak for gode svar.
mvh pjl