Datum-funktion

[jorgeng]

När jag läser i hjälp-programmet för friendly börs under välj formel hittar jag detta:

Datumfunktioner:
DayOfWeek()
DayOfMonth()
MonthNumber()
YearNumber()
Date()

Det finns inget exempel hur man anger kod för en enkel kontroll vilken dag i månaden eller år det är, hur skriver man detta?

Vid sökning i friendly forum finns ingen träff på dayofmonth, så var finns dokumentationen hur man kodar?

[jorgeng]

Kod jag skulle vilja ha skriven:

Om (dag > 31
och månad > 11)
goto exit
else
kör vidare i programmet
end-if


Detta är enkel programkod. Hur blir denna koden i Friendlybörs?

Vad står () i DayOfWeek för?

[jorgeng]

Det här har jag fått till hittills:

{ K-terminen slutar gälla 2007-11-23 }
dag=Eqv(DayOfMonth(),16)
manad=Eqv(MonthNumber(),11)
ar=Eqv(YearNumber(),2007)
test1=And(dag,manad)
test2=And(test1,ar)
i30(test2)

Det visas flagga för den 16 november.

Nästa problem är att få till en if-loop dvs:
Om (dag > 31
och månad > 11)
goto exit
else
kör vidare i programmet
end-if

Syftet är att visa flaggan november ut för kunder.

Friendly Börs har ju ej stöd för If så hur uppnår man ovanstående?

Om man bara vill visa scriptet fram tom 2007-11-23 och ej 2007-11-26 och framåt, hur programmerar man det i Friendly Börs?

[lfm]

dag=Eqv(DayOfMonth(),16)
manad=Eqv(MonthNumber(),11)
ar=Eqv(YearNumber(),2007)
test1=And(dag,manad)
test2=And(test1,ar)
i30(test2)

det ovan skall skrivas

i30(
dag=Eqv(DayOfMonth(),16)
manad=Eqv(MonthNumber(),11)
ar=Eqv(YearNumber(),2007)
test1=And(dag,manad)
test2=And(test1,ar)
test2
)


Intradayprefix måste omsluta all körbar kod, men inte sträcka sig in på :=-rader.

Det lär inte producera vad du tror annars.

[jorgeng]

Tack för svaret Lasse, men det var inte det jag frågade om.

Mitt script:

i30(
dag=Eqv(DayOfMonth(),28)
manad=Eqv(MonthNumber(),11)
ar=Eqv(YearNumber(),2007)
test=GT(dag,DayOfMonth)
test1=And(test,manad)
test2=And(test1,ar)
test2
)

Vad jag vill:
Få flagga att tändas den 29, 30 November vilket inte sker nu.

Hur får man till en kontroll om datum > 28 November?

[jorgeng]

x

[jorgeng]

Gt verkar inte fungera i Friendly Börs på datumkontroll, fick ändra till Lt på November:

{---Datumkontroll---------------------------------------------------------------}
Start_dag=Lt(DayOfMonth(),32)
Start_manad=Eqv(MonthNumber(),11)
Start_ar=Eqv(YearNumber(),2007)
Datumkontroll_Start1=And(Start_dag,Start_manad)
Datumkontroll_Start2=And(Datumkontroll_Start1,Start_ar)
Slut_dag=Lt(DayOfMonth(),29)
Stut_manad=Eqv(MonthNumber(),12)
Slut_ar=Eqv(YearNumber(),2007)
Datumkontroll_Slut1=And(Slut_dag,Slut_manad)
Datumkontroll_Slut2=And(Datumkontroll_Slut1,Slut_ar)
Datumkontroll=Or(Datumkontroll_Start2,Datumkontroll_Slut2)

När kund beställer Omx Reek för omxs307l ex den 24 november kontrollerar scriptet att datum < 32 november 2007 dvs som mest 30 november och < 29 december 2007. Sista handelsdag på omxs307l är 28 december.

Jag har kontrollerat att det fungerar mha flaggor.

[jorgeng]