Database

SELECT 
  h.FINVNO 
, h.FSHIPDATE 
 FROM ARINV01H.dbf h 
 WHERE 
 h.FSALESPN = @FSALESPN 
 AND 
 h.FSHIPDATE >= @startDate AND h.FSHIPDATE <= @stopDate 
UNION ALL 
SELECT 
  v.FINVNO 
, v.FSHIPDATE 
 FROM ARINV01.dbf v 
 WHERE 
 v.FSALESPN = @FSALESPN 
 AND 
 v.FSHIPDATE >= @startDate AND v.FSHIPDATE <= @stopDate 

SELECT
 DISTINCT FITEMNO
, SUM(FSHIPQTY)
, SUM(FCOST * FSHIPQTY)
, SUM(FPRICE * FSHIPQTY)
, (SELECT FDESCRIPT FROM ICITM01.dbf i WHERE i.FITEMNO = h.FITEMNO) AS FREALDESC
 FROM
(
   SELECT
      h.FITEMNO
    , h.FSHIPQTY
    , h.FCOST
    , h.FPRICE
   FROM ARTRS01H.dbf h
   WHERE
   h.FINVNO = @FINVNO
   UNION
   SELECT
      v.FITEMNO
    , v.FSHIPQTY
    , v.FCOST
    , v.FPRICE
   FROM ARTRS01.dbf v
   WHERE
   v.FINVNO = @FINVNO
)
 GROUP BY FITEMNO "

pResults = _
                (
                    From ca In context.Customer_Accounts
                    Where ca.DateOpened >= DbFunctions.AddDays(Today, -1)
                    Order By ca.DateOpened Descending
                    Select New accountIndex With
                    {
                        .ID = ca.ID,
                        .firstName = ca.FirstName,
                        .lastName = ca.LastName,
                        .accountName = ca.AccountName,
                        .secure_EmailAdddress = ca.EmailAddress,
                        .dateOpened = ca.DateOpened
                    }
                ).AsEnumerable()

pResults = _
                (
                    From ca In context.Customer_Accounts
                    Join ba In context.CUstomer_BillingAddress On ba.CustomerID Equals ca.ID
                    Join sa In context.Customer_ShippingAddress On sa.CustomerID Equals ca.ID
                    Where ca.DateOpened >= DbFunctions.AddDays(Today, -7)
                    Order By ca.DateOpened Descending
                    Select New accountIndex With
                    {
                        .ID = ca.ID,
                        .firstName = ca.FirstName,
                        .lastName = ca.LastName,
                        .accountName = ca.AccountName,
                        .secure_EmailAdddress = ca.EmailAddress,
                        .dateOpened = ca.DateOpened,
                        .billing_FirstName = If(ba.Name1 Is Nothing, Nothing, ba.Name1),
                        .billing_LastName = If(ba.Name2 Is Nothing, Nothing, ba.Name2),
                        .shipping_FirstName = If(sa.Name1 Is Nothing, Nothing, sa.Name1),
                        .shipping_LastName = If(sa.Name2 Is Nothing, Nothing, sa.Name2)
                    }
                ).AsEnumerable()

DECLARE @startDate AS DATETIME, @stopDate AS DATETIME; 
 SET @startDate = DATETIMEFROMPARTS(@Year, @Month, @Day, 0, 0, 0, 0); 
 SET @stopDate = DATETIMEFROMPARTS(@Year, @Month, @Day, 23, 59, 59, 999); 
 SELECT 
   TOP 20 
   CartID 
 , PartNumber 
 , Thumbnail 
 , SDescription 
 , Qty 
 , Price 
 , Category 
 , Date 
 , ProductID 
  FROM 
 ( 
    SELECT 
      sc.CartID 
    , sc.PartNumber 
    , sc.Thumbnail 
    , sc.SDescription 
    , sc.Qty 
    , sc.Price 
    , sc.Category 
    , sc.Date 
    , pi.productID 
    FROM ShoppingCart sc 
    LEFT JOIN PRODUCTINFO pi ON sc.PartNumber = pi.PartNumber 
    WHERE sc.Date > @startDate 
    AND sc.Date < @stopDate 
 ) x 
 ORDER BY Date 

Dim pValue As Integer = 0
        Dim DateStart As New Date(Now.Year, Now.Month, Now.Day, 0, 0, 0, 0)
        Dim DateStop As New Date(Now.Year, Now.Month, Now.Day, 23, 59, 59, 0)

        Dim productContext As New ProductContext()
        Dim shoppingContext As New ShoppingCartContext()

        Dim query = _
        (
            From sc In shoppingContext.ShoppingCart
            Where sc.CartDate >= DateStart _
            And sc.CartDate <= DateStop
            Take 20
            Select
            {
                sc.CartID,
                sc.PartNumber,
                sc.ThumbNail,
                sc.SDescription,
                sc.Qty,
                sc.Price,
                sc.Category,
                sc.CartDate
            }
        ).AsEnumerable()

Using context As New OrdersContext

  Dim DateStart As DateTime = DateTime.Today.AddDays(-1)
  Dim DateStop As DateTime = DateTime.Today.AddDays(+1)

  pValue = _
      (From oh In context.Order_History
      Where oh.OrderStatus = "COMPLETED" _
      And oh.OrderDate > DateStart _
      And oh.OrderDate < DateStop
      Select oh).Union _
     (From oc In context.Order_Completed
     Where oc.OrderStatus = "QUEUED_FOR_FULFILLMENT" _
     Or oc.OrderStatus = "OUT_FOR_FULFILLMENT" _
     Or oc.OrderStatus = "QUEUED_FOR_SHIPPING" _
     Or oc.OrderStatus = "OUT_FOR_PACKAGING" _
     Or oc.OrderStatus = "READY_TO_SHIP" _
     And oc.OrderDate > DateStart _
     And oc.OrderDate < DateStop
    Select oc).Sum(Function(m) m.GrandTotal)

End Using

DECLARE @StartDate AS Date; 
DECLARE @StopDate AS Date; 
SET @StartDate = CONVERT(CHAR(10),GETDATE(),101); 
SET @StopDate = CONVERT(CHAR(10),DATEADD(d,1, GETDATE()),101); 
WITH sums AS ( 
   SELECT SUM(GrandTotal) GrandTotal 
   FROM CompletedOrdersHistory 
   WHERE OrderStatus='COMPLETED' 
   AND OrderDate >= @StartDate 
   AND OrderDate < @StopDate  
   UNION ALL 
   SELECT SUM(GrandTotal) GrandTotal 
   FROM CompletedOrders 
   WHERE OrderStatus = 'QUEUED_FOR_FULFILLMENT' 
   OR OrderStatus = 'OUT_FOR_FULFILLMENT' 
   OR OrderStatus = 'QUEUED_FOR_SHIPPING' 
   OR OrderStatus = 'OUT_FOR_PACKAGING' 
   OR OrderStatus = 'READY_TO_SHIP' 
   AND OrderDate >= @StartDate 
   AND OrderDate < @StopDate 
) 
SELECT Sum(GrandTotal) AS GrandTotal 
FROM sums