Я поняла твою идею, что в промежуточое время коэффициент автоматически изменяется на данное текущее время с учетом следующего коэффициента.
А вот мне эта опция вообще непонятна. В смысле ее цеоесообразности. Есди уж делать какую-то автоматическую коррекцию коэффициентов, то не надо привязываться ко времени. Зачем ? Я вообще не вижу никакой закономерности в этой привязке. Простой пример :
1.Один человек вообще не колет днем длинный инсулин.
2.Другой колет 5 единиц НПХ
3.Третий колет 10 единиц НПХ
И т.д.
А четвертый колет 10 единиц плоского лантуса. Кто и по каким критерием будет корректировать К1 в обед во всех этих случаях ? Какая взаимосвязь ? Какой алгоритм коррекции ? Какая формула, в конце концов ? Как программа будет делать такую коррекцию?
Все должно делаться вручную ! Коррекция компенсационных коэффициентов зависит не столько от времени приема пищи, сколько от физических нагрузок, к примеру. А их в сформуле учесть практически невозможно. Эта коррекция зависит и от дозы дневного базального инсулина. И т.д.
Это я не в плане злобного злопыхательства :D
Не совсем понятны условия конкурса. К примеру, в моей программе при любом ее выходе базы данных закрываются. И не просто закрываются, но и попутно очищаются от разного "служебного мусора". К примеру, вот так :
Private Sub mnuExit_Click()
On Error Resume Next
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
For Each ws In Workspaces
For Each db In ws.Databases
For Each rs In db.Recordsets
rs.Close
Set rs = Nothing
Next
db.Close
Set db = Nothing
Next
ws.Close
Set ws = Nothing
Next
DBEngine.CompactDatabase "c:\Program Files\Diabet2000\C3.2.mdb", _
"c:\Program Files\Diabet2000\CC3.2.mdb"
Kill "c:\Program Files\Diabet2000\C3.2.mdb"
DBEngine.CompactDatabase "c:\Program Files\Diabet2000\CC3.2.mdb", _
"c:\Program Files\Diabet2000\C3.2.mdb"
Kill "c:\Program Files\Diabet2000\CC3.2.mdb"
DBEngine.CompactDatabase "c:\Program Files\Diabet2000\Report.mdb", _
"c:\Program Files\Diabet2000\Report1.mdb"
Kill "c:\Program Files\Diabet2000\Report.mdb"
DBEngine.CompactDatabase "c:\Program Files\Diabet2000\Report1.mdb", _
"c:\Program Files\Diabet2000\Report.mdb"
Kill "c:\Program Files\Diabet2000\Report1.mdb"
DBEngine.CompactDatabase "c:\Program Files\Diabet2000\Arhiv.mdb", _
"c:\Program Files\Diabet2000\Arhiv1.mdb"
Kill "c:\Program Files\Diabet2000\Arhiv.mdb"
DBEngine.CompactDatabase "c:\Program Files\Diabet2000\Arhiv1.mdb", _
"c:\Program Files\Diabet2000\Arhiv.mdb"
Kill "c:\Program Files\Diabet2000\Arhiv1.mdb"
DBEngine.CompactDatabase "c:\Program Files\Diabet2000\Fizo.mdb", _
"c:\Program Files\Diabet2000\Fizo1.mdb"
Kill "c:\Program Files\Diabet2000\Fizo.mdb"
DBEngine.CompactDatabase "c:\Program Files\Diabet2000\Fizo1.mdb", _
"c:\Program Files\Diabet2000\Fizo.mdb"
Kill "c:\Program Files\Diabet2000\Fizo1.mdb"
End
End Sub