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

Time UDFs

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

Find Monday UDF

Keywords:   find Monday UDF TimeJulianDay

#DefineFunction FindMonday(dt)
b=TimeJulianDay(dt) 
c=(b+4) mod 7
;Pause("C",c)
d=TimeSubtract(dt,"0000:00:%c%:00:00:00")
Return(d)

#EndFunction

;Testing...


a="2002:10:07:01:01:01"
b=FindMonday(a)
Pause(a,b)

a="2002:10:08:01:01:01"
b=FindMonday(a)
Pause(a,b)

a="2002:10:09:01:01:01"
b=FindMonday(a)
Pause(a,b)

a="2002:10:13:01:01:01"
b=FindMonday(a)
Pause(a,b)

a="2002:10:14:01:01:01"
b=FindMonday(a)
Pause(a,b)




Article ID:   W15768
File Created: 2003:05:13:11:29:58
Last Updated: 2003:05:13:11:29:58