Datum
Datenbank-Datum in Datum umwandeln

ZDate(Teil([DEINDATUM];7;2) & "." & Teil([DEINDATUM];5;2) & "." & Teil([DEINDATUM];1;4))

Mit Uhrzeit
ZDate(Teil([DEINDATUM];7;2) & "." & Teil([DEINDATUM];5;2) & "." & Teil([DEINDATUM];1;4) & " " & Teil(Format$([DEINEZEIT];"000000");1;2) & ":" & Teil(Format$([DEINEZEIT];"000000");3;2) & ":" & Teil(Format$([DEINEZEIT];"000000");5;2))

Datum in Datenbank-Datum umwandeln

Jahr(Datum())*10000+Monat(Datum())*100+Tag(Datum())
Jahr(Datum()-365)*10000+Monat(Datum()-365)*100+Tag(Datum()-365)

Jahr(DEINDATUM())*10000+Monat(DEINDATUM())*100+Tag(DEINDATUM())

Tag/Monat Ausgabe
Ausgabe Zahl

Wochentag (01/02/...)
Format(Datum();"tt")
Format([DEINDATUM];"tt")

Monat (01/02/...)
Format(Datum();"mm")
Format([DEINDATUM];"mm")

Ausgabe Name/Bezeichnung

Wochentag (Mo/Di/...)
Format(Datum();"ttt")
Format([DEINDATUM];"ttt")

Monat (Jän/Feb/...)
Format(Datum();"mmm")
Format([DEINDATUM];"mmm")

Kalenderwoche

Format(DatTeil("ww";Datum();2);"00")
Format(DatTeil("ww";[DEINDATUM];2);"00")
Format(DatTeil("ww";ZDate(Teil([DEINDATUM];7;2) & "." & Teil([DEINDATUM];5;2) & "." & Teil([DEINDATUM];1;4));2);"00")

Sonntag als Wochenstart
Format(DatTeil("ww";Datum();1);"00")
Format(DatTeil("ww";[DEINDATUM];1);"00")
Format(DatTeil("ww";ZDate(Teil([DEINDATUM];7;2) & "." & Teil([DEINDATUM];5;2) & "." & Teil([DEINDATUM];1;4));1);"00")

Tag - erster/letzter eines Monat/Jahr errechnen

----------------------------------------------------------------------------

erster Tag des aktuellen Monats:
Datum()-Tag(Datum())+1

letzter Tag des aktuellen Monats:
DatSeriell(Jahr(Datum());Monat(Datum())+1;0)
Jahr(DatSeriell(Jahr(Datum());Monat(Datum())+1;0))*10000+Monat(DatSeriell(Jahr(Datum());Monat(Datum())+1;0))*100+Tag(DatSeriell(Jahr(Datum());Monat(Datum())+1;0))

----------------------------------------------------------------------------

erster Tag des Vor-Monats:
DatSeriell(Jahr(Datum());Monat(Datum())-1;1)
Jahr(DatSeriell(Jahr(Datum());Monat(Datum())-1;1))*10000+Monat(DatSeriell(Jahr(Datum());Monat(Datum())-1;1))*100+Tag(DatSeriell(Jahr(Datum());Monat(Datum())-1;1))

letzter Tag des Vor-Monats:
DatSeriell(Jahr(Datum());Monat(Datum());0)
Jahr(DatSeriell(Jahr(Datum());Monat(Datum());0))*10000+Monat(DatSeriell(Jahr(Datum());Monat(Datum());0))*100+Tag(DatSeriell(Jahr(Datum());Monat(Datum());0))

----------------------------------------------------------------------------

erster Tag des aktuellen Jahres:
DatSeriell(Jahr(Datum());1;1)

letzter Tag des aktuellen Jahres:
DatSeriell(Jahr(Datum());12;31)
Jahr(DatSeriell(Jahr(Datum());12;31))*10000+Monat(DatSeriell(Jahr(Datum());12;31))*100+Tag(DatSeriell(Jahr(Datum());12;31))

