Hi All,

Can anyone please help with following to make it work with hours?

function IncDay(const aValue: DateTime;aNumberOfDays:integer=1):DateTime;
begin
Result:=aValue;
if aNumberOfDays>0 then
  begin
Result:=EncodeDateTime(YearOf(aValue),MonthOf(aValue),DayOf(aValue),0,0,0,0)+((aNumberOfDays*MillSecDay)+(2*MillSecHour));
Result:=EncodeDateTime(YearOf(Result),MonthOf(Result),DayOf(Result),0,0,0,0);
  end;
end;

I want to change datetime field with hours instead of days

Thanks in advance.

Hüseyin

Hüseyin Aliz wrote:

> Can anyone please help with following to make it work with hours?

function IncMinute(tmWhen : DateTime; nMinutes : Integer) : DateTime;
begin
   Result := tmWhen + (nMinutes * 60 * 1000);
end;

function IncSecond(tmWhen : DateTime; nSeconds : Integer) : DateTime;
begin
   Result := tmWhen + (nSeconds * 1000);
end;

function IncMilliSecond(tmWhen : DateTime; nMilliseconds : Integer) : DateTime;
begin
   Result := tmWhen + nMilliseconds;
end;

function IncHour(tmWhen : DateTime; nHours : Integer) : DateTime;
begin
//    Result := tmWhen + (nHours * 1000 * 60 * 60);
   Result := tmWhen + (nHours * 3600000);
end;

--

Matthew Jones

Matthew,

Thanks

Regards,

Hüseyin


Den 04-04-2017 kl. 16:24 skrev Matthew Jones:
> Hüseyin Aliz wrote:
>
>> Can anyone please help with following to make it work with hours?
> function IncMinute(tmWhen : DateTime; nMinutes : Integer) : DateTime;
> begin
>      Result := tmWhen + (nMinutes * 60 * 1000);
> end;
>
> function IncSecond(tmWhen : DateTime; nSeconds : Integer) : DateTime;
> begin
>      Result := tmWhen + (nSeconds * 1000);
> end;
>
> function IncMilliSecond(tmWhen : DateTime; nMilliseconds : Integer) : DateTime;
> begin
>      Result := tmWhen + nMilliseconds;
> end;
>
> function IncHour(tmWhen : DateTime; nHours : Integer) : DateTime;
> begin
> //    Result := tmWhen + (nHours * 1000 * 60 * 60);
>      Result := tmWhen + (nHours * 3600000);
> end;
>