Good afternoon D De Villiers !
On Sat, 1 Mar 2003 11:44:18 +0200 GMT your local time,
which was 01.03.2003, 10:44 (GMT+0100) where I live, you (D Villiers)
wrote in mid:[EMAIL PROTECTED]:
> I want to add a LoVe Clock counter to all outgoing TB! emails, which
> list the amount of year(s), month(s), week(s) & day(s) since me and my
> gf (future whife) been together :-)
> How can I do this in TB! ?
> I tried %IF, %CALC & &DATE macros but unsuccessful.
You were lucky that my spam filter did not see your subject *lol*
ok, here we go: there is a set of macros you need to get the days
counted. I didn't write these (Carsten, was it you?) nevertheless it
counts days in the future but it also works on past events.
1. QT "datediff"
%If:_%Comment_>=_%Date='mmdd'_:%-
_%comment="a%Comment%-b%Date='mmdd'c0;"_:%-
_%comment="a%date='mmdd'b%Comment%c0;"_%-
%qinclude="datediff_r"%-
%comment=""
2. QT "datediff_addmonth"
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="12":"%-
%Calc=!%SetPattRegexp='b()'%RegexpMatch='%Comment'+1!":"%-
%SetPattRegexp='b()'%RegexpMatch='%Comment'"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="01":"02"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="02":"03"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="03":"04"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="04":"05"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="05":"06"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="06":"07"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="07":"08"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="08":"09"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="09":"10"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="10":"11"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="11":"12"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="12":"01"%-
%SetPattRegexp='b..(..)'%RegexpMatch='%Comment'
3. QT: "datediff_days"
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="01":"31"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="03":"31"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="04":"30"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="05":"31"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="06":"30"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="07":"31"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="08":"31"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="09":"30"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="10":"31"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="11":"30"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="12":"31"%-
%If:"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'"="02":"%-
%If:_%SetPattRegexp=$\D$%RegexpMatch=$%-
%Calc=#%SetPattRegexp='b()'%RegexpMatch='%Comment'/4#$_=__:%-
_%If:#%SetPattRegexp='b..(..)'%RegexpMatch='%Comment'#=#00#:%-
#%If:~%SetPattRegexp='b(28|24|20|16|12|08|04|00)'%-
%RegexpMatch='%Comment'~<>~~:~29~:~28~#:%-
#29#_:_28_"
4. QT: "datediff_r"
%REM="Test, ist MM der beiden Datumswerte identisch?"%-
%IF:%-
"%SetPattRegexp='a(..)'%RegexpMatch='%Comment'"<=%-
"%SetPattRegexp='b(..)'%RegexpMatch='%Comment'%-
":"%-
%Rem='Tage addieren/subtrahieren'%-
%Calc=_%-
%SetPattRegexp='c(.*?);'%RegexpMatch='%Comment'%-
+%SetPattRegexp='a..(..)'%RegexpMatch='%Comment'%-
-%SetPattRegexp='b..(..)'%RegexpMatch='%Comment'_%-
":"%-
%Rem='Monate in Tage umrechnen'%-
%Comment='%SetPattRegexp=_(a.*b)_%RegExpMatch=_%Comment_%-
%QInclude=!datediff_addmonth!%-
c%Calc=!%QInclude=#datediff_days# +
%SetPattRegexp=_c(.*?);_%RegexpMatch=_%Comment_!;'%-
%QInclude=!datediff_r!"%-
5. QT: "Differenz"
%Comment="20020101"%-
Since %Qinclude="datediff" days we are a couple
Does this help?
--
Best regards,
Gerd
===
Tutorial for using regular expressions with TheBat! www.regenechsen.de
---
Erwerbsregel #42 Verhandle nur, wenn Du sicher bist, Gewinn zu machen.
---
now playing: WDR2 :-)
Current version is 1.62 | "Using TBUDL" information:
http://www.silverstones.com/thebat/TBUDLInfo.html
