Adress-Modul erstellt

2026-04-28 14:39:37 +02:00
parent f16386810f
commit 089a930488
10 changed files with 287 additions and 8 deletions
@@ -0,0 +1,18 @@
+##
+## 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)
+}