convert date to ticks?

[sparkle]

Hi,

Does anybody know how to convert date to ticks from a dateTimePicker?
What I'm using now isn't working.

I'm trying to use a dateTimePicker to set an appointment in Outlook
with a reminder. I need this reminder to remind the recipient 14 days
in advance.

I'm having problems with the ReminderMinutes BeforeStart. If I simply
multiply the minutes by the days, the reminder doesn't have the
checkbox checked or it is checked, but with 0 minutes. As if it can't
figure out that many minutes.

I've written some code to do this for me, but with the same results
(checkbox in the reminder set to 0 minutes).

Private Sub btnSave_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnSave.Click
Dim oApp As Outlook.Applica tion = New Outlook.Applica tion
Dim lDays As Long
Dim lMinutes As Long

lMinutes = DaysToMinutes(l Days)

' Create a new AppointmentItem .
Dim oAppt As Outlook.Appoint mentItem =
oApp.CreateItem (Outlook.OlItem Type.olAppointm entItem)

oAppt.Subject = "Parking Permits Will expire in two weeks"
oAppt.Body = "Let Employees with Parking Permits know the
expiration date is two weeks away"
oAppt.Location = "Watsonvill e"
oAppt.Start = Convert.ToDateT ime(dtpExpired. Value)
oAppt.End = Convert.ToDateT ime(dtpExpired. Value)
oAppt.ReminderS et = True
oAppt.ReminderM inutesBeforeSta rt = lMinutes

' Save to Calendar.
oAppt.Save()

' Clean up.
oApp = Nothing
oAppt = Nothing

End Sub

Function DaysToMinutes(B yVal days As Long) As Long
Return days =20160
End Function

End Class

Does anybody know if the TimeStamp would work better for subtracting
days? If so, how do I convert the date to ticks?

Here is a TimeSpan string that could be used to show negative values:
"[-]14:00:00:00", but this is using ticks...

Thanks,

[Sven Groot]

sparkle wrote:

Return days =20160

I don't know it this is your problem or just a typo in the post, but that
should obviously not be an equals sign. It would return zero as you
described, since 'days=20160' equals false.

--
Sven Groot

http://unforgiven.bloghorn.com

[Cor Ligthert]

Hi Sparkle,

Why are you sending such a large piece of code that has nothing to do with
this.

Does anybody know how to convert date to ticks from a dateTimePicker?

Simple questions are eays to answer however when the rest of the text seems
to have no relation with the question you mostly get no answer. Here is a
direct answer on your question where I added 14 days in advance)

Dim InTicksDatePlus Fourteen As Long = _
CDate(DateTimeP icker1.Text).Ad dDays(14).Ticks

I hope this helps?

Cor

[Herfried K. Wagner [MVP]]

* hr****@hra.co.s anta-cruz.ca-dot-us.no-spam.invalid (sparkle) scripsit:

Does anybody know how to convert date to ticks from a dateTimePicker?
What I'm using now isn't working.

'Me.DateTimePic ker1.Value.Tick s'.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>