---

Hallo miteinander

Wie muss man in einem Makro den Befehl DATE editieren, oder einbinden, damit das Datum folgendermassen erscheint?: 02.12.2003

Wenn man den Befehl im Makro einfügt, erscheint
folgendes: '26-Oct-99 10:26:58'

Ich brauche nur das Datum mit Punkten, nicht mit Bindestrich und ohne die Zeit.

Hat schon jemand mal sowas gebraucht?

Gruss
Marcel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,
das ist ein leidiges Thema...

LET TAG ((SUBSTR DATE 1 2)+".")
LET MON (SUBSTR DATE 4 3)
LET JAHR ("20"+(SUBSTR DATE 8 2))

IF (MON ="Oct")
  LET MON ("10.")
ELSE_IF (MON "Nov")
  LET MON ("11.)
....

jetzt stelle ich aber fest, dass da eine Uraltversion im Betrieb ist. Diese kann wohl den 2000-Sprung noch nicht. Der Rechner selbst sollte wohl auch mal auf das richtige Datum gestellt werden.

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

timeformat.m.txt

Hallo Marcel,

habe Dir ein Beispiel an dieses Posting gehangen.

Wenn Du den Monat der in "Worten" vom ME10 kommt noch in
Zahlen umwandel willst musst Du das über das Makro
"MATCH" machen, als Beispiel habe ich dies für
Dezember und November in diese Makro eingefügt.

Grüßle

------------------
Klaus Lörincz
0174 3439 428
Sindelfingen
Germany

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Gute idee, eine Anfrage gleichzeitig in 2 verschiedenen Foren zu stellen. Da werden viel mehr Leute beschäftigt, die sonst wahrscheinlich eh nix zu tun hätten, und viele Probleme werden doppelt gelöst:
http://ww3.cad.de/foren/ubb/Forum15/HTML/000640.shtml

Hannes

------------------
undsedadnawosondasoisdeswossedan undwosondasdadnsa

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von H.annes:
Gute idee, eine Anfrage gleichzeitig in 2 verschiedenen Foren zu stellen. Da werden viel mehr Leute beschäftigt, die sonst wahrscheinlich eh nix zu tun hätten, und viele Probleme werden doppelt gelöst:

---

10 Unities für Hannes !!! Das dachte ich mir auch schon, nachdem ich wiedermal wertvolle Zeit geopfert hatte.

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen

Danke vielmals für eure Hilfe!
Genau das hatte ich gesucht. :-)

Das mit den 2 Beiträgen in zwei Foren ist nicht so toll...sorry.
Werde in Zukunft die Beiträge nur noch in ein Forum stellen.

Unities sind unterwegs.

Gruss
Marcel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
wir ermitteln das Datum mit diesem kleinen Makro

DEFINE Datum
LET T1 (((POS 'JanFebMarAprMayJunJulAugSepOctNovDec' (SUBSTR DATE 4 3))+2)/3)
LET T2 ('.'+(STR T1)+'.')
LET T1 ((SUBSTR DATE 1 2)+T2)
LET T (SUBSTR DATE 8 4)
TEXT (T1+T) P ....?
END_DEFINE

Gruss aus Niederbayern

------------------
www.eviaudio.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das ist mal ne pfiffige Idee, dafür gibts auch U's!

Gruß

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Otto Kaiser:
...
LET T1 (((POS 'JanFebMarAprMayJunJulAugSepOctNovDec' (SUBSTR DATE 4 3))+2)/3)
...

---

elegant! 

ich verwend einen ähnlichen Mechanismus, um festzustellen, ob ein String mit einer Ziffer beginnt:
  IF (POS '1234567890' (SUBSTR Text 1 1))
schaut gleich viel professioneller aus als
  IF (((SUBSTR Text 1 1) >= "0") AND ((SUBSTR Text 1 1) <= "9"))
wobei:
  IF (MATCH (SUBSTR Text 1 1) "[0-9]")
noch um eine Spur coooler wirkt 

Hannes

------------------
undsedadnawosondasoisdeswossedan undwosondasdadnsa

[Diese Nachricht wurde von H.annes am 03. Dez. 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von H.annes:
 

  ... noch um eine Spur coooler wirkt ...  

Hannes

---

Hallo,
noch viel cooler wird das Ganze, wenn man beim Aufruf des Makros den Namen der Rückgabevarible übergeben kann. Dann braucht man sich nicht mehr um die Variablennamen im Unterprogramm zu kümmern (fast wie in einer 'richtigen' Programmiersprache) und kann die Unterprogamme 'blind' aufrufen.

DEFINE Test
  LOCAL Heute

  {Aufruf des Unterprogramms mit Uebergabe des Namens(!) der Rueckgabevariable}
  Datum 'Heute'

  DISPLAY Heute
END_DEFINE

DEFINE Datum
  PARAMETER Rueck
  LOCAL T1
  LOCAL T2
  LOCAL T
  LET T1 (((POS 'JanFebMarAprMayJunJulAugSepOctNovDec' (SUBSTR DATE 4 3))+2)/3)
  LET T2 ('.'+(STR T1)+'.')
  LET T1 ((SUBSTR DATE 1 2)+T2)
  LET T (T1+SUBSTR DATE 8 4)

  {jetzt wird die Rueckgabevariable aufgebaut}
  LET Rueck ('LET '+Rueck+' T')
  {nun wird der Text als Programmzeile ausgefuehrt}
  EXECUTE_STRING IMMEDIATE Rueck

END_DEFINE

Schöne Grüße
Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP