_SECTION_BEGIN("AUTO SAVE");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
SaveTime = Interval() * 1 ;// to increase time Use * 2 or 5 or give the Time directly in number of Seconds
SecNumber = GetSecondNum();
Newperiod = SecNumber % SaveTime == 0;
SecsLeft = SecNumber - int( SecNumber / SaveTime ) * SaveTime;
SecsToGo = SaveTime - SecsLeft;
MinsLeft = floor(SecsToGo/60);
SecsLeft = SecsToGo%60;
GfxSetBkColor( colorBlack) ;
GfxSetTextColor(colorGold);
GfxSelectFont("Comic Sans MS", 12, 400 ); // Font and Size
GfxDrawText("Save After: " + NumToStr( SecsToGo, 1.0, False) + " Secs" ,5,20, 1300, 360, 0);
AB = CreateObject("Broker.Application"); //
if (SecsToGo==1) AB.SaveDatabase ;
_SECTION_END();
Public SP as date ' Variable SP stores Save Period
Private Sub Timer()
If TimerActive = True Then
On Error Resume Next
If TimeValue(Now()) >= Range("L4").Value Then
MyBook.Sheets("Nest").Range("D4") = "Time is- " & Now() & " Exchange closed"
ElseIf TimeValue(Now()) <= Range("L3").Value Then
MyBook.Sheets("Nest").Range("D4") = "Time is- " & Now() & " Exchange not open yet"
Else
MyBook.Sheets("Nest").Range("D4") = Now()
' New Code for saving database at fixed interval
If SP > Range("B4") Then
SP = #0:00:00# ' This part of code may have to be changed
AB.SaveDatabase
Else
SP = SP + RP
End If
MakeCSV 'Calls Subroutine for generating csv file
If DBPath <> "" Then CallAmiBroker 'Calls AmiBroker for importing file
End If
Public SP as date ' Variable SP stores Save Period
Private Sub Timer()
If TimerActive = True Then
On Error Resume Next
If TimeValue(Now()) >= Range("L4").Value Then
MyBook.Sheets("Nest").Range("D4") = "Time is- " & Now() & " Exchange closed"
ElseIf TimeValue(Now()) <= Range("L3").Value Then
MyBook.Sheets("Nest").Range("D4") = "Time is- " & Now() & " Exchange not open yet"
Else
MyBook.Sheets("Nest").Range("D4") = Now()
' New Code for saving database at fixed interval
If SP > Range("B4") Then
SP = #0:00:00# ' This part of code may have to be changed
AB.SaveDatabase
Else
SP = SP + RP
End If
MakeCSV 'Calls Subroutine for generating csv file
If DBPath <> "" Then CallAmiBroker 'Calls AmiBroker for importing file
End If
_SECTION_BEGIN("AUTO SAVE");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
SaveTime = Interval() * 1 ;// to increase time Use * 2 or 5 or give the Time directly in number of Seconds
SecNumber = GetSecondNum();
Newperiod = SecNumber % SaveTime == 0;
SecsLeft = SecNumber - int( SecNumber / SaveTime ) * SaveTime;
SecsToGo = SaveTime - SecsLeft;
MinsLeft = floor(SecsToGo/60);
SecsLeft = SecsToGo%60;
GfxSetBkColor( colorBlack) ;
GfxSetTextColor(colorGold);
GfxSelectFont("Comic Sans MS", 12, 400 ); // Font and Size
GfxDrawText("Save After: " + NumToStr( SecsToGo, 1.0, False) + " Secs" ,5,20, 1300, 360, 0);
AB = CreateObject("Broker.Application"); //
if (SecsToGo==1) AB.SaveDatabase ;
_SECTION_END();
Public SP as date ' Variable SP stores Save Period
[COLOR="Yellow"]Private Sub Timer()[/COLOR]
If TimerActive = True Then
On Error Resume Next
If TimeValue(Now()) >= Range("L4").Value Then
MyBook.Sheets("Nest").Range("D4") = "Time is- " & Now() & " Exchange closed"
ElseIf TimeValue(Now()) <= Range("L3").Value Then
MyBook.Sheets("Nest").Range("D4") = "Time is- " & Now() & " Exchange not open yet"
Else
MyBook.Sheets("Nest").Range("D4") = Now()
' New Code for saving database at fixed interval
If SP > Range("B4") Then
SP = [COLOR="yellow"]#12:00:00 AM#[/COLOR] ' This part of code may have to be changed
AB.SaveDatabase
Else
SP = SP + RP
End If
MakeCSV 'Calls Subroutine for generating csv file
If DBPath <> "" Then CallAmiBroker 'Calls AmiBroker for importing file
End If