|
Registriert seit: 1. Nov 2005
153 Beiträge
|
AW: Algorithmen wie ?
8. Jan 2011, 18:34
Hallo,
nicht wild fremdes:
Neumonddatum vom 14.7.0622(Eingang -466580.76963: TDateTime) bis 31.12.4500(Eingang 950001.14392: DateTime).
ich will 14.07.0622=01.01.0001 usw fortlaufend bis 31.12.4500=01.06.3998 setzen.
Function MonatJahr(Eingang: TDateTime; var iMonat, iJahr: Integer);
begin
iMonat:= Eingang MOD 12;
iJahr := Eingang DIV 12;
end
MFG
Ati
mfg
madina
|