Getting real time information in Dev Pascal - please HELP (urgent!)

[vµki]

I have just one more day to finish my program and I can't find a way to do this.
What I want to do is to know the real time (GMT+1) (time that is displayed in System Tray)...One variable will have a string hh:mm that I will then use for some more serious things...

Please help me ! Appreciate it a lot

[WingedPanther]

How about the Now function?

[vµki]

How about the Now function?

Never heard of that one...
If it's not too much to ask, can you write the code ?

What I need to know is the exact day and hour. Or just day...

Thanks in advance, WingedPanther !

[WingedPanther]

Check out DecodeDate and DecodeTime at: Newbie Pascal Functions

[vµki]

Just what I've been looking for

Thank you very much, Panther !

[vµki]

Ok, this isn't working...I 've got lots of procedures, and I should simply put

procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);

among those and that's it ? No begin, no end of the procedure, just that ?

How do I call her while in program ? Simply

DecodeDate;

or how ?
I'm getting errors and this is quite confusing when using for the 1st time. Can someone explain how to use this like to a 3-year old ?

[WingedPanther]

The declaration of DecodeDate is:

procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);

What this tells you is that DecodeDate requires four parameters, the date as a TDateTime, the year, month and day as integer types. The year, month and day will be updated by the function. You can use it in code like this:

procedure MyProcedure
var
  MyDate: TDateTime;
  MyMonth, MyDay, MyYear: integer;
begin
  MyDate := now(); // on Apr 4, 2009
  DecodeDate(MyDate,MyYear,MyMonth,MyDay);
  //In my timezone at the time of writing this, the variables are as follows:
  //MyMonth = 4
  //MyYear = 2009
  //MyDay = 26
end;

[vµki]

Thank you very much, Panther, you've been really helpful It's working !