Hi,
Im working on a projcet where we will do some automatic updates of the KUKA program. And in that case i need to know what weekday it is to secure that the update dosent take place in the weekends and fridays.
$date dosent work as it dont give me the weekday or week no.
So i need a way to get ether the weekday or week no.
Any ideas?
Info:
KRC4
KSS 8.3 and up.
Either use $date and use an algorithm to figure out the day of week. Or save 2020-01-01 weekday and find the remainder between then and $date (don't forget leap years).
For the former, there are plenty of algorithms that you just have to implement in KRL.
Hi,
Thanks for the reply. Already thougt of that. But where hoping for a more simple solution.
I just need to start coding
Had the idea that it might where possible to grasp it from windows. But thats where my programming skills gets tested
This should do the trick...
Hi panic mode,
Really appriciate you help.. But it seems like some og the code i missing in your last post? or maybe i just dont get it......
It seems like there is a funktion missing for Get_Day_Name
And just to save time:
Log and mod what are they declared as.
Thanks in advance
This i what i have so far.
DEF Weekday ( )
DECL CHAR t[10]
DECL DATE HistoricDay
;Shows todays day
Log(Get_Day_Name(Day_Of_The_Week()))
;Show Some Random Day
HistoricDay.YEAR = 1927
HistoricDay.MONTH = 9
HistoricDay.DAY = 24
Log(Get_Day_Name(Day_Of_The_Week(HistoricDay)))
END
DEFFCT INT DAY_OF_THE_WEEK(d:IN)
DECL DATE d
DECL CHAR t[12]
DECL INT n,m,y
t[]="032503514624"
IF VarState("d") <> #initialized THEN
d=$DATE
ENDIF
IF d.month < 3 THEN
y = d.year-1
ELSE
y = d.year
ENDIF
m=t[d.month]
m=m-48
n=y + y/4 -y/100 + y/400 + m + d.day
return mod(n,7)
ENDFCTI guess Get day name is just a switch statement that returns week days as words instead of integers (e.g GetDayName(3) ->Wednesday).
Mod most likely returns the remainder of integer division.
DEFFCT INT MOD(x1:in,x2:in)
DECL INT x1,x2
IF x2==0 THEN
MsgQuit("Cannot divide %1 by zero","Mod()",x1)
ENDIF
RETURN x1 - (x1/x2)*x2
ENDFCT
DEFFCT CHAR[3] Get_Day_Name(n:in)
DECL INT n
SWITCH n
Case 1
RETURN "Mon"
Case 2
RETURN "Tue"
Case 3
RETURN "Wed"
Case 4
RETURN "Thu"
Case 5
RETURN "Fri"
Case 6
RETURN "Sat"
Case 7
RETURN "Sun"
ENDSWITCH
RETURN "???"
ENDFCTyou can just use MSGNOTIFY() instead of LOG()
background:
i did like that MsgLib is included as a standard feature but... i find it ... quite crude... specially the dialog. so i made my own substitutes....
they are shorter to type,
they make sure that displayed message or dialog are also recorded in the message database (for whatever reason MSGLIB does not do that)
can have more parameters,
different type parameters supported,
controlled parameter format/precision,
no more counting commas - one string contains all SK in expected order - left to right (no more reversed order for SK),
number of SK to be displayed is automatically generated from that string and
much more...
For example day of thee week can be questioned and evaluated as easy as:
DECL INT d
LOOP
d = DLG("Pick a day","Mon|Tue|Wed|Thu|Fri|Sat|Sun")
LOG ("You pressed button %1 which is %2", d, Get_Day_Name(d))
ENDLOOP
