Ich hatte heute Langeweile und das ist dabei rausgekommen :D:
Code
[FortschrittJahr]
%REM="© Zonyc 2004"%-
%REM="Nutzungsbedinungen: Keine! Bitte nur um Autorangabe."%-
%REM="Verbesserung, Anpassung und Nutzung erwünscht."%-
%REM="Vorlage benötigt das MyMacros-Plugin."%-
%-
%_BalkenLang="60"%-
%_TageMax="365"%-
%IF:"%date(yyyy)"="2004":"%_TageMax=366"%-
%IF:"%date(yyyy)"="2008":"%_TageMax=366"%-
%IF:"%date(yyyy)"="2012":"%_TageMax=366"%-
%IF:"%date(yyyy)"="2016":"%_TageMax=366"%-
%_TageUm="%Calc='%_TageMax-%DaysTo(#31.12.%date(yy)#)'"%-
%_Proz='%calc("%_TageUm/%_TageMax*%_BalkenLang")'%-
%IF:'%RegExp("\.(\d){1}","%_Proz")'>'4':'%_Proz=%calc("%_Proz+1")'%-
%-
Wenn dieser Balken das Jahr %date(yyyy) repräsentiert, dann haben wir schon
soviel geschafft:
%TextBar(" ","","","%RegExp('(\d*)\.','%_Proz')")|Heute (%dateshort)
%TextBar(" ","","","%RegExp('(\d*)\.','%_Proz')")|
[%ProgressBar("#",".","%_BalkenLang","0","%_TageMax","%_TageUm")]
|%TextBar(" ","","","%calc('%_BalkenLang-2')")|
|%TextBar(" ","","","%calc('%_BalkenLang-2')")|31.12.%date(yyyy)
|01.01.%date(yyyy)
Alles anzeigen
Wenn man das ganze über %QInclude="FortschrittJahr" in eine SV einbindet, kommt da sowas bei rum: