Homeputer Studio

[harryfitti]

Hallo,
Ich habe eine Frage: wie erkennt die Software außer der Tageszeit (Uhr:=Uhrzeit) das aktuelle Datum?
Mfg
harryfitti

[buempi]

Hallo harryfitti

Mit der Funktion "Zeit":

Code: Alles auswählen

Uhr := Uhrzeit
** ergibt 11:00:00

Uhr := Zeit
** ergibt 08.05.2010 11:00:00

Uhr := Datum
** ergibt 08.05.2010

Uhr := Tag + ", " + Zeit
** ergibt Samstag, 08.05.2010 11:00:00

Viele Grüsse
Bümpi

[harryfitti]

Hallo Bümpi,
Super!! Danke!
Gruss
harryfitti

[Brind]

Hallo Bümpi,
das fuktioniert bei mir leider nicht.
Setze zur Zeit die Homeputer Studio 2.0 REL:100224 ein.
Hast Du noch ne Idee?

Grüße
Marcus

[buempi]

Hallo Marcus

Was heisst "funktioniert nicht"? Was steht denn bei den jeweiligen Varianten in deinem Objekt Uhr? Ist das Objekt Uhr vom Typ Zeichen? Welchen Ausführungsintervall hast du eingestellt?

Viele Grüsse
Bümpi

[Brind]

Hallo Bümpi,

wenn ich Uhr:=Uhrzeit und 5 Sek. Intervall einstelle habe ich es normal: 16:53:25 und ja als Zeichen.
Sobald ich aber Uhr:=Datum eingebe erhalte ich das Datum in folgendem Format:
08.06.10 ich bräuchte aber 08.06.2010.

Grüße
Marcus

[buempi]

Hallo Marcus

Aha, jetzt weiss ich wenigstens, was "nicht funktioniert". - Es ist also einfach die Jahrzahl, die zweistellig statt (wie von dir gewünscht und von mir im früheren Beitrag irrtümlich angegeben) vierstellig ankommt. Vierstellig ist sie bei Homeputer CL; ich hatte bei der Darstellung nicht mehr an diesen "kleinen Unterschied" gedacht.

Aber man kann's zusammensetzen:

Code: Alles auswählen

wenn Monatstag < 10 dann
   Uhr := "0" + Monatstag
sonst
   Uhr := Monatstag
endewenn

wenn Monat < 10 dann
   Uhr := Uhr + ".0" + Monat + "."
sonst
   Uhr := Uhr + "."  + Monat + "."
endewenn

Uhr    := Uhr + "20" + Jahr

Und nicht vergessen: Am 31.12.2099 die 20 durch 21 ersetzen!

Viele Grüsse
Bümpi

[jczarnetzki]

Und nicht vergessen: Am 31.12.2099 die 20 durch 21 ersetzen!

Ich hoffe das ich es bis dahin nicht vergessen habe, habe aber meinen Enkeln schon bescheid gegeben das sie es an Ihren Enkeln weiter geben!
Also bei uns wird es nicht vergessen.

[rayki]

Und nicht vergessen: Am 31.12.2099 die 20 durch 21 ersetzen!

Buempi, schreib dir das lieber auf. Ich vermute mal, dass auch Du an Altersdemenz leiden wirst, wenn es soweit ist...

[buempi]

Ich vermute mal, dass auch Du an Altersdemenz leiden wirst, wenn es soweit ist...

... aber wie find ich dann den Zettel, wo ich's aufgeschrieben hab???

Besser eine zuverlässige Lösung; wir ändern den Schluss wie folgt:

Code: Alles auswählen

** Jahrhundert ist eine Variable vom Typ Zahl mit Startwert 20
Laden("Uhr.Jahrhundert")

Uhr    := Uhr + Jahrhundert + Jahr

wenn Monatstag = 31 und Monat = 12 und Jahr = 99 und Uhrzeit = "23:59:55" dann
   Jahrhundert := Jahrhundert + 1
   Sichern("Uhr.Jahrhundert")
endewenn

Da hab ich dann die nächsten paar hundert Jahre Ruhe ... bis der Rechner mal genau in der Silvesternacht ausfällt!

Viele Grüsse
Bümpi