Calculating age of animals

[gilly7]

Hello,

Im just wondering if anyone can come up with a solution to calculate the age of dairy cows using the animals Date Of birth and output the age in months rather than years. Also when an amimal reaches 30 months is there any way to automatically move them to a new table as animals over 30 months will be 99% slaughtered. Its a project for my neighbours farm and it would be great if anyone could help. Thanks. Ronan

 

[1oldfoxman]

I suspect it depends on the dev tool you're using..... care to share that bit of info?

 

[Golom]

The age is simply calculated with the DateDiff function

   CowAge = DateDiff ( "m", DateOfBirth, Date() )

You will need to use some procedural code to move the "over 30 month" animals.

      SQL = "INSERT INTO tblOver30 " & _
            "Select * From tblAllCows " & _
            "Where DateDiff ( "m", DateOfBirth, Date() ) >= 30 "

      Conn.EXECUTE SQL

      SQL = "Delete * From tblAllCows " ^ & _
            "Where DateDiff ( "m", DateOfBirth, Date() ) >= 30 "

      Conn.EXECUTE SQL

      etc.

This solution involves functions from VBA. If you are using some other DBMS then, as 1oldfoxman said, you will need to adjust for the language constructs available on your system.