PureBoard

Code: Alles auswählen

;Modul      VersDate Version 1.05 vom 19.02.2008 
;#PB_Vers  = "4.20"
;
;Funktion:  liefert VersionsKennung, basierend auf aktuellem SystemDatum
;           Es wird eine VersionsKennung aufgebaut, die folgendermaßen
;           aufgebaut ist:
;           1. Zeichen = letzte Ziffer der Jahreszahl
;           2. Zeichen = MonatsKennung (1=Jan...9=Sept, A=Okt...C=Dez)
;           3.+4.Zeich = TagesZahl (01..31)
; optional: 5. Zeichen = lfd. Buchstabe des Tages (1.=a...26.=z, 27.=A..52=Z)
;
;Aufruf:    Version$ = VersDate({LastVers$})
;           LastVers$: bisherige VersionsKennung, wenn Diese angegeben wird und
;                     mind. 5stellig ist, so werden immer eine 5stellige
;                     VersionsKennung geliefert, unabhängig von Datum, auf dem
;                     LastVers$ basiert. Basiert LastVers$ auf dem aktuellen
;                     System-Datum, so wird das 5. Zeichen incrementiert.
;                     Wird LastVers$ nicht angegeben, so wird immer eine 4stellig
;                     VersionsKennung geliefert, also nur Tages-abhängig...
;
;#jaPBeExt exit
Procedure.s VersDate(OldVers$ = "")
  Protected Release.l
  Protected Heute$ = FormatDate("%dd.%mm.%yyyy", Date())
  Protected Kenn$ = Right(Heute$, 1) + Hex(Val(Mid(Heute$, 4, 2))) + Left(Heute$, 2)
  If Len(OldVers$)<5 : ProcedureReturn Kenn$
  Else
    Debug OldVers$ + " --> " + Kenn$
    If Left(OldVers$, Len(Kenn$)) = Kenn$ ;same date
      Release = Asc(Right(OldVers$, 1)) + 1 ;incr release
      If Release>'z' : Release = 'A' : EndIf
    Else : Release = 'a' ;new date: reset release
    EndIf
  EndIf
  ProcedureReturn Kenn$ + Chr(Release)
EndProcedure