Programowanie w języku Delphi

DaysBetween

  • 2010-10-31 18:27
  • 2 komentarze
  • 1913 odsłon
  • Oceń ten tekst jako pierwszy
DaysBetween
Moduł: DateUtils

function DaysBetween(const ANow, AThen: TDateTime): Integer;

Funkcja oblicza różnicę dni pomiędzy dwoma datami typu TDateTime, przekazanymi w parametrach ANow i AThen. Oto przykład wykorzystania:

program FooApp;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, DateUtils;
 
var
  A, B : TDateTime;
  Result : Integer;
begin
  A := Now;
  B := EncodeDate(2007, 06, 10);
  Result := DaysBetween(A, B);
 
  Writeln('Różnica dni: ' + IntToStr(Result));
 
  Readln;
end.


Zobacz też:

2 komentarze

Adam Boduch 2006-04-27 15:20

1) Stosujemy polskie znaki
2) Przypisujemy tekst do danej kategorii
3) Stosujemy zasady opisane w tekscie "Pomoc" (link na glownej stronie)
4) Moze jakis szerszy opis, przyklad? Zobacz jak to jest w innych tekstach

Poprawilem, ale tylko troszke, tak na szybko - bez przykladu.

Coldpeer 2006-04-27 14:32

może coś więcej? :> jakiś przykład? :>
BTW: przyjęło się, że deklarację funkcji wkleja się do <code=delphi:noframe> ;)