Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Algorithmen wie ?

   
    by madina, 8. Jan 2011
  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
• Forum: Programmieren allgemein

  Algorithmen wie ?

   
    by madina, 8. Jan 2011
  Hallo,
  
  ich habe ein Prog, der mir Neumonde vom 14.7.622(Eingang -466580.76963)-31.12.4500(Eingang 950001.14392) berechnet.
  
  Dabei will ich so Jahr und Monat vom 14.7.622(= 01.01.0001)-31.12.4500 (=0.06.3998)fortlaufend berechnen.
  
  Wie kann ich dies realisieren mit DIV und MOD, daß ich bei einer Eingabe vom TDateTime die Fkt mir Monat und Jahr zurückgibt?
  
  
  MFG