Вопрос Добавить 7 дней к дате

jonime

Новичок
Добрый нужно добавить 7 дней к текущей дате. Как это сделать в Inno Setup?
Насколько я понял самого типа TDateTime просто нету есть только функция:
Код:
GetDateTimeString('dd/mm/yyyy hh:nn:ss', '-', ':');
Она возвращает текущею дату а нужно +10 дней.

Если например сегодня 25.10.2017 тогда нужно 01.11.2017.

P.s. За решение проблемы готов заплатить 10$.
 

Krinkels

Он где то тут
Администратор
Вот небольшой набросок:
Код:
[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[code]
// Високосный год или нет
function is_leap_year( year: Integer ): Boolean;
begin
  if ( ( year mod 4 = 0 ) and ( ( year mod 100 <> 0 ) or ( year mod 400 <> 0 ) ) ) then
    Result := True
  else
    Result := False;
end;

function daytable( month, year: Integer ): Integer;
var
  days: array[1..12] of Integer;
begin
  days[ 1 ] :=  31;  //Jan
  days[ 2 ] :=  28;  //Feb
  days[ 3 ] :=  31;  //March
  days[ 4 ] :=  30;  //April
  days[ 5 ] :=  31;  //May
  days[ 6 ] :=  30;  //June
  days[ 7 ] :=  31;  //July
  days[ 8 ] :=  31;  //Aug
  days[ 9 ] :=  30;  //Sep
  days[ 10 ] :=  31;  //Oct
  days[ 11 ] :=  30;  //Nov
  days[ 12 ] :=  31;   //Dec

  if is_leap_year( year ) = True then
    Result := 29
  else
    Result := 28;

  if( month <> 2 ) then Result := days[ month ];
end;

// Num - на сколько увеличить текущую дату
function dateoper( Num: Integer ) : String;
var
//dd, mm, yy : String;
dd, mm, yy: Integer;
Day, mDay: Integer;
begin
    dd :=  StrToInt( GetDateTimeString( 'd', '-', ':' ) );       // День
    mm :=  StrToInt( GetDateTimeString( 'm', '-', ':' ) );       // Месяц
    yy :=  StrToInt( GetDateTimeString( 'yyyy', '-', ':' ) );    // Год
    mDay := daytable( mm,  yy );

  if ( dd + Num ) > mDay then
  begin
    Day := Num - ( mDay - dd );
    Result := Format('%d:%d:%d', [ Day, mm + 1, yy ])
  end
  else
    Result := Format('%d:%d:%d', [dd + Num, mm, yy])
end;

function InitializeSetup: Boolean;
begin
    MsgBox( dateoper( 25 ), mbInformation, MB_OK );
end;
 

jonime

Новичок
Решил добавить немного дней для теста но что-то пошло не так...

Код:
for I:=0 to 2000 do
    SaveStringToFile('test.txt', dateoper( I ) + #13#10 ,True);
12/10/2017
13/10/2017
14/10/2017
15/10/2017
16/10/2017
17/10/2017
18/10/2017
19/10/2017
20/10/2017
21/10/2017
22/10/2017
23/10/2017
24/10/2017
25/10/2017
26/10/2017
27/10/2017
28/10/2017
29/10/2017
30/10/2017
31/10/2017
1/11/2017
2/11/2017
3/11/2017
4/11/2017
5/11/2017
6/11/2017
7/11/2017
8/11/2017
9/11/2017
10/11/2017
11/11/2017
12/11/2017
13/11/2017
14/11/2017
15/11/2017
16/11/2017
17/11/2017
18/11/2017
19/11/2017
20/11/2017
21/11/2017
22/11/2017
23/11/2017
24/11/2017
25/11/2017
26/11/2017
27/11/2017
28/11/2017
29/11/2017
30/11/2017
31/11/2017
32/11/2017
33/11/2017
34/11/2017
35/11/2017
36/11/2017
37/11/2017
38/11/2017
39/11/2017
40/11/2017
41/11/2017
42/11/2017
43/11/2017
44/11/2017
45/11/2017
46/11/2017
47/11/2017
48/11/2017
49/11/2017
50/11/2017
51/11/2017
52/11/2017
53/11/2017
54/11/2017
55/11/2017
56/11/2017
57/11/2017
58/11/2017
59/11/2017
60/11/2017
61/11/2017
62/11/2017
63/11/2017
64/11/2017
65/11/2017
66/11/2017
67/11/2017
68/11/2017
69/11/2017
70/11/2017
71/11/2017
72/11/2017
73/11/2017
74/11/2017
75/11/2017
76/11/2017
77/11/2017
78/11/2017
79/11/2017
80/11/2017
81/11/2017
82/11/2017
83/11/2017
84/11/2017
85/11/2017
86/11/2017
87/11/2017
88/11/2017
89/11/2017
90/11/2017
91/11/2017
92/11/2017
93/11/2017
94/11/2017
95/11/2017
96/11/2017
97/11/2017
98/11/2017
99/11/2017
100/11/2017
101/11/2017
102/11/2017
103/11/2017
104/11/2017
105/11/2017
106/11/2017
107/11/2017
108/11/2017
109/11/2017
110/11/2017
111/11/2017
112/11/2017
113/11/2017
114/11/2017
115/11/2017
116/11/2017
117/11/2017
118/11/2017
119/11/2017
120/11/2017
121/11/2017
122/11/2017
123/11/2017
124/11/2017
125/11/2017
126/11/2017
127/11/2017
128/11/2017
129/11/2017
130/11/2017
131/11/2017
132/11/2017
133/11/2017
134/11/2017
135/11/2017
136/11/2017
137/11/2017
138/11/2017
139/11/2017
140/11/2017
141/11/2017
142/11/2017
143/11/2017
144/11/2017
145/11/2017
146/11/2017
147/11/2017
148/11/2017
149/11/2017
150/11/2017
151/11/2017
152/11/2017
153/11/2017
154/11/2017
155/11/2017
156/11/2017
157/11/2017
158/11/2017
159/11/2017
160/11/2017
161/11/2017
162/11/2017
163/11/2017
164/11/2017
165/11/2017
166/11/2017
167/11/2017
168/11/2017
169/11/2017
170/11/2017
171/11/2017
172/11/2017
173/11/2017
174/11/2017
175/11/2017
176/11/2017
177/11/2017
178/11/2017
179/11/2017
180/11/2017
181/11/2017
182/11/2017
183/11/2017
184/11/2017
185/11/2017
186/11/2017
187/11/2017
188/11/2017
189/11/2017
190/11/2017
191/11/2017
192/11/2017
193/11/2017
194/11/2017
195/11/2017
196/11/2017
197/11/2017
198/11/2017
199/11/2017
200/11/2017
201/11/2017
202/11/2017
203/11/2017
204/11/2017
205/11/2017
206/11/2017
207/11/2017
208/11/2017
209/11/2017
210/11/2017
211/11/2017
212/11/2017
213/11/2017
214/11/2017
215/11/2017
216/11/2017
217/11/2017
218/11/2017
219/11/2017
220/11/2017
221/11/2017
222/11/2017
223/11/2017
224/11/2017
225/11/2017
226/11/2017
227/11/2017
228/11/2017
229/11/2017
230/11/2017
231/11/2017
232/11/2017
233/11/2017
234/11/2017
235/11/2017
236/11/2017
237/11/2017
238/11/2017
239/11/2017
240/11/2017
241/11/2017
242/11/2017
243/11/2017
244/11/2017
245/11/2017
246/11/2017
247/11/2017
248/11/2017
249/11/2017
250/11/2017
251/11/2017
252/11/2017
253/11/2017
254/11/2017
255/11/2017
256/11/2017
257/11/2017
258/11/2017
259/11/2017
260/11/2017
261/11/2017
262/11/2017
263/11/2017
264/11/2017
265/11/2017
266/11/2017
267/11/2017
268/11/2017
269/11/2017
270/11/2017
271/11/2017
272/11/2017
273/11/2017
274/11/2017
275/11/2017
276/11/2017
277/11/2017
278/11/2017
279/11/2017
280/11/2017
281/11/2017
282/11/2017
283/11/2017
284/11/2017
285/11/2017
286/11/2017
287/11/2017
288/11/2017
289/11/2017
290/11/2017
291/11/2017
292/11/2017
293/11/2017
294/11/2017
295/11/2017
296/11/2017
297/11/2017
298/11/2017
299/11/2017
300/11/2017
301/11/2017
302/11/2017
303/11/2017
304/11/2017
305/11/2017
306/11/2017
307/11/2017
308/11/2017
309/11/2017
310/11/2017
311/11/2017
312/11/2017
313/11/2017
314/11/2017
315/11/2017
316/11/2017
317/11/2017
318/11/2017
319/11/2017
320/11/2017
321/11/2017
322/11/2017
323/11/2017
324/11/2017
325/11/2017
326/11/2017
327/11/2017
328/11/2017
329/11/2017
330/11/2017
331/11/2017
332/11/2017
333/11/2017
334/11/2017
335/11/2017
336/11/2017
337/11/2017
338/11/2017
339/11/2017
340/11/2017
341/11/2017
342/11/2017
343/11/2017
344/11/2017
345/11/2017
346/11/2017
347/11/2017
348/11/2017
349/11/2017
350/11/2017
351/11/2017
352/11/2017
353/11/2017
354/11/2017
355/11/2017
356/11/2017
357/11/2017
358/11/2017
359/11/2017
360/11/2017
361/11/2017
362/11/2017
363/11/2017
364/11/2017
365/11/2017
366/11/2017
367/11/2017
368/11/2017
369/11/2017
370/11/2017
371/11/2017
372/11/2017
373/11/2017
374/11/2017
375/11/2017
376/11/2017
377/11/2017
378/11/2017
379/11/2017
380/11/2017
381/11/2017
382/11/2017
383/11/2017
384/11/2017
385/11/2017
386/11/2017
387/11/2017
388/11/2017
389/11/2017
390/11/2017
391/11/2017
392/11/2017
393/11/2017
394/11/2017
395/11/2017
396/11/2017
397/11/2017
398/11/2017
399/11/2017
400/11/2017
401/11/2017
402/11/2017
403/11/2017
404/11/2017
405/11/2017
406/11/2017
407/11/2017
408/11/2017
409/11/2017
410/11/2017
411/11/2017
412/11/2017
413/11/2017
414/11/2017
415/11/2017
416/11/2017
417/11/2017
418/11/2017
419/11/2017
420/11/2017
421/11/2017
422/11/2017
423/11/2017
424/11/2017
425/11/2017
426/11/2017
427/11/2017
428/11/2017
429/11/2017
430/11/2017
431/11/2017
432/11/2017
433/11/2017
434/11/2017
435/11/2017
436/11/2017
437/11/2017
438/11/2017
439/11/2017
440/11/2017
441/11/2017
442/11/2017
443/11/2017
444/11/2017
445/11/2017
446/11/2017
447/11/2017
448/11/2017
449/11/2017
450/11/2017
451/11/2017
452/11/2017
453/11/2017
454/11/2017
455/11/2017
456/11/2017
457/11/2017
458/11/2017
459/11/2017
460/11/2017
461/11/2017
462/11/2017
463/11/2017
464/11/2017
465/11/2017
466/11/2017
467/11/2017
468/11/2017
469/11/2017
470/11/2017
471/11/2017
472/11/2017
473/11/2017
474/11/2017
475/11/2017
476/11/2017
477/11/2017
478/11/2017
479/11/2017
480/11/2017
481/11/2017
482/11/2017
483/11/2017
484/11/2017
485/11/2017
486/11/2017
487/11/2017
488/11/2017
489/11/2017
490/11/2017
491/11/2017
492/11/2017
493/11/2017
494/11/2017
495/11/2017
496/11/2017
497/11/2017
498/11/2017
499/11/2017
500/11/2017
501/11/2017
502/11/2017
503/11/2017
504/11/2017
505/11/2017
506/11/2017
507/11/2017
508/11/2017
509/11/2017
510/11/2017
511/11/2017
512/11/2017
513/11/2017
514/11/2017
515/11/2017
516/11/2017
517/11/2017
518/11/2017
519/11/2017
520/11/2017
521/11/2017
522/11/2017
523/11/2017
524/11/2017
525/11/2017
526/11/2017
527/11/2017
528/11/2017
529/11/2017
530/11/2017
531/11/2017
532/11/2017
533/11/2017
534/11/2017
535/11/2017
536/11/2017
537/11/2017
538/11/2017
539/11/2017
540/11/2017
541/11/2017
542/11/2017
543/11/2017
544/11/2017
545/11/2017
546/11/2017
547/11/2017
548/11/2017
549/11/2017
550/11/2017
551/11/2017
552/11/2017
553/11/2017
554/11/2017
555/11/2017
556/11/2017
557/11/2017
558/11/2017
559/11/2017
560/11/2017
561/11/2017
562/11/2017
563/11/2017
564/11/2017
565/11/2017
566/11/2017
567/11/2017
568/11/2017
569/11/2017
570/11/2017
571/11/2017
572/11/2017
573/11/2017
574/11/2017
575/11/2017
576/11/2017
577/11/2017
578/11/2017
579/11/2017
580/11/2017
581/11/2017
582/11/2017
583/11/2017
584/11/2017
585/11/2017
586/11/2017
587/11/2017
588/11/2017
589/11/2017
590/11/2017
591/11/2017
592/11/2017
593/11/2017
594/11/2017
595/11/2017
596/11/2017
597/11/2017
598/11/2017
599/11/2017
600/11/2017
601/11/2017
602/11/2017
603/11/2017
604/11/2017
605/11/2017
606/11/2017
607/11/2017
608/11/2017
609/11/2017
610/11/2017
611/11/2017
612/11/2017
613/11/2017
614/11/2017
615/11/2017
616/11/2017
617/11/2017
618/11/2017
619/11/2017
620/11/2017
621/11/2017
622/11/2017
623/11/2017
624/11/2017
625/11/2017
626/11/2017
627/11/2017
628/11/2017
629/11/2017
630/11/2017
631/11/2017
632/11/2017
633/11/2017
634/11/2017
635/11/2017
636/11/2017
637/11/2017
638/11/2017
639/11/2017
640/11/2017
641/11/2017
642/11/2017
643/11/2017
644/11/2017
645/11/2017
646/11/2017
647/11/2017
648/11/2017
649/11/2017
650/11/2017
651/11/2017
652/11/2017
653/11/2017
654/11/2017
655/11/2017
656/11/2017
657/11/2017
658/11/2017
659/11/2017
660/11/2017
661/11/2017
662/11/2017
663/11/2017
664/11/2017
665/11/2017
666/11/2017
667/11/2017
668/11/2017
669/11/2017
670/11/2017
671/11/2017
672/11/2017
673/11/2017
674/11/2017
675/11/2017
676/11/2017
677/11/2017
678/11/2017
679/11/2017
680/11/2017
681/11/2017
682/11/2017
683/11/2017
684/11/2017
685/11/2017
686/11/2017
687/11/2017
688/11/2017
689/11/2017
690/11/2017
691/11/2017
692/11/2017
693/11/2017
694/11/2017
695/11/2017
696/11/2017
697/11/2017
698/11/2017
699/11/2017
700/11/2017
701/11/2017
702/11/2017
703/11/2017
704/11/2017
705/11/2017
706/11/2017
707/11/2017
708/11/2017
709/11/2017
710/11/2017
711/11/2017
712/11/2017
713/11/2017
714/11/2017
715/11/2017
716/11/2017
717/11/2017
718/11/2017
719/11/2017
720/11/2017
721/11/2017
722/11/2017
723/11/2017
724/11/2017
725/11/2017
726/11/2017
727/11/2017
728/11/2017
729/11/2017
730/11/2017
731/11/2017
732/11/2017
733/11/2017
734/11/2017
735/11/2017
736/11/2017
737/11/2017
738/11/2017
739/11/2017
740/11/2017
741/11/2017
742/11/2017
743/11/2017
744/11/2017
745/11/2017
746/11/2017
747/11/2017
748/11/2017
749/11/2017
750/11/2017
751/11/2017
752/11/2017
753/11/2017
754/11/2017
755/11/2017
756/11/2017
757/11/2017
758/11/2017
759/11/2017
760/11/2017
761/11/2017
762/11/2017
763/11/2017
764/11/2017
765/11/2017
766/11/2017
767/11/2017
768/11/2017
769/11/2017
770/11/2017
771/11/2017
772/11/2017
773/11/2017
774/11/2017
775/11/2017
776/11/2017
777/11/2017
778/11/2017
779/11/2017
780/11/2017
781/11/2017
782/11/2017
783/11/2017
784/11/2017
785/11/2017
786/11/2017
787/11/2017
788/11/2017
789/11/2017
790/11/2017
791/11/2017
792/11/2017
793/11/2017
794/11/2017
795/11/2017
796/11/2017
797/11/2017
798/11/2017
799/11/2017
800/11/2017
801/11/2017
802/11/2017
803/11/2017
804/11/2017
805/11/2017
806/11/2017
807/11/2017
808/11/2017
809/11/2017
810/11/2017
811/11/2017
812/11/2017
813/11/2017
814/11/2017
815/11/2017
816/11/2017
817/11/2017
818/11/2017
819/11/2017
820/11/2017
821/11/2017
822/11/2017
823/11/2017
824/11/2017
825/11/2017
826/11/2017
827/11/2017
828/11/2017
829/11/2017
830/11/2017
831/11/2017
832/11/2017
833/11/2017
834/11/2017
835/11/2017
836/11/2017
837/11/2017
838/11/2017
839/11/2017
840/11/2017
841/11/2017
842/11/2017
843/11/2017
844/11/2017
845/11/2017
846/11/2017
847/11/2017
848/11/2017
849/11/2017
850/11/2017
851/11/2017
852/11/2017
853/11/2017
854/11/2017
855/11/2017
856/11/2017
857/11/2017
858/11/2017
859/11/2017
860/11/2017
861/11/2017
862/11/2017
863/11/2017
864/11/2017
865/11/2017
866/11/2017
867/11/2017
868/11/2017
869/11/2017
870/11/2017
871/11/2017
872/11/2017
873/11/2017
874/11/2017
875/11/2017
876/11/2017
877/11/2017
878/11/2017
879/11/2017
880/11/2017
881/11/2017
882/11/2017
883/11/2017
884/11/2017
885/11/2017
886/11/2017
887/11/2017
888/11/2017
889/11/2017
890/11/2017
891/11/2017
892/11/2017
893/11/2017
894/11/2017
895/11/2017
896/11/2017
897/11/2017
898/11/2017
899/11/2017
900/11/2017
901/11/2017
902/11/2017
903/11/2017
904/11/2017
905/11/2017
906/11/2017
907/11/2017
908/11/2017
909/11/2017
910/11/2017
911/11/2017
912/11/2017
913/11/2017
914/11/2017
915/11/2017
916/11/2017
917/11/2017
918/11/2017
919/11/2017
920/11/2017
921/11/2017
922/11/2017
923/11/2017
924/11/2017
925/11/2017
926/11/2017
927/11/2017
928/11/2017
929/11/2017
930/11/2017
931/11/2017
932/11/2017
933/11/2017
934/11/2017
935/11/2017
936/11/2017
937/11/2017
938/11/2017
939/11/2017
940/11/2017
941/11/2017
942/11/2017
943/11/2017
944/11/2017
945/11/2017
946/11/2017
947/11/2017
948/11/2017
949/11/2017
950/11/2017
951/11/2017
952/11/2017
953/11/2017
954/11/2017
955/11/2017
956/11/2017
957/11/2017
958/11/2017
959/11/2017
960/11/2017
961/11/2017
962/11/2017
963/11/2017
964/11/2017
965/11/2017
966/11/2017
967/11/2017
968/11/2017
969/11/2017
970/11/2017
971/11/2017
972/11/2017
973/11/2017
974/11/2017
975/11/2017
976/11/2017
977/11/2017
978/11/2017
979/11/2017
980/11/2017
981/11/2017
982/11/2017
983/11/2017
984/11/2017
985/11/2017
986/11/2017
987/11/2017
988/11/2017
989/11/2017
990/11/2017
991/11/2017
992/11/2017
993/11/2017
994/11/2017
995/11/2017
996/11/2017
997/11/2017
998/11/2017
999/11/2017
1000/11/2017
1001/11/2017
1002/11/2017
1003/11/2017
1004/11/2017
1005/11/2017
1006/11/2017
1007/11/2017
1008/11/2017
1009/11/2017
1010/11/2017
1011/11/2017
1012/11/2017
1013/11/2017
1014/11/2017
1015/11/2017
1016/11/2017
1017/11/2017
1018/11/2017
1019/11/2017
1020/11/2017
1021/11/2017
1022/11/2017
1023/11/2017
1024/11/2017
1025/11/2017
1026/11/2017
1027/11/2017
1028/11/2017
1029/11/2017
1030/11/2017
1031/11/2017
1032/11/2017
1033/11/2017
1034/11/2017
1035/11/2017
1036/11/2017
1037/11/2017
1038/11/2017
1039/11/2017
1040/11/2017
1041/11/2017
1042/11/2017
1043/11/2017
1044/11/2017
1045/11/2017
1046/11/2017
1047/11/2017
1048/11/2017
1049/11/2017
1050/11/2017
1051/11/2017
1052/11/2017
1053/11/2017
1054/11/2017
1055/11/2017
1056/11/2017
1057/11/2017
1058/11/2017
1059/11/2017
1060/11/2017
1061/11/2017
1062/11/2017
1063/11/2017
1064/11/2017
1065/11/2017
1066/11/2017
1067/11/2017
1068/11/2017
1069/11/2017
1070/11/2017
1071/11/2017
1072/11/2017
1073/11/2017
1074/11/2017
1075/11/2017
1076/11/2017
1077/11/2017
1078/11/2017
1079/11/2017
1080/11/2017
1081/11/2017
1082/11/2017
1083/11/2017
1084/11/2017
1085/11/2017
1086/11/2017
1087/11/2017
1088/11/2017
1089/11/2017
1090/11/2017
1091/11/2017
1092/11/2017
1093/11/2017
1094/11/2017
1095/11/2017
1096/11/2017
1097/11/2017
1098/11/2017
1099/11/2017
1100/11/2017
1101/11/2017
1102/11/2017
1103/11/2017
1104/11/2017
1105/11/2017
1106/11/2017
1107/11/2017
1108/11/2017
1109/11/2017
1110/11/2017
1111/11/2017
1112/11/2017
1113/11/2017
1114/11/2017
1115/11/2017
1116/11/2017
1117/11/2017
1118/11/2017
1119/11/2017
1120/11/2017
1121/11/2017
1122/11/2017
1123/11/2017
1124/11/2017
1125/11/2017
1126/11/2017
1127/11/2017
1128/11/2017
1129/11/2017
1130/11/2017
1131/11/2017
1132/11/2017
1133/11/2017
1134/11/2017
1135/11/2017
1136/11/2017
1137/11/2017
1138/11/2017
1139/11/2017
1140/11/2017
1141/11/2017
1142/11/2017
1143/11/2017
1144/11/2017
1145/11/2017
1146/11/2017
1147/11/2017
1148/11/2017
1149/11/2017
1150/11/2017
1151/11/2017
1152/11/2017
1153/11/2017
1154/11/2017
1155/11/2017
1156/11/2017
1157/11/2017
1158/11/2017
1159/11/2017
1160/11/2017
1161/11/2017
1162/11/2017
1163/11/2017
1164/11/2017
1165/11/2017
1166/11/2017
1167/11/2017
1168/11/2017
1169/11/2017
1170/11/2017
1171/11/2017
1172/11/2017
1173/11/2017
1174/11/2017
1175/11/2017
1176/11/2017
1177/11/2017
1178/11/2017
1179/11/2017
1180/11/2017
1181/11/2017
1182/11/2017
1183/11/2017
1184/11/2017
1185/11/2017
1186/11/2017
1187/11/2017
1188/11/2017
1189/11/2017
1190/11/2017
1191/11/2017
1192/11/2017
1193/11/2017
1194/11/2017
1195/11/2017
1196/11/2017
1197/11/2017
1198/11/2017
1199/11/2017
1200/11/2017
1201/11/2017
1202/11/2017
1203/11/2017
1204/11/2017
1205/11/2017
1206/11/2017
1207/11/2017
1208/11/2017
1209/11/2017
1210/11/2017
1211/11/2017
1212/11/2017
1213/11/2017
1214/11/2017
1215/11/2017
1216/11/2017
1217/11/2017
1218/11/2017
1219/11/2017
1220/11/2017
1221/11/2017
1222/11/2017
1223/11/2017
1224/11/2017
1225/11/2017
1226/11/2017
1227/11/2017
1228/11/2017
1229/11/2017
1230/11/2017
1231/11/2017
1232/11/2017
1233/11/2017
1234/11/2017
1235/11/2017
1236/11/2017
1237/11/2017
1238/11/2017
1239/11/2017
1240/11/2017
1241/11/2017
1242/11/2017
1243/11/2017
1244/11/2017
1245/11/2017
1246/11/2017
1247/11/2017
1248/11/2017
1249/11/2017
1250/11/2017
1251/11/2017
1252/11/2017
1253/11/2017
1254/11/2017
1255/11/2017
1256/11/2017
1257/11/2017
1258/11/2017
1259/11/2017
1260/11/2017
1261/11/2017
1262/11/2017
1263/11/2017
1264/11/2017
1265/11/2017
1266/11/2017
1267/11/2017
1268/11/2017
1269/11/2017
1270/11/2017
1271/11/2017
1272/11/2017
1273/11/2017
1274/11/2017
1275/11/2017
1276/11/2017
1277/11/2017
1278/11/2017
1279/11/2017
1280/11/2017
1281/11/2017
1282/11/2017
1283/11/2017
1284/11/2017
1285/11/2017
1286/11/2017
1287/11/2017
1288/11/2017
1289/11/2017
1290/11/2017
1291/11/2017
1292/11/2017
1293/11/2017
1294/11/2017
1295/11/2017
1296/11/2017
1297/11/2017
1298/11/2017
1299/11/2017
1300/11/2017
1301/11/2017
1302/11/2017
1303/11/2017
1304/11/2017
1305/11/2017
1306/11/2017
1307/11/2017
1308/11/2017
1309/11/2017
1310/11/2017
1311/11/2017
1312/11/2017
1313/11/2017
1314/11/2017
1315/11/2017
1316/11/2017
1317/11/2017
1318/11/2017
1319/11/2017
1320/11/2017
1321/11/2017
1322/11/2017
1323/11/2017
1324/11/2017
1325/11/2017
1326/11/2017
1327/11/2017
1328/11/2017
1329/11/2017
1330/11/2017
1331/11/2017
1332/11/2017
1333/11/2017
1334/11/2017
1335/11/2017
1336/11/2017
1337/11/2017
1338/11/2017
1339/11/2017
1340/11/2017
1341/11/2017
1342/11/2017
1343/11/2017
1344/11/2017
1345/11/2017
1346/11/2017
1347/11/2017
1348/11/2017
1349/11/2017
1350/11/2017
1351/11/2017
1352/11/2017
1353/11/2017
1354/11/2017
1355/11/2017
1356/11/2017
1357/11/2017
1358/11/2017
1359/11/2017
1360/11/2017
1361/11/2017
1362/11/2017
1363/11/2017
1364/11/2017
1365/11/2017
1366/11/2017
1367/11/2017
1368/11/2017
1369/11/2017
1370/11/2017
1371/11/2017
1372/11/2017
1373/11/2017
1374/11/2017
1375/11/2017
1376/11/2017
1377/11/2017
1378/11/2017
1379/11/2017
1380/11/2017
1381/11/2017
1382/11/2017
1383/11/2017
1384/11/2017
1385/11/2017
1386/11/2017
1387/11/2017
1388/11/2017
1389/11/2017
1390/11/2017
1391/11/2017
1392/11/2017
1393/11/2017
1394/11/2017
1395/11/2017
1396/11/2017
1397/11/2017
1398/11/2017
1399/11/2017
1400/11/2017
1401/11/2017
1402/11/2017
1403/11/2017
1404/11/2017
1405/11/2017
1406/11/2017
1407/11/2017
1408/11/2017
1409/11/2017
1410/11/2017
1411/11/2017
1412/11/2017
1413/11/2017
1414/11/2017
1415/11/2017
1416/11/2017
1417/11/2017
1418/11/2017
1419/11/2017
1420/11/2017
1421/11/2017
1422/11/2017
1423/11/2017
1424/11/2017
1425/11/2017
1426/11/2017
1427/11/2017
1428/11/2017
1429/11/2017
1430/11/2017
1431/11/2017
1432/11/2017
1433/11/2017
1434/11/2017
1435/11/2017
1436/11/2017
1437/11/2017
1438/11/2017
1439/11/2017
1440/11/2017
1441/11/2017
1442/11/2017
1443/11/2017
1444/11/2017
1445/11/2017
1446/11/2017
1447/11/2017
1448/11/2017
1449/11/2017
1450/11/2017
1451/11/2017
1452/11/2017
1453/11/2017
1454/11/2017
1455/11/2017
1456/11/2017
1457/11/2017
1458/11/2017
1459/11/2017
1460/11/2017
1461/11/2017
1462/11/2017
1463/11/2017
1464/11/2017
1465/11/2017
1466/11/2017
1467/11/2017
1468/11/2017
1469/11/2017
1470/11/2017
1471/11/2017
1472/11/2017
1473/11/2017
1474/11/2017
1475/11/2017
1476/11/2017
1477/11/2017
1478/11/2017
1479/11/2017
1480/11/2017
1481/11/2017
1482/11/2017
1483/11/2017
1484/11/2017
1485/11/2017
1486/11/2017
1487/11/2017
1488/11/2017
1489/11/2017
1490/11/2017
1491/11/2017
1492/11/2017
1493/11/2017
1494/11/2017
1495/11/2017
1496/11/2017
1497/11/2017
1498/11/2017
1499/11/2017
1500/11/2017
1501/11/2017
1502/11/2017
1503/11/2017
1504/11/2017
1505/11/2017
1506/11/2017
1507/11/2017
1508/11/2017
1509/11/2017
1510/11/2017
1511/11/2017
1512/11/2017
1513/11/2017
1514/11/2017
1515/11/2017
1516/11/2017
1517/11/2017
1518/11/2017
1519/11/2017
1520/11/2017
1521/11/2017
1522/11/2017
1523/11/2017
1524/11/2017
1525/11/2017
1526/11/2017
1527/11/2017
1528/11/2017
1529/11/2017
1530/11/2017
1531/11/2017
1532/11/2017
1533/11/2017
1534/11/2017
1535/11/2017
1536/11/2017
1537/11/2017
1538/11/2017
1539/11/2017
1540/11/2017
1541/11/2017
1542/11/2017
1543/11/2017
1544/11/2017
1545/11/2017
1546/11/2017
1547/11/2017
1548/11/2017
1549/11/2017
1550/11/2017
1551/11/2017
1552/11/2017
1553/11/2017
1554/11/2017
1555/11/2017
1556/11/2017
1557/11/2017
1558/11/2017
1559/11/2017
1560/11/2017
1561/11/2017
1562/11/2017
1563/11/2017
1564/11/2017
1565/11/2017
1566/11/2017
1567/11/2017
1568/11/2017
1569/11/2017
1570/11/2017
1571/11/2017
1572/11/2017
1573/11/2017
1574/11/2017
1575/11/2017
1576/11/2017
1577/11/2017
1578/11/2017
1579/11/2017
1580/11/2017
1581/11/2017
1582/11/2017
1583/11/2017
1584/11/2017
1585/11/2017
1586/11/2017
1587/11/2017
1588/11/2017
1589/11/2017
1590/11/2017
1591/11/2017
1592/11/2017
1593/11/2017
1594/11/2017
1595/11/2017
1596/11/2017
1597/11/2017
1598/11/2017
1599/11/2017
1600/11/2017
1601/11/2017
1602/11/2017
1603/11/2017
1604/11/2017
1605/11/2017
1606/11/2017
1607/11/2017
1608/11/2017
1609/11/2017
1610/11/2017
1611/11/2017
1612/11/2017
1613/11/2017
1614/11/2017
1615/11/2017
1616/11/2017
1617/11/2017
1618/11/2017
1619/11/2017
1620/11/2017
1621/11/2017
1622/11/2017
1623/11/2017
1624/11/2017
1625/11/2017
1626/11/2017
1627/11/2017
1628/11/2017
1629/11/2017
1630/11/2017
1631/11/2017
1632/11/2017
1633/11/2017
1634/11/2017
1635/11/2017
1636/11/2017
1637/11/2017
1638/11/2017
1639/11/2017
1640/11/2017
1641/11/2017
1642/11/2017
1643/11/2017
1644/11/2017
1645/11/2017
1646/11/2017
1647/11/2017
1648/11/2017
1649/11/2017
1650/11/2017
1651/11/2017
1652/11/2017
1653/11/2017
1654/11/2017
1655/11/2017
1656/11/2017
1657/11/2017
1658/11/2017
1659/11/2017
1660/11/2017
1661/11/2017
1662/11/2017
1663/11/2017
1664/11/2017
1665/11/2017
1666/11/2017
1667/11/2017
1668/11/2017
1669/11/2017
1670/11/2017
1671/11/2017
1672/11/2017
1673/11/2017
1674/11/2017
1675/11/2017
1676/11/2017
1677/11/2017
1678/11/2017
1679/11/2017
1680/11/2017
1681/11/2017
1682/11/2017
1683/11/2017
1684/11/2017
1685/11/2017
1686/11/2017
1687/11/2017
1688/11/2017
1689/11/2017
1690/11/2017
1691/11/2017
1692/11/2017
1693/11/2017
1694/11/2017
1695/11/2017
1696/11/2017
1697/11/2017
1698/11/2017
1699/11/2017
1700/11/2017
1701/11/2017
1702/11/2017
1703/11/2017
1704/11/2017
1705/11/2017
1706/11/2017
1707/11/2017
1708/11/2017
1709/11/2017
1710/11/2017
1711/11/2017
1712/11/2017
1713/11/2017
1714/11/2017
1715/11/2017
1716/11/2017
1717/11/2017
1718/11/2017
1719/11/2017
1720/11/2017
1721/11/2017
1722/11/2017
1723/11/2017
1724/11/2017
1725/11/2017
1726/11/2017
1727/11/2017
1728/11/2017
1729/11/2017
1730/11/2017
1731/11/2017
1732/11/2017
1733/11/2017
1734/11/2017
1735/11/2017
1736/11/2017
1737/11/2017
1738/11/2017
1739/11/2017
1740/11/2017
1741/11/2017
1742/11/2017
1743/11/2017
1744/11/2017
1745/11/2017
1746/11/2017
1747/11/2017
1748/11/2017
1749/11/2017
1750/11/2017
1751/11/2017
1752/11/2017
1753/11/2017
1754/11/2017
1755/11/2017
1756/11/2017
1757/11/2017
1758/11/2017
1759/11/2017
1760/11/2017
1761/11/2017
1762/11/2017
1763/11/2017
1764/11/2017
1765/11/2017
1766/11/2017
1767/11/2017
1768/11/2017
1769/11/2017
1770/11/2017
1771/11/2017
1772/11/2017
1773/11/2017
1774/11/2017
1775/11/2017
1776/11/2017
1777/11/2017
1778/11/2017
1779/11/2017
1780/11/2017
1781/11/2017
1782/11/2017
1783/11/2017
1784/11/2017
1785/11/2017
1786/11/2017
1787/11/2017
1788/11/2017
1789/11/2017
1790/11/2017
1791/11/2017
1792/11/2017
1793/11/2017
1794/11/2017
1795/11/2017
1796/11/2017
1797/11/2017
1798/11/2017
1799/11/2017
1800/11/2017
1801/11/2017
1802/11/2017
1803/11/2017
1804/11/2017
1805/11/2017
1806/11/2017
1807/11/2017
1808/11/2017
1809/11/2017
1810/11/2017
1811/11/2017
1812/11/2017
1813/11/2017
1814/11/2017
1815/11/2017
1816/11/2017
1817/11/2017
1818/11/2017
1819/11/2017
1820/11/2017
1821/11/2017
1822/11/2017
1823/11/2017
1824/11/2017
1825/11/2017
1826/11/2017
1827/11/2017
1828/11/2017
1829/11/2017
1830/11/2017
1831/11/2017
1832/11/2017
1833/11/2017
1834/11/2017
1835/11/2017
1836/11/2017
1837/11/2017
1838/11/2017
1839/11/2017
1840/11/2017
1841/11/2017
1842/11/2017
1843/11/2017
1844/11/2017
1845/11/2017
1846/11/2017
1847/11/2017
1848/11/2017
1849/11/2017
1850/11/2017
1851/11/2017
1852/11/2017
1853/11/2017
1854/11/2017
1855/11/2017
1856/11/2017
1857/11/2017
1858/11/2017
1859/11/2017
1860/11/2017
1861/11/2017
1862/11/2017
1863/11/2017
1864/11/2017
1865/11/2017
1866/11/2017
1867/11/2017
1868/11/2017
1869/11/2017
1870/11/2017
1871/11/2017
1872/11/2017
1873/11/2017
1874/11/2017
1875/11/2017
1876/11/2017
1877/11/2017
1878/11/2017
1879/11/2017
1880/11/2017
1881/11/2017
1882/11/2017
1883/11/2017
1884/11/2017
1885/11/2017
1886/11/2017
1887/11/2017
1888/11/2017
1889/11/2017
1890/11/2017
1891/11/2017
1892/11/2017
1893/11/2017
1894/11/2017
1895/11/2017
1896/11/2017
1897/11/2017
1898/11/2017
1899/11/2017
1900/11/2017
1901/11/2017
1902/11/2017
1903/11/2017
1904/11/2017
1905/11/2017
1906/11/2017
1907/11/2017
1908/11/2017
1909/11/2017
1910/11/2017
1911/11/2017
1912/11/2017
1913/11/2017
1914/11/2017
1915/11/2017
1916/11/2017
1917/11/2017
1918/11/2017
1919/11/2017
1920/11/2017
1921/11/2017
1922/11/2017
1923/11/2017
1924/11/2017
1925/11/2017
1926/11/2017
1927/11/2017
1928/11/2017
1929/11/2017
1930/11/2017
1931/11/2017
1932/11/2017
1933/11/2017
1934/11/2017
1935/11/2017
1936/11/2017
1937/11/2017
1938/11/2017
1939/11/2017
1940/11/2017
1941/11/2017
1942/11/2017
1943/11/2017
1944/11/2017
1945/11/2017
1946/11/2017
1947/11/2017
1948/11/2017
1949/11/2017
1950/11/2017
1951/11/2017
1952/11/2017
1953/11/2017
1954/11/2017
1955/11/2017
1956/11/2017
1957/11/2017
1958/11/2017
1959/11/2017
1960/11/2017
1961/11/2017
1962/11/2017
1963/11/2017
1964/11/2017
1965/11/2017
1966/11/2017
1967/11/2017
1968/11/2017
1969/11/2017
1970/11/2017
1971/11/2017
1972/11/2017
1973/11/2017
1974/11/2017
1975/11/2017
1976/11/2017
1977/11/2017
1978/11/2017
1979/11/2017
1980/11/2017
1981/11/2017
 

jonime

Новичок
Возможно легче было бы поиграться с функцией time ? Уже с нее какой-то вытащить. Если поможешь буду очень благодарен.

Код:
function Time(ATimerPtr: integer): integer; external 'time@msvcrt.dll cdecl';
 

Krinkels

Он где то тут
Администратор
Решил добавить немного дней для теста но что-то пошло не так...
В условиях было сказано:
нужно добавить 7 дней к текущей дате
Потом:
Она возвращает текущею дату а нужно +10 дней
Так сколько же нужно прибавлять дней? Естественно код не рассчитан на то что он будет прибавлять ТАКОЕ количество дней
 

jonime

Новичок
В условиях было сказано:

Потом:


Так сколько же нужно прибавлять дней? Естественно код не рассчитан на то что он будет прибавлять ТАКОЕ количество дней
+7 дней или +10 это было для примера. Может добавится и +100 дней. Нужен нормальный рабочий код.
 

jonime

Новичок
кто-то может помочь с помощью импортированной функции time имея epoch timestamp получить дату с помощью какой-то другой функции. Пробовал с помощью функции ctime но она вернула пустоту.
 

Krinkels

Он где то тут
Администратор
Ну так и нужно было говорить что не +7 или +10 а +100 и более. Тогда я бы по другому стал бы делать
 

YURSHAT

Тех. админ
Администратор
Для расширенной версии
Код:
[Setup]
AppName=Моя программа
AppVersion=1.5
DefaultDirName={pf}\Моя программа
OutputDir=.

[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"

[Code]
var
  Label1: TLabel;

procedure InitializeWizard();
begin
  with TLabel.Create(WizardForm) do
  begin
    Parent := WizardForm;
    Caption := FormatDateTime('dd.mm.yyyy', Now + 100);
    Left := ScaleX(16);
    Top := ScaleY(328);
  end;
end;
 

jonime

Новичок
Скажите расширенная версия работает нормально на всех компьютерах ? Или ей требуются доп. либы ?

YURSHAT, дай свой кошелек Яндекс или Qiwi.
 
Последнее редактирование:

South

Знаток
Проверенный
если еще актуально
модуль для работы с датами в формате TDateTime, для обычной инно
юзаем как обычно
Код:
function InitializeSetup: boolean;
var
  cd, nd: TDateTime;
  str: string;
begin
  cd := Now;
  str := Format('Текущая дата: %s', [DateTimeToStr(cd)]);
  nd := IncSecond(cd, 100);
  str := str + #13#10 + Format('Текущая дата + 100 сек.: %s', [DateTimeToStr(nd)]);
  nd := IncDay(cd, 120);
  str := str + #13#10 + Format('Текущая дата + 120 дн.: %s', [DateTimeToStr(nd)]);
  nd := IncMonth(cd, 4);
  str := str + #13#10 + Format('Текущая дата + 4 мес.: %s', [DateTimeToStr(nd)]);
  nd := IncWeek(cd, -1);
  str := str + #13#10 + Format('Текущая дата - 1 нед.: %s', [DateTimeToStr(nd)]);

  nd := IncHour(cd, 2);
  nd := IncMinute(nd, 24);
  nd := IncSecond(nd, 90);

  str := str + #13#10 + Format('Дата1 = %s', [DateTimeToStr(cd)]);
  str := str + #13#10 + Format('Дата2 = %s', [DateTimeToStr(nd)]);
  str := str + #13#10 + Format('Дата2 - Дата1 = %s', [TimeToStr(nd - cd)]);

  MsgBox(str, mbInformation, MB_OK);
end;
 

Вложения

jonime

Новичок
если еще актуально
модуль для работы с датами в формате TDateTime, для обычной инно
юзаем как обычно
Код:
function InitializeSetup: boolean;
var
  cd, nd: TDateTime;
  str: string;
begin
  cd := Now;
  str := Format('Текущая дата: %s', [DateTimeToStr(cd)]);
  nd := IncSecond(cd, 100);
  str := str + #13#10 + Format('Текущая дата + 100 сек.: %s', [DateTimeToStr(nd)]);
  nd := IncDay(cd, 120);
  str := str + #13#10 + Format('Текущая дата + 120 дн.: %s', [DateTimeToStr(nd)]);
  nd := IncMonth(cd, 4);
  str := str + #13#10 + Format('Текущая дата + 4 мес.: %s', [DateTimeToStr(nd)]);
  nd := IncWeek(cd, -1);
  str := str + #13#10 + Format('Текущая дата - 1 нед.: %s', [DateTimeToStr(nd)]);

  nd := IncHour(cd, 2);
  nd := IncMinute(nd, 24);
  nd := IncSecond(nd, 90);

  str := str + #13#10 + Format('Дата1 = %s', [DateTimeToStr(cd)]);
  str := str + #13#10 + Format('Дата2 = %s', [DateTimeToStr(nd)]);
  str := str + #13#10 + Format('Дата2 - Дата1 = %s', [TimeToStr(nd - cd)]);

  MsgBox(str, mbInformation, MB_OK);
end;
сделал через расширенную версию но все равно спасибо.
 
Сверху