[VB6] giorno della settimana e altro

[yyzyyz]

ciao a tutti , 2 domandine:

1) come posso fare x sapere l'ultimo giorno dell'ultima settimana del mese corrente?
2) come faccio a sapere se un file o cartella esiste o meno?

[tas]

Per la risposta 1: intendo l'ultimo giorno del mese o l'ultimo giorno dell'ultima settimana intera?
Risposta 2: usa Microsoft Scripting Runtime:

Dim fso As New FileSystemObject

If fso.FolderExists("c:\pippo") Then
    '...
End If

If fso.FileExists("c:\pippo\pippo.txt") Then
    '...
End If

[yyzyyz]

skusa tas, ultimo giorno del mese

grazie

[vonkranz]

Originariamente inviato da yyzyyz
skusa tas, ultimo giorno del mese

grazie

(1)

WeekdayName(weekday("31/01/2005"))

(2)*

If Dir([percorso&nomefile])><"" then
....
End If

*guarda l'help in linea per questa funzione.

[yyzyyz]

Originariamente inviato da vonkranz
(1)

WeekdayName(weekday("31/01/2005"))

(2)*

If Dir([percorso&nomefile])><"" then
....
End If

*guarda l'help in linea per questa funzione.

grazie vonkranz x le risposte, ma nel primo caso vorrei ke mi restituisse il numero dell'ultimo giorno del mese corrente , forse mi sono spiegato male, ammettiamo ke devo compiere delle operazioni l'ultimo giorno del mese (ogni mese), esiste un LastDayOfMonth o qualkosa del genere in vb?

[xegallo]

dim d as date
if month(date)<12 then
   d = cdate("01/" & month(date) + 1 & year(date)) -1
else
   d = cdate("01/01/"& year(date)+1)-1
end if

[tas]

Public Function LastDayOfMonth(d As Date) As Date
    LastDayOfMonth = DateSerial(Year(d), Month(d) + 1, 1) - 1
End Function

[yyzyyz]

grazie ragazzi , sono commosso x le info

cmq il codice di xegallo mi da errore su :

d = CDate("01/" & Month(Date) + 1 & Year(Date)) - 1

dicendimi tipo nn corrispondente mentre quello di tas è perfetto

cmq grazie a tutti

[xegallo]

effettivamente mancava il separatore tra mesi e anni ma te ne potevi pure accorgere

[yyzyyz]

Originariamente inviato da xegallo
effettivamente mancava il separatore tra mesi e anni ma te ne potevi pure accorgere

mi skusi proff..

Dim d As Date
If Month(Date) < 12 Then
   d = CDate("01/" & Month(Date) + 1 & "/" & Year(Date)) - 1
Else
   d = CDate("01/01/" & Year(Date) + 1) - 1
End If
MsgBox (d)