In den Schnellbriefen gibt es die Variable (Platzhalter) $4001$ für das aktuelle Tagesdatum.
Lt. Bescheibung soll man auch das aktuelle Datum + x Tage verwenden können durch Angabe der +Tage in eckigen Klammern.
Leider bekomme ich das nicht hin.
Die Hotline von TM ist damit überfordert und teilt auf meine entsprechende Anfrage folgendes mit: "... bezugnehmend auf Ihre Anfrage per E-Mail möchten wir Sie bitten, sich mit dem Vertriebs- und Servicepartner der Praxis in Verbindung zu setzten, da unsere CGM TURBOMED Hotline auf reine Anwenderfragen ausgerichtet ist. "
Ich dachte eigentlich, dass das ist eine Anwenderfrage ist. Jedenfalls kann ich von dort keine Hilfe erwarten. Weiß jemand, wie es geht?
TM-Vers: 21.4.2-5259
Vielen Dank
Schnellbrief aktuelles Datum + x Tage
Moderator: Forum Moderatoren
Forumsregeln
TM-Startforum - "offen für alle Themen".
Beiträge, die in einen anderen Bereich passen, werden bei Bedarf verschoben.
TM-Startforum - "offen für alle Themen".
Beiträge, die in einen anderen Bereich passen, werden bei Bedarf verschoben.
- RAMöller
- Beiträge: 1516
- Registriert: Montag 4. Januar 2010, 20:42
- 16
- Hat sich bedankt: 16 mal
- Hat Dank erhalten: 79 mal
Re: Schnellbrief aktuelles Datum + x Tage
Wenn es in Word ist, sieht ein Makro zu Vordatierung in etwa so aus wie unten.
Sub DokVariableHinzfuegen()
ActiveDocument.Variables.Add Name:="Verfallsdatum"
End Sub
Sub AutoNew()
DokVariableVersorgen
End Sub
Sub AutoOpen()
DokVariableVersorgen
End Sub
Private Sub DokVariableVersorgen()
ActiveDocument.Variables("Verfallsdatum").Value = Vordatieren(7)
ActiveDocument.Fields.Update
End Sub
Private Function Vordatieren(d As Integer) As String
Dim t As Date
t = Date + d
Vordatieren = Format(t, "d. MMMM yyyy")
End Function
Sub DokVariableHinzfuegen()
ActiveDocument.Variables.Add Name:="Verfallsdatum"
End Sub
Sub AutoNew()
DokVariableVersorgen
End Sub
Sub AutoOpen()
DokVariableVersorgen
End Sub
Private Sub DokVariableVersorgen()
ActiveDocument.Variables("Verfallsdatum").Value = Vordatieren(7)
ActiveDocument.Fields.Update
End Sub
Private Function Vordatieren(d As Integer) As String
Dim t As Date
t = Date + d
Vordatieren = Format(t, "d. MMMM yyyy")
End Function
-
rfbdoc
- PowerUser
- Beiträge: 3064
- Registriert: Sonntag 30. April 2006, 19:31
- 20
- Hat sich bedankt: 56 mal
- Hat Dank erhalten: 100 mal
Re: Schnellbrief aktuelles Datum + x Tage
$4001[-1]$ funktioniert, natürlich nicht $4001$[-1]
R.F.B.
-
hw
- Beiträge: 293
- Registriert: Dienstag 1. August 2006, 09:45
- 20
- Wohnort: Baden-Württemberg
- PVS: Turbomed
- Konnektortyp: Kocobox
- Hat sich bedankt: 21 mal
- Hat Dank erhalten: 23 mal
Re: Schnellbrief aktuelles Datum + x Tage
Vielen Dank für die Tipps.
Dass das mit $4001[+5]$ doch geht, hilft uns ungemein bei der Vorbereitung von z.B. Impfeinwilligungen.
Die Hotline war nicht in der Lage, das mitzuteilen.
Wenn das noch jemand braucht, hier vielleicht noch der Hinweis: Die eckigen Klammern werden mit AltGr+8 bzw. AltGr+9 erzeugt.
Danke auch für den Ansatz mit dem Wordmakro, kann ich bestimmt außerhalb von TM brauchen.
Gruß hw
Dass das mit $4001[+5]$ doch geht, hilft uns ungemein bei der Vorbereitung von z.B. Impfeinwilligungen.
Die Hotline war nicht in der Lage, das mitzuteilen.
Wenn das noch jemand braucht, hier vielleicht noch der Hinweis: Die eckigen Klammern werden mit AltGr+8 bzw. AltGr+9 erzeugt.
Danke auch für den Ansatz mit dem Wordmakro, kann ich bestimmt außerhalb von TM brauchen.
Gruß hw
Wer ist online?
Mitglieder in diesem Forum: Google [Bot] und 10 Gäste