Muemmelmann | so, Forum hat déjà geholfen, maintenant habe je es, était oui simple 
Set("ErrorLevel", 0)
declare date1$,date2$,Diff%
'Eingelesene Werte zB
date1$=20161001
date2$=20161030
»+----------------------------------------------
Proc DeltaTage_DB_Format
»+----------------------------------------------
'Berechnet Anzahl de Tagen entre 2 Datumswerten
'Parameter: Anfang, Ende dans Datenbankformat
'Rückgabe Differenz Tage Integer
Paramètres de$,jusqu'à$
Retour dt("DaysBetween", dt("setdate",DToC$(de$)), dt("setdate",DToC$(jusqu'à$)))
endproc'DeltaTage_DB_Format
' Hauptprogramm
Diff% = DeltaTage_DB_Format(date1$,date2$)
messagebox(str$(diff%),"Differenz-Tage",0) |
|
(530)
Deutsch
English
Français
Español
Italia