Problema con le date: registra il mese anziché il giorno

[mmaria]

Ciao amici da Maria.
Ho un grossissimo problema. A volte, quando on line registro in un db, al momento di registrarmi la data e l'ora esatta di quando sto registrando, nel campo LastDate, mi registra al contrario mese e giorno. E così 05.07.2004 mi diventa 07.05.2004 ovvero dal cinque luglio mi dice invece che è il 7 maggio. Un vero problema che non riesco a risolvere.
Non saprei dove intervenire.

Vi scrivo lo script che indica la registrazione della data, che ci sia qualche errore?

eccolo:


db.execute("Update tblTopic set LastDate = '" & Now & "', Replies = Replies + 1 where PostID = " & ReplyToID)


Può dipendere da aulche errore commesso in questo script?
Aiutatemi. Grazie in anticipo.

maria

[deleted_c]

cercato sul forum?!
viene chiesto almeno una volta al giorno...

[Mems]

Il problema è dovuto al seguente motivo: il server online (come di norma) ha un sistema operativo in inglese e, come ben sai, le date nel formato inglese sono composte da mm/dd/yyyy. A causa di questo le funzioni sulle date di vbScript (o JScript) formattano la data in quel modo. Lo stesso fa l'engine del database, ovvero il driver che si usa per connettersi al database o il provider di connessione.
La soluzione è quella di iniziare ad abituarsi sin da subito a trattare le date nel formato inglese per memorizzarle e/o selezionarle da db e di cambiarle nel formato italiano per visualizzarle sulle pagine web.

[kluster]

Function FormatDateTimeLCID (str, nNamedFormat, nLCID)		
dim strRet, nOldLCID					
	strRet = str						
	nOldLCID= Session.LCID		
	On Error Resume Next					
	If (nLCID > -1) Then  Session.LCID = nLCID		
	strRet = FormatDateTime(str, nNamedFormat)
	If (nLCID > -1) Then Session.LCID = nOldLCID
	FormatDateTimeLCID = strRet				
End Function

Con questa funnzione inserisci il dato nel formato che vuoi
FormatDateTimeLCID(Now,2,1040) formato italiano
FormatDateTimeLCID(Now,2,1033) formato inglese
Io ho inserito 2 solo per esempio (vbshortDate),cmq i parametri nNamedFormat sono gli stessi di FormatDateTime

[mmaria]

Function FormatDateTimeLCID (str, nNamedFormat, nLCID)		
dim strRet, nOldLCID					
	strRet = str						
	nOldLCID= Session.LCID		
	On Error Resume Next					
	If (nLCID > -1) Then  Session.LCID = nLCID		
	strRet = FormatDateTime(str, nNamedFormat)
	If (nLCID > -1) Then Session.LCID = nOldLCID
	FormatDateTimeLCID = strRet				
End Function

E questa funzione dove la scrivo?

[kluster]

La metti in un include o la scrivi in cima alla pagina dove la utilizzi

Function FormatDateTimeLCID (str, nNamedFormat, nLCID)		
dim strRet, nOldLCID					
	strRet = str						
	nOldLCID= Session.LCID		
	On Error Resume Next					
	If (nLCID > -1) Then  Session.LCID = nLCID		
	strRet = FormatDateTime(str, nNamedFormat)
	If (nLCID > -1) Then Session.LCID = nOldLCID
	FormatDateTimeLCID = strRet				
End Function

'....altro tuo codice
db.execute("Update tblTopic set LastDate = '" & FormatDateTimeLCID
(Now,2,1040) & "', Replies = Replies + 1 where PostID = " & ReplyToID) 
'......altro tuo codice

La stessa funzione la puoi anche utilizzare quando vai a leggere il valore dal database

dataDb = FormatDateTimeLCID(RecordSet("LastDate"),2,1040)

[mmaria]

Ciao Kluster ho cambiato il mio codice inserendo
db.execute("Update tblTopic set LastDate = '"& FormatDateTimeLCID(Now,2,1040) &"', Replies = Replies + 1 where PostID = " & ReplyToID)

Mi daquesto errore:

Errore di run-time di Microsoft VBScript errore "800a01f4'

Variabile non definita: 'FormatDateTimeLCID'




Che devo fare?

[99eros9]

richiama la funzione con call

[mmaria]

Che significa richiama la funzione con call?

[mmaria]

non capisco