Procedure aufrufen

[thiagojonas]

Hallo Ihr Lieben,
ich habe ein codeschnipsel im ternet gefunden, welche die Uhrzeit für den Sonnenaufgang bzw. den Sonnenuntergang berechnet:
http://www.umnicom.de/Elektronik/Pro...ativeSonne.htm

Ich weiß leider nicht wie ich jetzt die Procedure aufrufen kann.

Mit "Sunshine(23,31,now());" klappt es leider nicht.
Danke im voraus

[Klaus01]

Guten Abend,
Procedure SunShine(Lat,Lon:Double;Date:TDateTime;Var SunRise,SunSet,dt:TDateTime); bei Deinem Aufruf fehlen Dir die drei "Platzhalter" (Var Variablen) die das Datum für
SunRise,SunSet und Sonnenscheindauer aufnehmen.

SunShine(23,32,now,Sonnenaufgang,Sonnenuntergang,Dauer); Wobei Du
Sonnenaufgangm Sonneuntergang und Dauer als TDateTime deklarieren mußt.

Grüße
Klaus

[markus5766h]

Hallo

Astro-Daten

[silver-moon-2000]

Zitat von thiagojonas:

Hallo Ihr Lieben,
Mit "Sunshine(23,31,now());" klappt es leider nicht.

Die Prozedur erwartet 6 Parameter, du hast nur 3 angegeben
in den 3 "var" Parametern werden dann die drei gewünschten Ergebnisse gespeichert

Delphi-Quellcode:

[...]
var
  SonneAuf, SonneUnter, SonneMax : TDateTime;
begin
  SunShine(23, 31, now, SonneAuf, SonneUnter, SonneMax);
[...]

edit:
Roster Kasten, hast Du mich verlassten?
Ja ja, was tut man nicht alles, damit's reimt...

[thiagojonas]

Ah...super Dankeschön
Eine kurze Frage noch.
Wie kann ich dann die Zeit für den Sonnenaufgang bzw. untergang anzeigen lassen?

Z.B. Lapel.Caption := DateToStr(???)

[Klaus01]

Zitat von thiagojonas:

Ah...super Dankeschön:)
Eine kurze Frage noch.
Wie kann ich dann die Zeit für den Sonnenaufgang bzw. untergang anzeigen lassen?

Z.B. Lapel.Caption := DateToStr(???)

Was würdest Du denn verwenden, wenn Dein Label
LblSonnenaufgang heißen würde?

LblSonnenaufgang.Caption := DateToStr(???); Grüße
Klaus

[Luckie]

Zitat von silver-moon-2000:

in den 3 "var" Parametern werden dann die drei gewünschten Ergebnisse gespeichert

Lesen hilft.

[thiagojonas]

Naja eigentlich so...

Delphi-Quellcode:

var
  SonneAuf, SonneUnter, SonneMax : TDateTime;
begin
  SunShine(53.57, 9.73, now(), SonneAuf, SonneUnter, SonneMax);
  ShowMessage(DateToStr(SonneUnter));

Aber da wird mit nur das Aktuelle Datum von heute angezeigt

[Klaus01]

.. versuche mal DateTimeToString,
denn es ist recht wahrscheinlich, dass heute die Sonne untergegangen ist.
Es kommt wohl auf die Zeit an.

Grüße
Klaus

[thiagojonas]

Super das wars Danke nochmal an Alle für Ihre Hilfe