Sternzeitkalkulator

(DE) Anwendungen für Office, Multimedia und Spiele, Werkzeuge, Hilfsprogramme, etc
(EN) Applications for Office, Multimedia or Games, Tools, Utilities, e.g.
Antworten
Benutzeravatar
Frank Wochatz
Beiträge: 1112
Registriert: So 22. Dez 2013, 22:04
Wohnort: Berlin
Kontaktdaten:

Sternzeitkalkulator

Beitrag von Frank Wochatz »

Jeder steht ja irgendwann mal vor dem Problem, die aktuelle Sternzeit zu berechnen. Die Sternzeit in Star Trek (neue Zeitlinie) wird als Ziffernfolge wie folgt angegeben:

[Jahr],[Tag(e)]


Die Ziffern vor dem Dezimalkomma steht für das gregorianische Kalenderjahr, die Ziffer nach dem Komma für Zahl der abgelaufenen Tage des Jahres (einschl. des aktuellen Tages).

Nun könnte man das aktuelle Datum ermitteln und mühsam unter Berücksichtigung unterschiedlicher Monatslängen und Schaltjahren die abgelaufenen Tage ausrechnen. jedoch nicht so unter OS/2, wir haben viel bessere Funktionen dafür.

Hier mein Programm zur Ermittlung der aktuellen Sternzeit:

Code: Alles auswählen

/* StarDate.cmd */
/* calculation based on Star Trek XI */
/* - former Star Trek stories lack date consistency */
parse value date() with . . year
say "Stardate" year||","||date('D')
Open Source Shareware, Registrierungsgebühr: 1 Barren in Gold gepresstes Latinum.

Freut mich, dass Ihr jetzt mit dieser Killerapp nicht mehr auf andere Betriebssysteme wechseln müßt.
Benutzeravatar
MikeK
Beiträge: 369
Registriert: Mo 23. Dez 2013, 13:51
Wohnort: Potsdam

Beitrag von MikeK »

Cool - Live long and prosper.
Mike
os2guenni
Beiträge: 270
Registriert: Di 8. Apr 2014, 10:22
Wohnort: Fürstenberg/Weser

Beitrag von os2guenni »

Hallo Frank,

hättest Du noch ein passendes Icon?

Gruß
Günter
Benutzeravatar
wdsibyl
Beiträge: 96
Registriert: Di 14. Jan 2014, 23:24
Wohnort: Wien, Österreich
Kontaktdaten:

Beitrag von wdsibyl »

Hallo!

Cool :D

in WDSibyl 4.0 sind es ein paar Zeilen mehr, aber es ist nicht so kompliziert.

Code: Alles auswählen

Program StarDate;

// Librarys
Uses uLibRTLDef,     // RTL-Definitionen
     uLibRTL;        // RTL-Library

Uses uLibVIO, uLibCrt;

Function getStarDate(dt : tDatetime) : String;

var y,m,t: Word;
    dt1  : tDatetime;
    dtp  : tDatetime;

begin
  DecodeDate(dt,y,m,t);
  dtp:=EncodeDate(y,m,t);
  dt1:=EncodeDate(y,1,1);
  Result:=tostr(y) + ',' + tostr(round(dtp-dt1)+1);
end;

Begin
  Writeln('StarDate:', getStarDate(now));
  readln;
End.
lg,
Wolfgang
--
Firma:
HP: http://www.wodrsoftware.at/
eMail: office@wodrsoftware.at
Benutzeravatar
Frank Wochatz
Beiträge: 1112
Registriert: So 22. Dez 2013, 22:04
Wohnort: Berlin
Kontaktdaten:

Beitrag von Frank Wochatz »

@Günter: um die Sharewarkosten niedrig zu halten, wurde bislang kein Icon angelegt ;)

Spaß beiseite (!), ich würde gerne einen LCARS-Desktop für OS/2 basteln, und da gäbe es dann natürlich auch ein Stardate-Gadget. Mal sehen ob ich mal Zeit dazu finde. :)

Mir wäre die Sternzeit aus TNG auch lieber gewesen als aus der neuen Zeitlinie, aber erschreckenderweise mußte ich festsellen, da die sich die Berechnung nicht richtig überlegt hatten, bzw. fließen da eher Zahlen wie die TV-Season mit ein. Teilweise widersprechen sich die Zahlen bzw. deren Formate auch. Folgt man halbwegs der Logik, müssten wir heute negative Sternzeitwerte haben, was ja irgendwie keinen Sinn macht.

In ST XI wurde dann mit der neuen Zeitlinie das einfache Format eingeführt.

http://de.memory-alpha.wikia.com/wiki/Sternzeit

@Wolfgang: ich spreche zwar keine Pascal, aber interessant!
Antworten