Topic: формат даты
Сразу прошу пардону за вопрос. Вчера был день рождения - голова не соображает.
Если видели мой проект фитнеса то поймете о чем дальше речь.
На главной форме есть таблица где отражаются дни рождения текущего месяца.
Пользователю лень контрлировать наличие дней рождения за текующую дату - попросили вывсети какое либо сообшщение.
Сам механизьм я реализовал но действует только в том случае когда совпадает адже год - что не есть правильно.
В отдельных запросах SQL проблем нет но не могу в скрипте сообразить чтоб проверял день-месяц из таблицы клиентов (день рождения) с текущей датой.
существующий скрипт.
var
Timer: TTimer;
procedure Main_OnShow (Sender: string; ACol, ARow: Integer; Action: string);
var
t: string;
sDate: string;
begin
sDate := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', now) + '"';
t:= SQLExecute('SELECT count(id) FROM klient WHERE (birth ='+ sDate +');');
if t>'0' then
begin
Timer := TTimer.Create(nil);
Timer.OnTimer := @OnTimer;
Timer.Interval := 10000;
Timer.Enabled := True;
birth.ShowModal;
end
else
end;
procedure OnTimer (Sender: TObject);
begin
Timer.Enabled := False;
birth.Close;
Timer.Free;
end;
Подскажите кто может как проверять исключить из проверки год.
Заранее благодарю и поймите правильно - праздновал денюху - неделю буду притормаживать