модель кодирования переменных в Excel VBA

[DiemonStar]

h%,

проблема тут. замените на h& и всё будет работать - при количестве часов, большем 9, получается переполнение обычного двухбайтного знакового целого числа.

[tvitaly1]

Сообщение от DiemonStar

проблема тут. замените на h& и всё будет работать - при количестве часов, большем 9, получается переполнение обычного двухбайтного знакового целого числа.

Верно. Переполнение было по указанной вами причине.

[Казанский]

'Приходится делать так:
For i& = 1 To 3600
 t = t - h
Next i&

Нет, так не надо
Достаточно указать, что константа типа Long:

t = t - h * 3600&

[tvitaly1]

Сообщение от Казанский

'Приходится делать так:
For i& = 1 To 3600
 t = t - h
Next i&

Нет, так не надо
Достаточно указать, что константа типа Long:

t = t - h * 3600&

Спасибо большое, Казанский, за все, хорошая инфа
И вам большое спасибо, DiemonStar, за инфу и God, все вышло.

Люди добрые, подскажите пожалуйста, как нати из числа месяц и день.
И еще подскажите пожалуйста, почему 1461?

God = ((D - 2) \ 1461) * 4 + ((D - 2) Mod 1461) \ 365 + 1900

[IgorGO]

И еще подскажите пожалуйста, почему 1461?

видите-ли, сутки - это время полного оборота Земли вокруг своей оси, а год - это время за которое Земля делает полный оборот вокруг Солнца. к сожалению это не кратные величины. Оборот вокруг Солнца длится 365 дней 6 часов и несколько минут и секунд.
поэтому 1461 = 365*4 + 1 - каждые 4 года случается высокосный год и 29 февраля.

[tvitaly1]

Сообщение от IgorGO

И еще подскажите пожалуйста, почему 1461?

видите-ли, сутки - это время полного оборота Земли вокруг своей оси, а год - это время за которое Земля делает полный оборот вокруг Солнца. к сожалению это не кратные величины. Оборот вокруг Солнца длится 365 дней 6 часов и несколько минут и секунд.
поэтому 1461 = 365*4 + 1 - каждые 4 года случается высокосный год и 29 февраля.

спасибо, сейчас буду делать

[tvitaly1]

Чего-то меня все на сложности тянет. Думаю сильно осудите меня за такое решение. Но проще придумать не могу. Увы, не каждые четыре года високосный год встречается, 1900 не високосный.

Public Function god(ByVal cislo As Double) As Long
  
  cislo = Int(cislo)
  god = 1900
   While cislo - 1 > 365 - VG(god)
   n = CInt(VG(god))
   cislo = cislo - 365 + VG(god)
   god = god + 1
  Wend
  
End Function

Private Function VG(ByVal I) As Boolean
 'Ãîä äîëæåí äåëèòüñÿ íà ÷åòûðå.
 'Ãîä íå äîëæåí äåëèòüñÿ íà 100, åñëè òîëüêî îí íå äåëèòñÿ è íà 400.
     VG = I = (I \ 4) * 4 And (I <> (I \ 100) * 100 Or I = (I \ 400) * 400)
End Function

Public Function DfromGod(cislo As Double) As Long
 
  DfromGod = 1
   For I = 1900 To god(cislo) - 1
    If VG(I) Then
     DfromGod = DfromGod + 366
    Else
     DfromGod = DfromGod + 365
    End If
  Next I
 
End Function



Public Function MM(ByVal cislo As Double) As Long
 Dim I As Long, n As Long, k As Long
 
 n = Int(cislo) - DfromGod(cislo)
 
 M = Array(31, 28 - VG(god(cislo)), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
 
 k = 0
 For I = 0 To 11
  k = k + M(I)
  If n <= k Then
   MM = I + 1
   Exit For
  End If
 Next I
 
  
End Function


Public Function Den(cislo As Double) As Long
 Dim I As Long, n As Long, n1 As Long, k As Long
 
 n = Int(cislo) - DfromGod(cislo)
 
 M = Array(31, 28 - VG(god(cislo)), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

 k = 0
 For I = 0 To MM(cislo) - 2
  k = k + M(I)
 Next I
 
 Den = n - k
 
End Function

[tvitaly1]

Всем, принявшим участия в решение моей задачи, большое спасибо. Вы мне очень помогли! Корректное преобразование целой части числа в переменной date в топике выше. Проблема 2101 года успешно решена. А я, помимо всего прочего узнал о том, что в общепринятом календаре високосный код встречается не каждые четыре года.

[IgorGO]

что в общепринятом календаре високосный код встречается не каждые четыре года

факт не новый. я давно определился на моем веку все года кратные 4 - будут высокосными, поэтому этот замечательный факт могу игнорировать.
и смысл темы остался загадочным...

[tvitaly1]

Сообщение от IgorGO

факт не новый. я давно определился на моем веку все года кратные 4 - будут высокосными, поэтому этот замечательный факт могу игнорировать.
и смысл темы остался загадочным...

Я не думаю, что надо решать задачу с той позиции, что на наш век хватит. Все же, с моей точки зрения, лучше попытаться решить задачу правильно.
Для чего все мне это было нужно, вообще, повторяю, что я делал модель хранения переменных в памяти компьютер, по которой можно изучать оное. И хотелось выяснить, как осуществить преобразование непосредственно из числа. Даю поясняющую картинку.
Я не думаю, что надо решать задачу с той позиции, что на наш век хватит. Все же, с моей точки зрения, лучше попытаться решить задачу правильно.