Year Countsdown

[JDS2018 1]

Hi

Can Someone help me on below

 

i need to make app count down for 1 Year

 

Let Say if i set Date for  2021 Dec 31

 

need to see  to the Set Date

How Many Year , months , Days , Hours , Mints, Seconds Left

 

 

 

 

[aehimself 396]

If DateInFuture > Now Then
  seconds := SecondsBetween(Now, DateInFuture)
else
  // Date already passed

Then you can divide seconds down to years, months, etc.

 

Alternatively, you can use YearsBetween, MonthsBetween, etc.

Edited December 7, 2020 by aehimself

[David Heffernan 2345]

https://stackoverflow.com/questions/65186802/countdown-timer-in-delphi

 

Please don't cross post, or if you do, refer to the preferred version. 

[Guest]

5 hours ago, David Heffernan said:

https://stackoverflow.com/questions/65186802/countdown-timer-in-delphi

 

Please don't cross post, or if you do, refer to the preferred version. 

NOT FOUND! 404

Quote

This question was removed from Stack Overflow for reasons of moderation. Please refer to the help center for possible explanations why a question might be removed.

 

Google it: "Delphi stackoverflow countdown timer" for many others

Edited December 8, 2020 by Guest

[Bill Meyer 337]

6 hours ago, JDS2018 said:

Hi

Can Someone help me on below

 

i need to make app count down for 1 Year

 

Let Say if i set Date for  2021 Dec 31

 

need to see  to the Set Date

How Many Year , months , Days , Hours , Mints, Seconds Left

 

 

 

 

You say you want a count down, but then you ask for an interval. Which is it that you need?

[FPiette 382]

@JDS2018 It is time now, you the original poster, to give explanations about what you need to do.

 

This looks like a home work you have been assigned to do.

 

If this is the case, this would be bad that we write the code for you. You would learn much more if you try by yourself and ask small questions, one at a time, about what you cannot do. You have to prove you have done some research by yourself. And if you did and you can't still find, I'm sure someone here will help you.

 

If you are a developer and faced with a real world problem such as a way to protect some software and make it stop working after one year, then explain that. If this something else, explain what is it.

 

In any case, you have to prove you have done some research by yourself. And if you did and you can't still find, I'm sure someone here will help you.

 

Understood?

 

[mvanrijnen 123]

Take a look to TTimeSpan in the, System.TimeSpan unit, maybe you can do something with that.

For the years and months you can use YearsBetween/Monthsbetween. (also for the rest : )

 

 

Edited December 8, 2020 by mvanrijnen

[A.M. Hoornweg 144]

On 12/7/2020 at 6:48 PM, JDS2018 said:

Let Say if i set Date for  2021 Dec 31

 

need to see  to the Set Date

How Many Year , months , Days , Hours , Mints, Seconds Left

 

There are several pitfalls here. The most important one: months don't have a constant length.  

 

For example, assume it is February 14.   How many months and days is it until March 13?   And until March 15?

 

 

 

 

[Guest]

implementation

{$R *.dfm}

//
// Date and Time Support on your HELP SYSTEM!
//
// ALL DATE AND TIME IS STORED INTERNALLY USING A DOUBLE VALUE
// THEN YOU CAN CALCULATE IT AS ANY VALUE NUMERIC!
//
// DONT FORGET OF "Date Time" RANGE, ACCEPTED BY DELPHI, OF COURSE!
//
uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  lDateTimeStart  : TDateTime;
  lDateTimeEnd    : TDateTime;
  lDateTimeEncoded: TDateTime;
  //
  // ... hh, mm, ss, zzz = all in milliseconds values! Use "word" type, because this value goes to 0..65535
  lYears   : word;
  lMonths  : word;
  lDays    : word;
  lHours   : word;
  lMinutes : word;
  lSeconds : word;
  lMilliSec: word;
  //
  lDaysDouble     : Double;
  lMilliSecsDouble: Double;
