fatto
codice:
Dim MeseCorrente as String
Dim AnnoCorrente as String
MeseCorrente = DateTime.Now
MeseCorrente = MeseCorrente.SubString(3,2)
AnnoCorrente = DateTime.Now
AnnoCorrente = AnnoCorrente.SubString(6,4)
Dim DataInizio as String
DataInizio = "01/" +MeseCorrente+ "/" +AnnoCorrente
Dim DataFineStr as String
DataFineStr = "31/" +MeseCorrente+ "/" +AnnoCorrente
Dim DataFine
'// Se Il mese corrente è Febbraio allora esegui questo ciclo
If MeseCorrente = "02" then
DataFineStr = "29/" +MeseCorrente+ "/" +AnnoCorrente
Try
DataFine = CDate(Convert.ChangeType(DataFineStr, GetType(DateTime)))
DataFine = FanoDate(DataFine)
Catch exc as exception
DataFine = "28/" +MeseCorrente+ "/" +AnnoCorrente
Finally
vstampa.navigateurl = "stampa.asp?CHECK1=FALSE&CHECK2=TRUE&Data1=" +DataInizio+ "&Data2=" +DataFine
End Try
End if
'// Fine Controllo Febbraio
Try
DataFine = CDate(Convert.ChangeType(DataFineStr, GetType(DateTime)))
DataFine = FanoDate(DataFine)
Catch exc as exception
DataFine = "30/" +MeseCorrente+ "/" +AnnoCorrente
Finally
'response.write(DataFine)
vstampa.navigateurl = "stampa.asp?CHECK1=FALSE&CHECK2=TRUE&Data1=" +DataInizio+ "&Data2=" +DataFine
End Try