Solved

Take a date and add 30 days to it; then show a message box.

Posted on 2000-02-28
2
143 Views
Last Modified: 2010-04-04
I need a procedure:

How do you take the date of (NOW) and add 30 days to that value and pass the new date to show it in a messagebox?
0
Comment
Question by:routerboy309
2 Comments
 
LVL 13

Accepted Solution

by:
Epsylon earned 50 total points
ID: 2566759
Try this:

  ShowMessage(DateTimeToStr(Now+30));
0
 

Author Comment

by:routerboy309
ID: 2566785
Thanks
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

830 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question