Muemmelmann | so, Forum has already helped, now have I it, was Yes simply 
Set("ErrorLevel", 0)
declare date1$,date2$,Diff%
'Eingelesene values zB
date1$=20161001
date2$=20161030
'+----------------------------------------------
Proc DeltaTage_DB_Format
'+----------------------------------------------
'Berechnet amount of Meet between 2 Datumswerten
'Parameter: beginning, end in Datenbankformat
'Rückgabe difference days Integer
Parameters From$,To$
Return dt("DaysBetween", dt("setdate",DToC$(From$)), dt("setdate",DToC$(To$)))
endproc'DeltaTage_DB_Format
' Hauptprogramm
Diff% = DeltaTage_DB_Format(date1$,date2$)
messagebox(st$(diff%),"Differenz-Tage",0) |
|
(548)
Deutsch
English
Français
Español
Italia