Function to calculate how many whole weeks between two specified dates.

 

Syntax

function WeeksBetween(dNow, dThen: double): integer;

 

Parameters and return values

Parameter

Type

Value

dNow

double

source date/time value;

dThen

double

date/time value from which we compare the value of the dtNow date.

 

Function result

Returns the number of whole weeks between two dates.

 

Example


var
  dtFrom, dtNow: double;
begin
  // MyChat version 5.20 release date
  dtFrom := EncodeDateTime(2016, 6, 9, 0, 0, 0, 0);
  // and now
  dtNow  := Now;
  // print this dates
  mLogScript('From date: ' + FormatDateTime('mm.dd.yyyy hh:nn:ss', dtFrom), '');
  mLogScript('To date: ' + FormatDateTime('mm.dd.yyyy hh:nn:ss', dtNow), '');
  
  mLogScript('Weeks after MyChat 5.20 release date: ' + IntToStr(WeeksBetween(dtFrom, dtNow)), '');
end.


Script work result

[13:30:29] (Log "WeeksBetween"): From date: 06.09.2016 00:00:00

[13:30:29] (Log "WeeksBetween"): To date: 07.07.2016 13:30:29

[13:30:29] (Log "WeeksBetween"): Weeks after MyChat 5.20 release date: 4

 

See also

IntToStr
mLogScript

Now