20 febbraio 2003 alle 16:35:44 Modificato il 23 maggio 2003 alle 19:47:15Mi potete aiutare??? nel file includes/functions-inc.asp c'è la seguente istruzione,
' Convert a string to a date or datetime ' IN : sDate (string) : source (format YYYYMMDD HH:MM:SS or YYYYMMDD) ' OUT : (datetime) : destination Function StringToDate(sDate) Dim dDate dDate = DateSerial(Left(sDate, 4), Mid(sDate, 5, 2), Mid(sDate, 7, 2)) If Len(sDate) > 14 Then dDate = dDate + TimeSerial(Mid(sDate, 10, 2), Mid(sDate, 13, 2), Mid(sDate, 16, 2)) StringToDate = dDate End Function
io ne dovrei fare una simile con questo formato (format YYYYMMDDHHMMSS)c'è qualcuno in grado di aiutarmi???
GRAZIE
giorgio_anastasi Amatore
26 Discussioni
20 febbraio 2003 alle 17:08:16 Modificato il 20 febbraio 2003 alle 17:11:57' Convert a string to a date or datetime ' IN : sDate (string) : source (format YYYYMMDDHHMMSS or YYYYMMDD) ' OUT : (datetime) : destination Function StringToDate(sDate) Dim dDate dDate = DateSerial(Left(sDate, 4), Mid(sDate, 5, 2), Mid(sDate, 7, 2)) If Len(sDate) > 8 Then dDate = dDate + TimeSerial(Mid(sDate, 9, 2), Mid(sDate, 11, 2), Mid(sDate, 13, 2)) StringToDate = dDate End Function
Perchè tu hai l'istruzione ? : If Len(sDate) > 14
invece di avere : If Len(sDate) > 8
Booooo?
netangel Amatore
38 Discussioni
20 febbraio 2003 alle 18:42:59 Modificato il 20 febbraio 2003 alle 18:44:54Proprio non va, neanche con il tuo aiuto !!!!!
21 febbraio 2003 alle 11:22:07 Non sono sicuro di aver capito bene: tu vuoi una funzione che converta una data in una stringa tipo "20030221103040" o una funzione che data questa stringa te la converta in una data? Nel secondo caso, devi semplicemente cambiare le posizioni in cui leggere ore minuti e secondi:
' Convert a string to a date or datetime ' IN : sDate (string) : source (format YYYYMMDD HH:MM:SS or YYYYMMDD) ' OUT : (datetime) : destination Function StringToDate(sDate) Dim dDate dDate = DateSerial(Left(sDate, 4), Mid(sDate, 5, 2), Mid(sDate, 7, 2)) If Len(sDate) > 14 Then 'oppure > 8, fa lo stesso dDate = dDate + TimeSerial(Mid(sDate, 9, 2), Mid(sDate, 11, 2), Mid(sDate, 13, 2)) StringToDate = dDate End Function
Ciao Emu
--------------- development@aspnuke.it
netangel Amatore
38 Discussioni
22 febbraio 2003 alle 12:49:00 Grazie Emu, ho risolto il problema era che dovevo definire un'altra stringa exnovo.
Log in
Cerca
Sostieni AspNuke
Un piccolo gesto per aiutarci a mantenere AspNuke.it online
Promo
MusicWebItalia.it Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.
Visitatori
Visitatori Correnti : 194 Membri : 0
Anna
Iscritti
Utenti: 18940
Ultimo iscritto : glauco Lista iscritti Messaggi privati: 3373Commenti: 2210Immagini: 39Downloads: 144Articoli: 49Pagine: 101Siti web: 558Notizie: 180Sondaggi: 11Preferiti: 5685130Post sui forum: 51195Libro degli ospiti: 4Eventi: 7
Anna
Versione stampabile | Questa pagina è stata eseguita in 1,003906 secondi.
FUNZIONALITA' PERSONALIZZATE
Per un'anima pia.........
20 febbraio 2003 alle 16:35:44 
20 febbraio 2003 alle 18:42:59 