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 :-D

[Klaus01]

Guten Abend,

Delphi-Quellcode:

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.

Delphi-Quellcode:

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 :wink:

[silver-moon-2000]

Zitat:

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:

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?

Delphi-Quellcode:

LblSonnenaufgang.Caption := DateToStr(???);

Grüße
Klaus

[Luckie]

Zitat:

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 :D Danke nochmal an Alle für Ihre Hilfe :-D