Data in modo corretto

[groberto]

come posso far capire che la data è nel formato
ggmmaaaa

grazie

[santino83_11_04]

ggmmaaaa tutto attaccato?

controlli la lunghezza della stringa, controlli che i primi due caraterri sono <= di 31, che i successivi due sono <=12 e che gli ultimi 4...boh che gli ultimi 4 siano 4 numeri

[salvodibella]

dai un occhiata quà:
http://www.w3schools.com/vbscript/fu...atdatetime.asp

[santino83_11_04]

sinceramente non credo che quella funzione riconosca il formato ggmmaaaa

[salvodibella]

si, effettivamente quella funzione serve a scrivere nel formato 24 ore.
purtroppo sono al lavoro e non ho un server per poterla provare.

[santino83_11_04]

potrebbe fare una:

oldData="01112006" 'ggmmaaaa

nData=left(oldData,2) & "/" & mid(oldData,3,2) & "/" & right(oldData,4)

if isDate(nData) then
response.write "data corretta"
end if

per vedere se è una data

[salvodibella]

Originariamente inviato da santino83_11_04
potrebbe fare una:

oldData="01112006" 'ggmmaaaa

nData=left(oldData,2) & "/" & mid(oldData,3,2) & "/" & right(oldData,4)

if isDate(nData) then
response.write "data corretta"
end if

per vedere se è una data

purtroppo nel recuperare oldData="01112006", credo che lo zero iniziale potrebbe anche non esserci. è da provare!

[santino83_11_04]

si si c'è perchè è una stringa, mica un numero

[salvodibella]

vero!
ma se tira fuori la data da un db o da qualcos'altro?
dovrebbe prima sincerarsi che la data da dove la recupera sia sempre della stessa lunghezza.
e allora è sicuro!

[sspintux]

Originariamente inviato da groberto
come posso far capire che la data è nel formato
ggmmaaaa

grazie

prova così:

function f(sData)
dim g,m,a,d
'
f=false
'
if len(sdata)=8 then
  g=Left(sData,2)
  m=mid(sdata,3,2)
  a=right(sdata,4)
  d=g & "/" & m & "/" a
  if isDate(d) then f=(Cdate(d)=DateSerial(a,m,g))
end if