Mein Hinweis mit dem falschen Fuss bezieht sich lediglich auf deine Hinweise zu "friemelei ... VB... und Delphi vernüftig"
Ob du es jetzt so oder so löst, ist letzten Endes unerheblich.
Mit dem Schaltjahr bist du auch wieder am "Friemeln". Must halt in einem Nichtschaltjahr anstatt dem 29.02. den 01.03. draus machen.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| Procedure ShowByDecode;
var d,m,y : word;
begin
DecodeDate(Now,y,m,d);
ShowMessage(IntToStr(d)+'.'+IntToStr(m)+'.');
end;
Procedure ShowByDate;
begin
ShowMessage(Copy(DateToStr(now),1,LastDelimiter('.',DateToStr(Now))));
end; |
Für eine Abfrage muss er eh das aktuelle Jahr dazu packen. So wie ich es verstanden habe, will er nachschauen, wer heute, am 13.07. + aktuelles Jahr Geburtstag hat. Und wenn er den String auf ein yyyymmdd umstricken muss, geht das auch nur über "Friemelei".
In diesem Sinne
