커뮤니티
만기전전주
2023-06-14 12:50:26
704
글번호 168606
아래는 만기주, 만기전주에 대한 답변 수식입니다.
1주 당겨서 만기전전주 수식을 요청드립니다.
월물 만기 전전전주 금요일
월물 만기 전전주 월요일
월물 만기 전전주 화요일
월물 만기 전전주 수요일
월물 만기 전전주 목요일 (weekly만기일 )
**********************************************************************************************
월물 만기 전전주 금요일
월물 만기 전주 월요일
월물 만기 전주 화요일
월물 만기 전주 수요일
월물 만기 전주 목요일 (weekly만기일 )
Var : Year(0),Month(0),ndate1(0),ndate2(0);
var : cnt(0),count1(0),count2(0);
var : XD1(0),XD2(0),Xdate(0),remain(0);
Year = Floor(sDate / 10000)*10000;
month = Floor(FracPortion(sdate/10000)*100)*100;
ndate1 = year+month+1;
if Month+100 <= 1200 Then
ndate2 = year+(month+100)+1;
Else
ndate2 = (year+10000)+100+1;
count1 = 0;
count2 = 0;
for cnt = 0 to 15
{
if dayofweek(ndate1+cnt) == 4 Then
{
count1 = count1+1;
if count1 == 2 Then
{
XD1 = ndate1+cnt;
}
}
if dayofweek(ndate2+cnt) == 4 Then
{
count2 = count2+1;
if count2 == 2 Then
{
XD2 = nDate2+cnt;
}
}
}
if sDate <= XD1 Then
{
Xdate = XD1;
}
Else
{
Xdate = XD2;
}
if Xdate > 0 Then
{
remain = DateToJulian(Xdate)-DateToJulian(sDate);
}
if remain >= 7 and remain <= 13 Then
{
진입청산수식
}
**************************************************************************
월물 만기전주 금요일
월물 만기주 월요일
월물 만기주 화요일
월물 만기주 수요일
월물 만기주 목요일 (monthly 만기일 )
Var : ndate(0),cnt(0),count(0),JTD(0),XD(0),JXD(0);
if Bdate != Bdate[1] Then
{
#오늘 날짜를 율리우스날짜로 변경
JTD = DateToJulian(Bdate);
#이번달 두번째 목요일의 날짜 체크
ndate = Floor(bDate/100)*100;
count = 0;
For cnt = 1 to 15
{
if DayOfWeek(ndate+cnt) == 4 Then
{
count = count+1;
if count == 2 Then
XD = ndate+cnt;
}
}
#두번째 목요일 날짜를 율리우스날짜로 변경
JXD = DateToJulian(XD);
if JXD >= JTD and JXD <= JTD+6 Then
Condition1 = true;
Else
Condition1 = False;
}
if condition1 == true then
{
진입청산수식
}
답변 1
예스스탁 예스스탁 답변
2023-05-02 15:03:12
안녕하세요
예스스탁입니다.
Var : Year(0),Month(0),ndate1(0),ndate2(0);
var : cnt(0),count1(0),count2(0);
var : XD1(0),XD2(0),Xdate(0),remain(0);
Year = Floor(sDate / 10000)*10000;
month = Floor(FracPortion(sdate/10000)*100)*100;
ndate1 = year+month+1;
if Month+100 <= 1200 Then
ndate2 = year+(month+100)+1;
Else
ndate2 = (year+10000)+100+1;
count1 = 0;
count2 = 0;
for cnt = 0 to 15
{
if dayofweek(ndate1+cnt) == 4 Then
{
count1 = count1+1;
if count1 == 2 Then
{
XD1 = ndate1+cnt;
}
}
if dayofweek(ndate2+cnt) == 4 Then
{
count2 = count2+1;
if count2 == 2 Then
{
XD2 = nDate2+cnt;
}
}
}
if sDate <= XD1 Then
{
Xdate = XD1;
}
Else
{
Xdate = XD2;
}
if Xdate > 0 Then
{
remain = DateToJulian(Xdate)-DateToJulian(sDate);
}
if remain >= 14 and remain <= 20 Then
{
진입청산수식
}
즐거운 하루되세요
> 목마와숙녀 님이 쓴 글입니다.
> 제목 : 문의
> 아래는 만기주, 만기전주에 대한 답변 수식입니다.
1주 당겨서 만기전전주 수식을 요청드립니다.
월물 만기 전전전주 금요일
월물 만기 전전주 월요일
월물 만기 전전주 화요일
월물 만기 전전주 수요일
월물 만기 전전주 목요일 (weekly만기일 )
**********************************************************************************************
월물 만기 전전주 금요일
월물 만기 전주 월요일
월물 만기 전주 화요일
월물 만기 전주 수요일
월물 만기 전주 목요일 (weekly만기일 )
Var : Year(0),Month(0),ndate1(0),ndate2(0);
var : cnt(0),count1(0),count2(0);
var : XD1(0),XD2(0),Xdate(0),remain(0);
Year = Floor(sDate / 10000)*10000;
month = Floor(FracPortion(sdate/10000)*100)*100;
ndate1 = year+month+1;
if Month+100 <= 1200 Then
ndate2 = year+(month+100)+1;
Else
ndate2 = (year+10000)+100+1;
count1 = 0;
count2 = 0;
for cnt = 0 to 15
{
if dayofweek(ndate1+cnt) == 4 Then
{
count1 = count1+1;
if count1 == 2 Then
{
XD1 = ndate1+cnt;
}
}
if dayofweek(ndate2+cnt) == 4 Then
{
count2 = count2+1;
if count2 == 2 Then
{
XD2 = nDate2+cnt;
}
}
}
if sDate <= XD1 Then
{
Xdate = XD1;
}
Else
{
Xdate = XD2;
}
if Xdate > 0 Then
{
remain = DateToJulian(Xdate)-DateToJulian(sDate);
}
if remain >= 7 and remain <= 13 Then
{
진입청산수식
}
**************************************************************************
월물 만기전주 금요일
월물 만기주 월요일
월물 만기주 화요일
월물 만기주 수요일
월물 만기주 목요일 (monthly 만기일 )
Var : ndate(0),cnt(0),count(0),JTD(0),XD(0),JXD(0);
if Bdate != Bdate[1] Then
{
#오늘 날짜를 율리우스날짜로 변경
JTD = DateToJulian(Bdate);
#이번달 두번째 목요일의 날짜 체크
ndate = Floor(bDate/100)*100;
count = 0;
For cnt = 1 to 15
{
if DayOfWeek(ndate+cnt) == 4 Then
{
count = count+1;
if count == 2 Then
XD = ndate+cnt;
}
}
#두번째 목요일 날짜를 율리우스날짜로 변경
JXD = DateToJulian(XD);
if JXD >= JTD and JXD <= JTD+6 Then
Condition1 = true;
Else
Condition1 = False;
}
if condition1 == true then
{
진입청산수식
}