io ho una data in Formato

8/14/2001 6:48:17 PM

devo strasformarla nel formato

2001-08-14 18:48:17

Come devo fare?

Grazie!!

Daniele Giorgini (Mcgio)

Più o meno credo di esserci riuscito, mi è rimasto un problema di spaziatura tra l'anno e il mese.


Function ToConvert ( DateConvert )
DateConvert = Split(DateConvert, "/")
ToConvert = DateConvert(2) & "-" & DateConvert(0) & "-" & DateConvert(1)
End function

Dim Data , ora, DataC
Data="16/8/2001 6:30:30 PM"
DataC=(FormatDateTime(Data,2) & " " )
response.write DataC & "<BR>"
ora=(FormatDateTime(Data,4) & " " )
response.Write ora & "<BR>"
Response.write Data & " = " & ToConvert(DataC) & " " & ora


Risultato:

8/16/2001
18:30
16/8/2001 6:30:30 PM = 2001 -8-16 18:30

Come vedi tra '2001' e '-8' c'è uno spazio....come lo levo?



Daniele Giorgini (Mcgio)

Sorry problema risolto avevo messo io gli spazi....grazie !!



Daniele Giorgini (Mcgio)

Da quanto ho capito la conversione per ogni data la devi fare una sola volta, quindi glila fai fare direttamente nell'input...

oppure la memorizzi in una variabile e la usi quando vuoi...

cioè o così
<Form Action="" Method="Post" id=form1 name=form1>
<input type="data" name="dataconvert" value="<%=ToConvert(DataC) & " " & ora%>" size="19">
</Form>

oppure

dataconv=ToConvert(DataC) & " " & ora
<Form Action="" Method="Post" id=form1 name=form1>
<input type="data" name="dataconvert" value="<%=dataconv%>" size="19">
</Form>

ciao...

enzo
www.dnetware.it