Home
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Down

How to compare dates and the difference between them to get an integer Find similar branches


DerZky   (2001-12-19 18:14) [0]

How to compare two dates and the difference between them is recorded in a variable of type Integer. For example, so that 21.12.2001 minus 19.12.2001 is equal to 2.



Mick   (2001-12-19 18:18) [1]

Trunc (EncodeDate (2001,12,21) - Trunc (EncodeDate (2001,12,19) is exactly equal to 2



DerZky   (2001-12-19 19:46) [2]

I wrote the following
procedure TForm1.Button1Click (Sender: TObject); var Cifra: Integer; begin Cifra: = Trunc (EncodeDate (2001,12,21)) - Trunc (EncodeDate (2001,12,19)); end;
Delphi writes - [Hint] Unit1.pas (30): Value assigned to "Cifra" never used
What is it?



LLL   (2001-12-19 21:16) [3]

This is just a warning that Cifra is not used anywhere else.
Worry - have you forgotten about Cifra?



a100   (2001-12-19 21:16) [4]

and writes correctly! And where is the obtained result generally used ?! Variable is local



Pages: 1 whole branch

Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Top









Memory: 0.82 MB
Time: 0.033 c
3-21990
Skyr
2001-12-04 03:58
2002.01.08
Problem with LookUp - margins


7-22436
Serg2
2001-09-26 18:23
2002.01.08
Collapsing all windows


1-22212
T2
2001-12-14 03:13
2002.01.08
MMTOOLS CRACK


7-22442
Alexei
2001-09-26 15:20
2002.01.08
How to determine the presence of a modem?


1-22111
Who did?
2001-12-14 08:12
2002.01.08
Create a drop-down list in StringGride, of type Lookup in DBGride





afrikaans albanian Arabic armenian azerbaijani basque belarusian bulgarian catalan Chinese (Simplified) Chinese (Traditional) croatian Czech danish Dutch English estonian filipino finnish French
galician georgian German greek haitian Creole hebrew Hindi hungarian icelandic indonesian Irish italian japanese Korean latvian lithuanian macedonian malay maltese norwegian
persian polish portuguese Romanian russian serbian slovak Slovenian Español swahili Swedish thai turkish Ukrainian urdu vietnamese welsh yiddish bengali bosnian
cebuano Esperanto gujarati hausa hmong igbo javanese kannada khmer lao latin maori marathi mongolian nepali punjabi somali tamil telugu yoruba
zulu
English French German Italian Portuguese Russian Spanish