qrycust.vbs

Dream Scripter v3.5 Full Source Code

'-------------------------------------------------------------------

sub SetFromDate(NewDate)
  FromEdit.Text = DateToStr(NewDate)
End Sub

'-------------------------------------------------------------------

sub SetToDate(NewDate)
  ToEdit.Text = DateToStr(NewDate)
End Sub

'-------------------------------------------------------------------

function GetFromDate()
  if FromEdit.Text = ""  then
    GetFromDate = 0
  else
    GetFromDate = StrToDate(FromEdit.Text)
  End If
end Function
'-------------------------------------------------------------------

function GetToDate()
  if ToEdit.Text = "" then
    GetToDate = 0
  else
    GetToDate = StrToDate(ToEdit.Text)
  End If
end Function

'-------------------------------------------------------------------

sub OkBtnClick(Sender)
  if (GetToDate() <> 0) and  (GetToDate() < GetFromDate()) then
    ShowMessage("'TO' date cannot be less than 'FROM' date")
    ModalResult = mrNone
  else
    ModalResult = mrOk
  End If
End Sub

'-------------------------------------------------------------------

sub FormCreate(Sender)
  MsgLab.Caption = "Customers with LastInvoiceDate ranging:"
  call SetFromDate(EncodeDate(1995, 01, 01))
  call SetToDate(Now)
End Sub