##
## Datum: 2024-10-17_14-31 
## Name: Christian Oswald
## Projekt:  etatverwaltung
## Datei:  f_zeitstempel.R
## Kommentar: Erstellt einen Zeitstempel für die DB-Felder updatea und created
##

# Funkton die prüft ob das Format stimmt
is.ymd_hms <- function(x) !is.na(lubridate::ymd_hms(x, quiet = TRUE))
# Zeitstempel
f_zeitstempel <- function(ts){
  # Erstellt einen wenn leer
  if(is.na(ts)) ts <-  format(Sys.time(), tz="") 
  # Erstellt einen wenn das Format nicht stimmt
  if(!is.ymd_hms(ts)) ts <-  format(Sys.time(), tz="") 
  return(ts)
}