WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Samples from Users
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Countdown Days


This example counts the number of workdays excluding weekends from now until retirement
what = "Retirement"
end_julian_day = TimeJulianDay("2005:08:12:00:00:00")
end_time=timejultoymd(end_julian_day)

current_time =timeymdhms()
current_julian_day =timejulianday(current_time)

total_days_left = max(0,timediffdays(end_time,current_time))
work_days_left = 0

for julian_day=current_julian_day+1 to end_julian_day
	day_of_week=itemextract(((julian_day+5) mod 7)+1,'S M T W T F S',' ')
	if day_of_week!='S' then work_days_left=work_days_left+1
next

work_days_left=max(0,work_days_left)

Message(StrCat("WorkDays Left Until ",what),work_days_left)

This example counts down the number of days left from now until vacation
what = "Vacation"
end_julian_day = TimeJulianDay("2005:08:12:00:00:00")
end_time=timejultoymd(end_julian_day)

current_time =timeymdhms()
current_julian_day =timejulianday(current_time)

total_days_left = max(0,timediffdays(end_time,current_time))
days_left = 0

for julian_day=current_julian_day+1 to end_julian_day
	days_left=days_left+1
next

days_left=max(0,days_left)

Message(StrCat("Days Left Until ",what),days_left)


Article ID:   W16690
File Created: 2005:02:18:12:21:52
Last Updated: 2005:02:18:12:21:52