----------------------------------------------------------------------------

erster Tag des Vor-Jahres:
DatSeriell(Jahr(Datum());0;1)

Letzter Tag des Vor-Jahres:
DatSeriell(Jahr(Datum())-1;12;31)
Jahr(DatSeriell(Jahr(Datum())-1;12;31))*10000+Monat(DatSeriell(Jahr(Datum())-1;12;31))*100+Tag(DatSeriell(Jahr(Datum())-1;12;31))

----------------------------------------------------------------------------

Monat(e) errechnen

Monat/Jahr LfdMonat: "03/2024"
Format(Monat(DatSeriell(Jahr(Datum());Monat(Datum());1));"00") & "/" & Format(Jahr(DatSeriell(Jahr(Datum());Monat(Datum());1));"0000")

Monat/Jahr Vormonat: "02/2024"
Format(Monat(DatSeriell(Jahr(Datum());Monat(Datum())-1;1));"00") & "/" & Format(Jahr(DatSeriell(Jahr(Datum());Monat(Datum())-1;1));"0000")

Monat/Jahr VVormonat: "01/2024"
Format(Monat(DatSeriell(Jahr(Datum());Monat(Datum())-2;1));"00") & "/" & Format(Jahr(DatSeriell(Jahr(Datum());Monat(Datum())-2;1));"0000")

Vormonat:
Format(Monat(DatAdd("m";-1;Datum()));"00")

Jahr/Vormonat:
Jahr(DatAdd("m";-1;Datum())) & Format(Monat(DatAdd("m";-1;Datum()));"00")

Minuten als Stunden/Zeit anzeigen

"hh:mm:ss"
Wenn(Vorzchn([DEINFELD])=-1;"-";"") & Rechts("00" & Int(Abs([DEINFELD])/60);2) & ":" & Rechts("00" & (Abs([DEINFELD]) Mod 60);2) & ":00"

"hh:mm"
Wenn(Vorzchn([DEINFELD])=-1;"-";"") & Rechts("00" & Int(Abs([DEINFELD])/60);2) & ":" & Rechts("00" & (Abs([DEINFELD])Mod 60);2)

Zahlen / Rechnen
Formatieren
Dezimalzahl formatieren

Format([DEINEZAHL];"00\:00")

Text in Zahl umwandeln

ZDouble([DEINFELD])

Text in Zahl umwandeln mit PUNKT

ZDouble(Ersetzen([DEINFELD];".";""))

Texte
Ausschneiden

@ Als Beispiel Wert/Kennzeichen!

Vor deinem Wert/Kennzeichen
Links([DEINFELD];InStr(1;[DEINFELD];"@")-1)

Nach deinem Wert/Kennzeichen
Teil([DEINFELD];InStrRev([DEINFELD];"@";-1))

Ersetzen

Ersetzen([DEINFELD];"suchen";"ersetzen")

BLANK ersetzen:
Ersetzen([DEINFELD];" ";"")

Großbuchstaben

Großbst([DEINFELD])

Bericht
Bericht nicht drucken

Berichtsentwurf -> Eigenschaftenblatt -> Registerkarte Ereignis -> Auswahl Bei Ohne Daten -> Generator auswählen Makro Generator -> Makro AbbrechenEreignis

Bericht Zeile nicht drucken/ausblenden

Auswahl der Zeile (zb. Detailbereich) -> Eigenschaftenblatt -> Registerkarte Ereignis -> Auswahl Beim Formatieren -> Code-Generator

Feldbezeichnung werden!!

  If IsNull(Me.FELDBEZEICHNUNG) Then
    Detailbereich.Visible = False
    Else
    Detailbereich.Visible = True
    End If

Makros
"Wenn" ausführen

Wochentag(Datum())=4 Oder Wochentag(Datum())=5