'Funktionsname: GetMyTimeNumber()
'Funktion: Erzeuge eine Ganzzahl der Zeit
'Parameter: lx ---- Zeittyp Ganzzahl
' lx=0 zu Minute lx=1 zu Stunde lx=2 zu Tag lx=3 zu Monat
'Rückgabewert: Ganzzahliger Wert der Generierungszeit (mindestens Minuten)
'Beispiel:
'************************************************** *
Öffentliche Funktion GetMyTimeNumber(lx)
Wenn lx=0, dann GetMyTimeNumber=Jahr(Datum)*12*30*24*60+Monat(Datum)*30*24*60+Tag(Datum)*24*60+Stunde(Zeit)*60+Minute(Zeit )
Wenn lx=1, dann GetMyTimeNumber=Jahr(Datum)*12*30*24+Monat(Datum)*30*24+Tag(Datum)*24+Stunde(Zeit)
Wenn lx=2, dann GetMyTimeNumber=Jahr(Datum)*12*30+Monat(Datum)*30+Tag(Datum)
Wenn lx=3, dann GetMyTimeNumber=Jahr(Datum)*12+Monat(Datum)
Funktion beenden