day detector
day detector
API Declarations
dim holdday
Rate day detector
(1(1 Vote))
holdday = weekday(now)
if holdday = 1 then
araw = "Sunday"
elseif holdday = 2 then
araw = "Monday"
elseif holdday = 3 then
araw = "Tuesday"
elseif holdday = 4 then
araw = "Wednesday"
elseif holdday = 5 then
araw = "Thursday"
elseif holdday = 6 then
araw = "Friday"
elseif holdday = 7 then
araw = "Saturday"
endif
for1.caption = now & "[" & araw & "]"
end sub
day detector Comments
No comments yet — be the first to post one!
Post a Comment