diff --git a/casr-logbook-meta.cabal b/casr-logbook-meta.cabal
--- a/casr-logbook-meta.cabal
+++ b/casr-logbook-meta.cabal
@@ -1,5 +1,5 @@
 name:               casr-logbook-meta
-version:            0.0.2
+version:            0.0.3
 license:            OtherLicense
 license-file:       LICENSE
 author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,7 @@
+0.0.3
+
+* Add `aircraftUsageCost`, `briefingCost`, `simulatorFlightCost`.
+
 0.0.2
 
 * Export classy lenses and prisms.
diff --git a/src/Data/Aviation/Casr/Logbook/Meta/AircraftUsageExpense.hs b/src/Data/Aviation/Casr/Logbook/Meta/AircraftUsageExpense.hs
--- a/src/Data/Aviation/Casr/Logbook/Meta/AircraftUsageExpense.hs
+++ b/src/Data/Aviation/Casr/Logbook/Meta/AircraftUsageExpense.hs
@@ -3,14 +3,18 @@
 module Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense(
   AircraftUsageExpense(AircraftUsageExpense)
 , HasAircraftUsageExpense(..)
+, aircraftUsageCost
 ) where
 
-import Control.Lens(makeClassy)
+import Control.Lens(makeClassy, (^.))
+import Data.Aviation.Casr.Logbook.AircraftFlight(HasAircraftFlight, daynight)
+import Data.Aviation.Casr.Logbook.TimeAmount(timeAmountBy10)
+import Data.Aviation.Casr.Logbook.DayNight(totalDayNight)
 import Data.Eq(Eq)
 import Data.Int(Int)
 import Data.Ord(Ord)
 import Data.String(String)
-import Prelude(Show)
+import Prelude(Show, (*))
 
 data AircraftUsageExpense =
   AircraftUsageExpense {
@@ -19,3 +23,12 @@
   } deriving (Eq, Ord, Show)
 
 makeClassy ''AircraftUsageExpense
+
+aircraftUsageCost ::
+  HasAircraftFlight s =>
+  s
+  -> AircraftUsageExpense
+  -> Int
+aircraftUsageCost fl (AircraftUsageExpense perhour _) =
+  let z = totalDayNight (fl ^. daynight)
+  in  timeAmountBy10 z * perhour
diff --git a/src/Data/Aviation/Casr/Logbook/Meta/BriefingExpense.hs b/src/Data/Aviation/Casr/Logbook/Meta/BriefingExpense.hs
--- a/src/Data/Aviation/Casr/Logbook/Meta/BriefingExpense.hs
+++ b/src/Data/Aviation/Casr/Logbook/Meta/BriefingExpense.hs
@@ -3,14 +3,17 @@
 module Data.Aviation.Casr.Logbook.Meta.BriefingExpense(
   BriefingExpense(BriefingExpense)
 , HasBriefingExpense(..)
+, briefingCost
 ) where
 
-import Control.Lens(makeClassy)
+import Control.Lens(makeClassy, (^.))
+import Data.Aviation.Casr.Logbook.Briefing(HasBriefing, briefingTimeAmount)
+import Data.Aviation.Casr.Logbook.TimeAmount(timeAmountBy10)
 import Data.Eq(Eq)
 import Data.Int(Int)
 import Data.Ord(Ord)
 import Data.String(String)
-import Prelude(Show)
+import Prelude(Show, (*))
 
 data BriefingExpense =
   BriefingExpense {
@@ -19,3 +22,12 @@
   } deriving (Eq, Ord, Show)
 
 makeClassy ''BriefingExpense
+
+briefingCost ::
+  HasBriefing s =>
+  s
+  -> BriefingExpense
+  -> Int
+briefingCost br (BriefingExpense perhour _) =
+  let z = br ^. briefingTimeAmount
+  in  timeAmountBy10 z * perhour
diff --git a/src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightExpense.hs b/src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightExpense.hs
--- a/src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightExpense.hs
+++ b/src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightExpense.hs
@@ -3,14 +3,17 @@
 module Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense(
   SimulatorFlightExpense(SimulatorFlightExpense)
 , HasSimulatorFlightExpense(..)
+, simulatorFlightCost
 ) where
 
-import Control.Lens(makeClassy)
+import Control.Lens(makeClassy, (^.))
+import Data.Aviation.Casr.Logbook.SimulatorFlight(HasSimulatorFlight, instrumentsimulatorTime)
+import Data.Aviation.Casr.Logbook.TimeAmount(timeAmountBy10)
 import Data.Eq(Eq)
 import Data.Int(Int)
 import Data.Ord(Ord)
 import Data.String(String)
-import Prelude(Show)
+import Prelude(Show, (*))
 
 data SimulatorFlightExpense =
   SimulatorFlightExpense {
@@ -19,3 +22,12 @@
   } deriving (Eq, Ord, Show)
 
 makeClassy ''SimulatorFlightExpense
+
+simulatorFlightCost ::
+  HasSimulatorFlight s =>
+  s
+  -> SimulatorFlightExpense
+  -> Int
+simulatorFlightCost sf (SimulatorFlightExpense perhour _) =
+  let z = sf ^. instrumentsimulatorTime
+  in  timeAmountBy10 z * perhour