Delphi projekt
Zdravim .. dělám projekt do školy a narazil jsem na malý problém ..
Jedná se o program který má za ukol vytvorit evidenci darců krve :d ..
Jednim z podukolu ma byt vypis vsech darcu kteri prichazeji v uvahu pro odber - tzn. dárci kteri maji odpovidajici krevni skupinu a jejichz datum odberu je nejméně 3 mesice stare.
at se snazim jak se snazim nemuzu na to prijit .. ocenim jakoukoliv radu ;)
(popripade program poslu pro lepsi orientaci)
PS docela to spechá .. datum odevzdáni je dneska vecer :/
Neuvedl jsi žádné relevantní informace, takže pouze obecně. Projdeš všechny dárce a u každého zkontroluješ krevní skupinu a datum odběru.
S tou krevni skupinou to neni problem .. problem je s datumem ..
http://www.edisk.cz/stahni/30102/Krevni_Skupiny.ra r_211.22KB.html
jestli mas cas tak se na to koukni prosim jsem bezradnej :d
Je to ve formu 5..
Ukládáš si datum jako string? Proč ne jako TDateTime?
Ale i tam, v čem je problém? Nedokážeš poznat, že je datum 3 měsíce starý?
Ja na programovani moc nejsem .. (TDateTime) slysim poprve ;) .. a ano nedokaze poznat ze je 3 mesice stary. :)
TDateTime si ešte nepočul? Tak to máš blbéé...
Len narýchlo som si pozrel ten Tvoj program a navrhujem nasledovné:
1. datum zmeň zo string na TDateTime !
2. čo ak niekto zadá 31.2.xxxx ? Nahraď tie 3 ComboBoxy pre zadávanie dátumu komponentou TDateTimePicker - ušetríš kód a budeš mať ošetrené korektné zadanie dátumu
3. Pre porovnanie či je dátum väčší ako 3 mesiace použi funkciu:
function IncMonth(Date: TDateTime; Months: Integer) : TDateTime; zväčšíš dátum načítaný zo súboru o 3 mesiace a výsledok porovnáš s aktuálnym dátumom, ten zistíš
funkciou Now: TDateTime
čiže asi takto:
if IncMonth(porovnavany_datum,3) > now then (nemôže darovať)
else (môže darovať)
Good luck!
díky ;)
Nemáš zač, už Ti to funguje?
jo jo ;) díky moc =) ..už jenom ladim detaily ;)