Тренажер работы с датой и временем

@Samrisbe · Регистрация: 28.01.2011

Студворк — интернет-сервис помощи студентам

Всем добрый день! Вот от сюда взял код проекта по работе с датой и временем.
Создал новый проект и мне выдало аж 25 ошибок, я их немного изучил и понял что механических ошибок там нет, возможно что то надо за инклудить или глобально объявить очем автор листинга умолчал...
Решим проблему думаю такой исходник пригодится многим.

Код проекта:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
  DateFormat = "dd.mm.yy ";
  TimeFormat = "hh:nn";
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OkButtonClick(TObject *Sender)
{
  TDateTime DateTime = TDateTime::CurrentDateTime();
 
      CurrenDatetTimeLabel->Caption = DateTime.DateTimeString();
      CurrentDateLabel->Caption = DateTime.DateString();
      CurrentTimeLabel->Caption = DateTime.TimeString();
 
      int DayOfWeek = DateTime.DayOfWeek();
      switch(DayOfWeek)
         {
            case 1:
               DayOfWeekLabel->Caption = "сейчас воскресенье, " + AnsiString(DateTime);
            break;
            case 2:
               DayOfWeekLabel->Caption = "сейчас понедельник, " + AnsiString(DateTime);
            break;
            case 3:
               DayOfWeekLabel->Caption = "сейчас вторник, " + AnsiString(DateTime);
            break;
            case 4:
               DayOfWeekLabel->Caption = "сейчас среда, " + AnsiString(DateTime);
            break;
            case 5:
               DayOfWeekLabel->Caption = "сейчас четверг, " + AnsiString(DateTime);
            break;
            case 6:
               DayOfWeekLabel->Caption = "сейчас пятница, " + AnsiString(DateTime);
            break;
            case 7:
               DayOfWeekLabel->Caption = "сейчас суббота, " + AnsiString(DateTime);
            break;
         }
 
      DateTime = TDateTime::FileDateToDateTime(FileAge(Application->ExeName));
      FileDatetTimeLabel->Caption = "дата и время файла: " + DateTime.DateTimeString();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ExitButtonClick(TObject *Sender)
{
   Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::DateDifferenceClick(TObject *Sender)
{
   TCursor OldCursor = Screen->Cursor;
      Screen->Cursor = crHourGlass;
 
      TDateTime StartDateTime = TDateTime::CurrentDateTime();
 
      for(int i = 0; i < 500000; i++)
         {
            TDateTime(TDateTime::CurrentDateTime().DateTimeString());
            Application->ProcessMessages();
         }
 
      TDateTime EndDateTime = TDateTime::CurrentDateTime();
 
      Screen->Cursor = OldCursor;
 
      DateDifferenceLabel->Caption = (EndDateTime - StartDateTime).TimeString();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::IncrementDateButtonClick(TObject *Sender)
{
      static TDateTime DateTime = TDateTime::CurrentDateTime();
      IncrementDateLabel->Caption = (DateTime++).DateTimeString();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::DateAdditionButtonClick(TObject *Sender)
{
   static TDateTime DateTime = TDateTime::CurrentDateTime();
      DateAdditionLabel->Caption =(DateTime += 1.125).DateTimeString();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::TimerTimer(TObject *Sender)
{
    FormatDateTimeLabel->Caption = TDateTime::CurrentDateTime().
        FormatString(DateFormat + TimeFormat);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FullDateCheckBoxClick(TObject *Sender)
{
  if(FullDateCheckBox->Checked)
         DateFormat = "dddddd ";
      else
         DateFormat = "ddddd ";
 
      FormatDateTimeLabel->Caption = TDateTime::CurrentDateTime().
        FormatString(DateFormat + TimeFormat);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FullTimeCheckBoxClick(TObject *Sender)
{
  if(FullTimeCheckBox->Checked)
         TimeFormat = "hh:nn:ss";
      else
         TimeFormat = "hh:nn";
 
      FormatDateTimeLabel->Caption = TDateTime::CurrentDateTime().
        FormatString(DateFormat + TimeFormat);
}
//---------------------------------------------------------------------------

Ошибки причем одинаковые:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
[BCC32 Error] Unit1.cpp(15): E2451 Undefined symbol 'DateFormat'
  Full parser context
    Unit1.cpp(13): parsing:  _fastcall TMainForm::TMainForm(TComponent *)
[BCC32 Error] Unit1.cpp(16): E2451 Undefined symbol 'TimeFormat'
  Full parser context
    Unit1.cpp(13): parsing:  _fastcall TMainForm::TMainForm(TComponent *)
[BCC32 Error] Unit1.cpp(31): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(31): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(34): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(34): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(37): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(37): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(40): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(40): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(43): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(43): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(46): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(46): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(49): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(49): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(20): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(96): E2451 Undefined symbol 'FormatDateTimeLabel'
  Full parser context
    Unit1.cpp(95): parsing: void _fastcall TMainForm::TimerTimer(TObject *)
[BCC32 Error] Unit1.cpp(97): E2451 Undefined symbol 'DateFormat'
  Full parser context
    Unit1.cpp(95): parsing: void _fastcall TMainForm::TimerTimer(TObject *)
[BCC32 Error] Unit1.cpp(97): E2451 Undefined symbol 'TimeFormat'
  Full parser context
    Unit1.cpp(95): parsing: void _fastcall TMainForm::TimerTimer(TObject *)
[BCC32 Error] Unit1.cpp(103): E2451 Undefined symbol 'DateFormat'
  Full parser context
    Unit1.cpp(101): parsing: void _fastcall TMainForm::FullDateCheckBoxClick(TObject *)
[BCC32 Error] Unit1.cpp(107): E2451 Undefined symbol 'FormatDateTimeLabel'
  Full parser context
    Unit1.cpp(101): parsing: void _fastcall TMainForm::FullDateCheckBoxClick(TObject *)
[BCC32 Error] Unit1.cpp(108): E2451 Undefined symbol 'TimeFormat'
  Full parser context
    Unit1.cpp(101): parsing: void _fastcall TMainForm::FullDateCheckBoxClick(TObject *)
[BCC32 Error] Unit1.cpp(114): E2451 Undefined symbol 'TimeFormat'
  Full parser context
    Unit1.cpp(112): parsing: void _fastcall TMainForm::FullTimeCheckBoxClick(TObject *)
[BCC32 Error] Unit1.cpp(118): E2451 Undefined symbol 'FormatDateTimeLabel'
  Full parser context
    Unit1.cpp(112): parsing: void _fastcall TMainForm::FullTimeCheckBoxClick(TObject *)
[BCC32 Error] Unit1.cpp(119): E2451 Undefined symbol 'DateFormat'
  Full parser context
    Unit1.cpp(112): parsing: void _fastcall TMainForm::FullTimeCheckBoxClick(TObject *)

cpp_developer · 21.10.2011, 17:40

C++
1
Ambiguity between

пробуй указать область видимости:

C++
1
::

C++
1
Cannot cast from 'TDateTime' to

можно попробовать:

C++
1
2
3
AnsiString DATE_TIME = FormatDateTime("YYYY-MM-DD",Date())+
                       "-"
                       +FormatDateTime("HH:NN:SS:ZZZ",Time());

, btw, я тебе это уже показывал

Добавлено через 1 минуту
и цитируй строку, к которой относятся ошибки, потому что в твоем цитатнике строка № 20 - пуста.

@nick42 · 21.10.2011, 17:51

А у меня при компиляции все ошибки (8 шт) свелись к двум: Undefined symbol `DateFormat` (`TimeFormat`), но это, я думаю, ограниченность 5-й версии Билдера.

cpp_developer · 21.10.2011, 19:04

nick42, там упоминаются библиотеки Sysutils.hpp, systdate.h - подключать (#include ...) не пробовал ?

@Samrisbe · 21.10.2011, 19:19 **[ТС]**

Сообщение от LK

nick42, там упоминаются библиотеки Sysutils.hpp, systdate.h - подключать (#include ...) не пробовал ?

Попробовал не помогает.

@nick42 · 21.10.2011, 19:45

Я прошарил весь Борландовский каталог в поисках этих злосчастных TimeFormat, но что ни подставлял в инклюды - корректно не работает; из чего и сделал вывод, что эти функции в более поздних версиях реализованы. ХПП-шек с такими функциями у меня в заначке хватает, но нормально устанавливаться они не желают, - капризничают (я, правда, далеко не все пробовал).

mimicria · 21.10.2011, 20:31

TDateTime is the C++ analog for the Object Pascal TDateTime data type.
Header: systdate.h

Сообщение от nick42

Я прошарил весь Борландовский каталог в поисках этих злосчастных TimeFormat

Я так понял это из самого исходника, нет?

C++
1
2
  DateFormat = "dd.mm.yy ";
  TimeFormat = "hh:nn";

Добавлено через 7 минут
По ссылке:
В секции private класса формы объявлены две переменные: DateFormat для формата даты; TimeFormat для формата времени. Код:

C++
1
private: AnsiString DateFormat; AnsiString TimeFormat;

В конструкторе формы задаются начальные значения этих переменных:

C++
1
DateFormat = "dd.mm.yy "; TimeFormat = "hh:nn";

@QVO · 21.10.2011, 20:45

C++
1
2
3
4
5
6
7
8
// Объявили
TDateTime DT;
//Заполнили
DT = Now();
// Передали в строку
AnsiString D = FormatDateTime("dd.mm.yyyy", DT);
AnsiString T = FormatDateTime("hh:mm:ss", DT);
// Можем вывести

@Samrisbe · 21.10.2011, 21:15 **[ТС]**

Я применил совет mimicrii и вот результат

Строки которые не нравятся компилятору

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
//---------------------------------------------------------------------------
void __fastcall TMainForm::OkButtonClick(TObject *Sender)
{
  TDateTime DateTime = TDateTime::CurrentDateTime();
 
      CurrenDatetTimeLabel->Caption = DateTime.DateTimeString();
      CurrentDateLabel->Caption = DateTime.DateString();
      CurrentTimeLabel->Caption = DateTime.TimeString();
 
      int DayOfWeek = DateTime.DayOfWeek();
      switch(DayOfWeek)
         {
            case 1:
      DayOfWeekLabel->Caption = "сейчас воскресенье, " + AnsiString(DateTime);// 2 ошибки сдесь
            break;
            case 2:
               DayOfWeekLabel->Caption = "сейчас понедельник, " + AnsiString(DateTime);// 2 ошибки сдесь
            break;
            case 3:
               DayOfWeekLabel->Caption = "сейчас вторник, " + AnsiString(DateTime);// 2 ошибки сдесь
            break;
            case 4:
               DayOfWeekLabel->Caption = "сейчас среда, " + AnsiString(DateTime);// 2 ошибки сдесь
            break;
            case 5:
               DayOfWeekLabel->Caption = "сейчас четверг, " + AnsiString(DateTime);// 2 ошибки сдесь
            break;
            case 6:
               DayOfWeekLabel->Caption = "сейчас пятница, " + AnsiString(DateTime);// 2 ошибки сдесь
            break;
            case 7:
               DayOfWeekLabel->Caption = "сейчас суббота, " + AnsiString(DateTime);// 2 ошибки сдесь
            break;
         }
 
      DateTime = TDateTime::FileDateToDateTime(FileAge(Application->ExeName));
      FileDatetTimeLabel->Caption = "дата и время файла: " + DateTime.DateTimeString();
}
//---------------------------------------------------------------------------

Ошибки:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
[BCC32 Error] Unit1.cpp(32): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(32): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(35): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(35): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(38): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(38): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(41): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(41): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(44): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(44): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(47): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(47): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)
[BCC32 Error] Unit1.cpp(50): E2015 Ambiguity between '_fastcall System::AnsiStringT<0>::AnsiStringT(int) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:415' and '_fastcall System::AnsiStringT<0>::AnsiStringT(double) at c:\program files (x86)\embarcadero\rad studio\8.0\include\windows\rtl\dstring.h:422'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(System::TObject *)
[BCC32 Error] Unit1.cpp(50): E2031 Cannot cast from 'TDateTime' to 'AnsiString'
  Full parser context
    Unit1.cpp(21): parsing: void _fastcall TMainForm::OkButtonClick(TObject *)

В каждой строке по две и одинаковые...

@QVO · 21.10.2011, 22:44

Samrisbe, http://www.yevol.com/bcb/Lesson33.htm

@Samrisbe · 23.10.2011, 20:58 **[ТС]**

Чет не получается, чес слов сижу над этим целый день.

@Programmer. · 24.10.2011, 07:43

Samrisbe,

На тебе, я как то не в уме еe болше перекрутивать, поидука я спать

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
UnicodeString DateFormat;
UnicodeString TimeFormat;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
TDateTime DateTime;
DateFormat = FormatDateTime(L"dd.mm.yy",DateTime);
TimeFormat = FormatDateTime(L"hh:nn",DateTime);
 
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OkButtonClick(TObject *Sender)
{
  TDateTime *DateTime =new TDateTime();
 
      CurrenDatetTimeLabel->Caption =  DateTime->CurrentDateTime();
      CurrentDateLabel->Caption = DateTime->DateString();
      CurrentTimeLabel->Caption = DateTime->TimeString();
 
      int DayOfWeek = DateTime->DayOfWeek();
      switch(DayOfWeek)
         {
            case 1:
               DayOfWeekLabel->Caption = "сейчас воскресенье, " + DateTime->DateTimeString();
            break;
            case 2:
               DayOfWeekLabel->Caption = "сейчас понедельник, " + DateTime->DateTimeString();
            break;
            case 3:
               DayOfWeekLabel->Caption = "сейчас вторник, " + DateTime->DateTimeString();
            break;
            case 4:
               DayOfWeekLabel->Caption = "сейчас среда, " + DateTime->DateTimeString();
            break;
            case 5:
               DayOfWeekLabel->Caption = "сейчас четверг, " + DateTime->DateTimeString();
            break;
            case 6:
               DayOfWeekLabel->Caption = "сейчас пятница, " + DateTime->DateTimeString();
            break;
            case 7:
               DayOfWeekLabel->Caption = "сейчас суббота, " + DateTime->DateTimeString();
            break;
         }
 
 
   //    TDateTime DateTime = TDateTime::FileDateToDateTime(FileAge(Application->ExeName));
 
   TDateTime DateTime1 = DateTime->FileDateToDateTime(FileAge(Application->ExeName));
   UnicodeString DateString = DateTime1.DateTimeString();
      FileDatetTimeLabel->Caption = "дата и время файла: " + DateString;
 
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ExitButtonClick(TObject *Sender)
{
   Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::DateDifferenceClick(TObject *Sender)
{
   TCursor OldCursor = Screen->Cursor;
      Screen->Cursor = crHourGlass;
 
      TDateTime StartDateTime = TDateTime::CurrentDateTime();
 
      for(int i = 0; i < 500000; i++)
         {
            TDateTime(TDateTime::CurrentDateTime().DateTimeString());
            Application->ProcessMessages();
         }
 
      TDateTime EndDateTime = TDateTime::CurrentDateTime();
 
      Screen->Cursor = OldCursor;
 
      DateDifferenceLabel->Caption = (EndDateTime - StartDateTime).TimeString();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::IncrementDateButtonClick(TObject *Sender)
{
      static TDateTime DateTime = TDateTime::CurrentDateTime();
      IncrementDateLabel->Caption = (DateTime++).DateTimeString();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::DateAdditionButtonClick(TObject *Sender)
{
   static TDateTime DateTime = TDateTime::CurrentDateTime();
      DateAdditionLabel->Caption =(DateTime += 1.125).DateTimeString();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::TimerTimer(TObject *Sender)
{
    FormatDateTimeLabel->Caption = TDateTime::CurrentDateTime().
        FormatString(DateFormat + TimeFormat);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FullDateCheckBoxClick(TObject *Sender)
{
  if(FullDateCheckBox->Checked)
         DateFormat = "dddddd ";
      else
         DateFormat = "ddddd ";
 
      FormatDateTimeLabel->Caption = TDateTime::CurrentDateTime().
        FormatString(DateFormat + TimeFormat);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FullTimeCheckBoxClick(TObject *Sender)
{
  if(FullTimeCheckBox->Checked)
         TimeFormat = "hh:nn:ss";
      else
         TimeFormat = "hh:nn";
 
      FormatDateTimeLabel->Caption = TDateTime::CurrentDateTime().
        FormatString(DateFormat + TimeFormat);
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	21.10.2011, 17:51
	А у меня при компиляции все ошибки (8 шт) свелись к двум: Undefined symbol `DateFormat` (`TimeFormat`), но это, я думаю, ограниченность 5-й версии Билдера. 1

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	21.10.2011, 19:04
	nick42, там упоминаются библиотеки Sysutils.hpp, systdate.h - подключать (#include ...) не пробовал ? 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	21.10.2011, 19:45
	Я прошарил весь Борландовский каталог в поисках этих злосчастных TimeFormat, но что ни подставлял в инклюды - корректно не работает; из чего и сделал вывод, что эти функции в более поздних версиях реализованы. ХПП-шек с такими функциями у меня в заначке хватает, но нормально устанавливаться они не желают, - капризничают (я, правда, далеко не все пробовал). 1

@QVO 652 / 462 / 80 Регистрация: 26.10.2010 Сообщений: 1,263 Записей в блоге: 4
	21.10.2011, 22:44
	Samrisbe, http://www.yevol.com/bcb/Lesson33.htm 1

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069
	23.10.2011, 20:58 [ТС]
	Чет не получается, чес слов сижу над этим целый день. 1