begin
  //
  // StrDateTime dont use "milliseconds" try other function!
  //
  // format in Brazil! dd/mm/yyyy
  //
  // using default function in your IDE:
  lDateTimeStart := StrToDateTime('14/02/2020 00:00:01'); { 00:00:00.000 or dont inform to equal to '' }
  lDateTimeEnd   := StrToDateTime('15/03/2020 00:00:00'); { 00:00:00.000 }
  //
  // see all other functions this unit for easy calculate!
  //
  // Using new funtions in DateUtils.pas unit!
  lDays       := DateUtils.DaysBetween(lDateTimeEnd, lDateTimeStart); // dif between to dates include time
  lDaysDouble := DateUtils.DaySpan(lDateTimeEnd, lDateTimeStart);     // Returns the number of days (including fractional days) between two specified TDateTime values.
  // ... etc to Months and Year ... and time values
  // if value have "a rest" then, this "rest is a "TIME" value!
  //
  // Try change the value of "time" above for one or two vars lDateTime...
  if not(lDays = lDaysDouble) then // days.hours-fraction
  begin
    lMilliSecsDouble := DateUtils.MilliSecondSpan(lDateTimeEnd, lDateTimeStart); // 0.nnnnnn
    //
    // lHours := DateUtils.HourOf(lMilliSecsDouble); ... etc!
    //
    // decoding a TDateTime value or your value in format "n.m"
    DecodeDateTime(lMilliSecsDouble, lYears, lMonths, lDays, lHours, lMinutes, lSeconds, lMilliSec);
    ShowMessage(Format('%d/%d/%d %d:%d:%d:%d', [lYears, lMonths, lDays, lHours, lMinutes, lSeconds, lMilliSec]));
    //
    // from here, you have a "AV" because "Years, Months, Days" is = 0/0/0 == Invalid Date! you need verify this!
    //
    // one way:
    // lDays   := 01;
    // lMonths := 01;
    // lYears  := 01;
    //
    lDateTimeEncoded := EncodeDateTime(lYears, lMonths, lDays, lHours, lMinutes, lSeconds, lMilliSec);
    //
    DateUtils.RecodeDateTime(lDateTimeEncoded, lYears, lMonths, lDays, lHours, lMinutes, lSeconds, lMilliSec);
    //
    // or
    //
    ShowMessage(FormatDateTime('01/01/01 hh:mm:ss.zzz', lDateTimeEncoded)); // other way...
    // or
    // ShowMessage(DateTimeToStr(lDateTimeEncoded));
    //
    // SUMMARYING:  THERE IS MANY OTHER FUNCTION IN YOUR IDE - OTHER MORE EASY THAN THESE!
    // READ YOU HELP!
  end;
end;

 

Edited December 10, 2020 by Guest

[A.M. Hoornweg 144]

@emailx45 you're kinda missing the point.  Decoding is not the issue here.

 

My point is that a "month" does not have a constant value.  So expressing a countdown as "2 months and 5 days left until..." is totally vague. 

 

If there is a distance of 29 days between two dates, that distance can be either exactly one month, one month plus a day, one month minus a day or one month minus two days, depending on where in the calendar you are. 

[FPiette 382]

10 minutes ago, A.M. Hoornweg said:

So expressing a countdown as "2 months and 5 days left until..." is totally vague. 

I don't think so because it is not any month. The expression is related to the current date. So everybody will perfectly understand how long 2 months and 5 days from now represent. IMO better that 66 days.

 

By the way, this discussion is totally useless an uninteresting 🙂 🙂 🙂

[Lajos Juhász 293]

10 minutes ago, FPiette said:

So everybody will perfectly understand how long 2 months and 5 days from now represent. IMO better that 66 days.

According to Delphi it's not 66 days but 67:

Date: 15.02.2021
Days between: 67

 

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.DateUtils;

var X: Tdate;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
   x:=IncDay(IncMonth(now, 2), 5);
   WriteLn('Date: '+DateToStr(x));
   WriteLn('Days between: '+IntToStr(DaysBetween(x, now)));
   ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

 

[Guest]

6 hours ago, A.M. Hoornweg said:

My point is that a "month" does not have a constant value.  So expressing a countdown as "2 months and 5 days left until..." is totally vague. 

I think that YOU should see the functions by IDE. your answer is in read your help first.

Second, the time countdown or up cannot  be different in any place of world. be 28, 29, 30 or 31 days in months.

 

NOTE: IF your calendar is another, just see in your as convert it using the functions ready. if necessary search on GitHub exist many libs for this.

 

 

as explaned just do the calculate using the sample above, read your help and 'find' the function necessary or do it "by hand" using math operators, like: +/, mod etc...

 

of course, I dont give any final solution, just sample using some of dozen functions ready in RAD!

 

here we say some like this:

You're looking hair in egg!

Edited December 10, 2020 by Guest

[David Heffernan 2345]

6 hours ago, A.M. Hoornweg said:

My point is that a "month" does not have a constant value.  So expressing a countdown as "2 months and 5 days left until..." is totally vague. 

The months between now and a fixed date in the future do have known numbers of days. 

[Guest]

my fault!

Edited December 13, 2020 by Guest

[Guest]

On 12/7/2020 at 2:48 PM, JDS2018 said:

Hi

Can Someone help me on below

 

i need to make app count down for 1 Year

 

Let Say if i set Date for  2021 Dec 31

 

need to see  to the Set Date

How Many Year , months , Days , Hours , Mints, Seconds Left

try my sample using DateUtils.pas functions:

 m

[FPiette 382]

Quote

lHours := System.DateUtils.HoursBetween(lDTFuture, lDTnow) mod 24;

@emailx45Using mod defeat all the purpose.

Assuming now is sunday 08:07 and future is tuesday 09:20 there are 49 hours (Minutes truncated). Your formula will give 1 hour.

Same for all your calculations.

[Guest]

to Hours, Minutes and Seconds, it's ok! using "mod" operator! the "countdown" works as expected!

Just Years, Months and Days NOT because the many possibilities in this calculate!