CrystalHacker

I am trying to create a Service contract.

I want to import a Date (CurrentContractExpires) via report parameters and then add 365 days to calculate an EndOfContractdate.

There is no Date parameter type so I used String with an input value "#07/01/2009#"

I tried A few different VB Date functions, but no luck so far.

VB did not seem to like "Date.TryParse()"

I assume CDate and DateAdd are required.

-ch

CrystalHacker

This seems to work, but it looks rather ugly...

Private datContractExpiresOn As Date
Private datNewWarrantyEndsOn As Date


'consume Expiration Date Parameter and assign it to contractExpiresOn

Dim ExpDateParam As object = ReportUtilities.ReturnParameterValue("ExpirationDa te")

datContractExpiresOn=CDate(ExpDateParam)
datNewWarrantyEndsOn=DateAdd("d",365,datContractEx piresOn)

I couldn't figure out how to handle the case when the parameter was left out.