Solved

how to use time and date

Posted on 1998-09-07
6
156 Views
Last Modified: 2010-04-06
how to insert  TIME AND DATE  in a form and use it in our application(example i need to run a function at 3:00 AM  on monday )
please i need the full procedure + an example
0
Comment
Question by:raslan
6 Comments
 

Author Comment

by:raslan
ID: 1338897
Edited text of question
0
 
LVL 2

Expert Comment

by:kjteng
ID: 1338898
Put a timer in the form and check the time at regular interval. Is this what you want?
0
 
LVL 10

Accepted Solution

by:
viktornet earned 150 total points
ID: 1338899
Add a timer to the form....set the Imterval to whatever valuie you want  1000 = 1sec
In OnTimer() add this code...
procedure TFOrm1.TimerTimer1....
var
  MyTime : TDateTime;
begin
  MyTime := StrToTime('3:00am');
  if Time >= MyTime then
  begin
    //Do you stuff here....it's already 3:00am...
  end;
end;

Regards,
Viktor Ivanov
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 10

Expert Comment

by:viktornet
ID: 1338900
Here is the full procedure.......

procedure TForm1.Timer1Timer(Sender: TObject);
var
  MyTime : TDateTime;
begin
  MyTime := StrToTime('3:00am');
  if (Time >= MyTime) and (DayOfWeek(Date) = 2) then//Sunday = 1, Monday = 2
  begin
    timer1.enabled := false;
    ShowMessage('Hello there, it''s 3:00am');
  end;
end;

0
 
LVL 1

Expert Comment

by:pjdb
ID: 1338901
WaitForSingleObject is *theorically* better :

Case WaitForSingleObject(Application.Handle, (DateTimeReActivation - Now) * 86400 * 1000) Of
//WAIT_ABANDONED:
//WAIT_OBJECT_0      :
WAIT_TIMEOUT:
  {Action}
End;

JDB
0
 
LVL 10

Expert Comment

by:viktornet
ID: 1338902
Hello???

Are oyu going to accept or reject my answer. Please do one of the two. Thanks

Regards,
Viktor Ivanov
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Downloading email attachments 2 83
Delphi IDE crash without error message ... 7 114
creating threads in delphi 1 158
Firemonkey BASS_Init into a thread 17 53
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…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …

735 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