19 lines
551 B
R
19 lines
551 B
R
##
|
|
## 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)
|
|
}
|