Programma generare giorni dell'anno
Max
un prog , per generare tutti i giorni dell'anno partendo
da un dato giorno , che possa creare anche dei file.txt
con la data ,1gennaio2006, magari creando anche le
cartelle dei mesi .
Grazie a tutti
Ciao
Ivan da casa
"Max" <m...@max.max> ha scritto nel messaggio
news:43bc24ae$0$1072$4faf...@reader3.news.tin.it...
la vedrei molto facile fatta in VBA, da office o dal browser.
Se ti interessa lafacciamo assieme ..
Ivan da casa
Max
> la vedrei molto facile fatta in VBA, da office o dal browser.
> Se ti interessa lafacciamo assieme ..
>
> Ivan da casa
... ti ringrazio, di Vb non sň nulla, hai qualche linea di codice?
Ciao
Reventlov (see signature)
Questo genera le date nel formato che cerchi.
Dim m(12)
m(1)="Gennaio":m(2)="Febbraio":m(3)="Marzo"
m(4)="Aprile":m(5)="Maggio":m(6)="Giugno"
m(7)="Luglio":m(8)="Agosto":m(9)="Settembre"
m(10)="Ottobre":m(11)="Novembre":m(12)="Dicembre"
inizio= cdate(inputbox("Data iniziale", "inserisci la data", date()))
fine = cdate(inputbox("Data finale", "inserisci la data", date()+1))
diff = datediff("d",inizio,fine)
For i=1 To diff
giorno=cdate(inizio+i)
v=split(giorno,"/")
msgbox v(0) & " " & m(v(1)) & " " & v(2)
Next
'Per creare un file puoi chiamare questa funzione al posto della msgbox:
file_create( v(0) & " " & m(v(1)) & " " & v(2) &".txt")
'------------------------------------------------------------------------
' Bool File_Create( sFileName )
'------------------------------------------------------------------------
' Crea un file. Nel caso in cui gia' esiste, lo sovrascrive
' Torna True se tutto ok
'------------------------------------------------------------------------
Function File_Create( ByVal sFileName )
Dim opfs, fp
On Error Resume Next
File_Create=True
Set opfs = CreateObject("Scripting.FileSystemObject")
if Err <> 0 then
File_Create=False
Exit Function
end if
Set fp = opfs.CreateTextFile( sFileName, True )
if Err <> 0 then
set opfs = nothing
File_Create=False
Exit Function
end if
fp.Close
set opfs = nothing
Err.Clear
On Error Goto 0
End function
--
Giovanni Cenati (Aosta, Italy)
Write to user "Reventlov" and domain at katamail com
http://digilander.libero.it/Cenati (VbScript)
--
Max
... ti ringrazio.
Ciao