Potrzebny mi taki progam który w tabeli do jakiegoś ciągu dat doda w kolejnych kolumnach 90 dni od daty z pierwszej daty a w drugiej kolumnie doda 210 dni również do początkowej daty. Jest mi to potrzebne do pracy. Nie mam pojęcia o programowaniu ale mam nadzieję, że Wy mi pomożecie.
- Rejestracja:ponad 20 lat
- Ostatnio:11 dni
- Postów:1030
0
Poniższy kod wiele ci pomoże:
var
OldDate, Date: TDateTime;
wYear, wYear2, wMonth, wMonth2, wDay, wDay2 : Word;
fDay : Word;
begin
OldDate := Now; // pobieranie dziesiejszej daty
DecodeDate(OldDate, wYear, wMonth, wDay);
Date := StrToDate('05-01-04'); // dowolna data
DecodeDate(Date, wYear2, wMonth2, wDay2);
fDay := wDay - wDay2;
ShowMessage(Format('Różnica dni: %d', [fDay]));
end;
0
Rozwiązanie w Delphi, przy zastosowaniu StringGrid'a jako tabelki, gdzie w pierwszej kolumnie wpisujesz daty, a w drugiej i trzeciej odczytujesz daty po dodaniu odpowiednio 90 i 210 dni.Trzeba pamietać o właściwym dla systemu operacyjnego formacie daty wpisywanej w pierwszej kolumnie
procedure TForm1.Button1Click(Sender: TObject);
var
q:integer;
begin
for q:=1 to StringGrid1.RowCount-1 do
with StringGrid1 do
if cells[0,q]<>'' then
try
cells[1,q]:=datetostr(strtodate(cells[0,q])+90);
cells[2,q]:=datetostr(strtodate(cells[0,q])+210);
except
showmessage(' wpisz poprawny format daty ');
end;
end;
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.