Newsgroup: it.comp.www.asp
Titolo: gestione date

Access scrive le date cosi: gg/mm/aaaa
per esigenze di query ho trasformato la data mm/gg/aaaa in questa maniera
data = data1
gg = mid(data,4,2)
mm = mid(data,1,2)
aa = mid(data,7)
new_data1 = cstr(gg)  & "/" &  cstr(mm)  & "/" &  cstr(aa)
 
data = data2
gg = mid(data,4,2)
mm = mid(data,1,2)
aa = mid(data,7)
new_data2 = cstr(gg)  & "/" &  cstr(mm)  & "/" &  cstr(aa)
ora però devo leggere le date in un response.write nel formato contrario
cioè gg/mm/aaaa
per cui richiamo new_data1 
data00 = new_data1
gg = mid(data,?,?)<--?? come vario?
mm = mid(data,?,?)<--?? come vario?
aa = mid(data,?)  <--?? come vario?
data00 = cstr(gg)  & "/" &  cstr(mm)  & "/" &  cstr(aa)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto:
Dovrebbe essere:
data00 = new_data1
gg = mid(data,4,2)<--?? come vario?
mm = mid(data,1,2)<--?? come vario?
aa = mid(data,7)  <--?? come vario?
data00 = cstr(gg)  & "/" &  cstr(mm)  & "/" &  cstr(aa)
Ma nella visualizzazione, appena prendi i dati da Access, dovrebbero essere 
visualizzati correttamente.
Ciao
-- 
AZ [Microsoft - .NET MVP]
Mia Home page: 
http://ciclismo.sitiasp.it
Asp.Net community: 
http://www.aspitalia.com
Il mio blog: 
http://blogs.aspitalia.com/az
 

 data00 = cstr(gg)  & "/" &  cstr(mm)  & "/" &  cstr(aa)
Che complicazione!
Perchč non ci spieghi cosa vuoi fare, cosě possiamo aiutarti a trovare una
soluzione piů elegante?
Ciao
Mida

 ha scritto nel messaggio 
news:%cWTe.35620$4g5.2...@news4.tin.it...

ecco un po di quello che voglio fare
Database in access le date sono scritte in gg/mm/aaaa
<form action="include/inc_report_visite.asp" method="post" target="reserch">
<input type= "text" maxlength="10" size="12" class="text" name= "data1" 
value="" >
<input type= "text" maxlength="10" size="12" class="text" name= "data2" 
value="" >
pagina successiva:
 data1 = Replace(Request.Form("data1"), "'", "''")
 data2 = Replace(Request.Form("data2"), "'", "''")
'gestione delle date in access per la query between restituisce mm/gg/aaaa
 data = data1
 gg = mid(data,4,2)
 mm = mid(data,1,2)
 aa = mid(data,7)
 new_data1 = cstr(gg)  & "/" &  cstr(mm)  & "/" &  cstr(aa)
 data = data2
 gg = mid(data,4,2)
 mm = mid(data,1,2)
 aa = mid(data,7)
 new_data2 = cstr(gg)  & "/" &  cstr(mm)  & "/" &  cstr(aa)
'---Recupero dal database le visite con  l'intevallo di date
 SQLVisite = " SELECT * FROM Attivita WHERE data_attivita BETWEEN #" & 
new_data1 & "# AND #" & new_data2 & "#"&"order by data_attivita"
 Set RSVisite = conn.Execute(SQLVisite)
<form action="inc_invia_visite.asp?data1=<%= new_data1 %>&data2=<%= 
new_data2 %> " method="post">
<input type="submit" value="Concludi Visite" name="Cerca"> </form>
Pagina successiva:
'---Salvo i parametri della QueryString
 data1 = Request.QueryString("data1")
 data2 = Request.QueryString("data2")
'---Leggo il contenuto del carrello per inviare la mail all'azienda con le 
visite fatte
  SQLVisite = " SELECT ID_Attivita..... WHERE data_attivita BETWEEN #" & 
data1 & "# AND #" & data2 & "#"&"order by data_attivita, ragione_sociale
arrivo qua e poi invio una mail
MailBody = BodyVisitaClientiAzienda
MailBody = Replace(MailBody, "[data1]", data1, 1, -1, 1)
MailBody = Replace(MailBody, "[data2]", data2, 1, -1, 1)
Qua perň le date devono essere in formato originale in quanto il corpo della 
mail fa:
b>Report visite clienti</b><br><br> Da:   [data1]  A:  [data2] 
<br><br>Agente: [nome] [cognome]  <br><br>
hai capito perche prima devo leggere in un formato e poi ritornare alla 
versione originale?
:-)