- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
''' Список строк подключения.
''' [Max Pro] 11.04.2007 Created
Public Enum ConnectString
Grata
Grata6
KuBi
OneWindow
OneWindowStat
OWSite
Wwwsde
NoName
OleGrata
OleGrata6
OleKuBi
OleOneWindow
OleOneWindowStat
OleOWSite
OleWwwsde
OleNoName
End Enum
''' <summary>
''' Выдаёт ограниченную дату и время для t/sql; tDateTime ∈ [1900,2078],
ограничивается только год, остальное остаётся вплоть до миллисекунд; переваривает все типы.
''' </summary>
''' <param name="o"></param>
''' <returns></returns>
''' <remarks>
''' </remarks>
''' <history>
''' [Max Pro] 11.04.2007 Created
''' [Max Pro] 13.04.2007 Улучшил.
''' [Max Pro] 16.04.2007 Изменил наименование tDateTime2Tsql на tDateTsql.
''' </history>
''' -----------------------------------------------------------------------------
Public Function tDateTsql(ByVal o) As Date
Dim tDate As Date
If bIsDateNet(o) Then tDate = o
If Year(tDate) < 1900 Then tDate = New Date(1900, tDate.Month, tDate.Day, tDate.Hour, tDate.Minute, tDate.Second, tDate.Millisecond)
If Year(tDate) > 2078 Then tDate = New Date(2078, tDate.Month, tDate.Day, tDate.Hour, tDate.Minute, tDate.Second, tDate.Millisecond)
tDateTsql = tDate
End Function
'''
Енум имени максима прохорова.
И функция конферта даты. пыгает слово улучшил
Говногость 23.04.2010 18:27 # 0
ursus 26.04.2010 08:50 # −3
xXx_totalwar 26.04.2010 15:10 # 0
guest 27.04.2010 15:16 # 0
ursus 27.04.2010 16:16 # 0
guest 27.04.2010 21:54 # 0
Хорошо отомстил, топикстартер? Жертва плачет и выщипывает волосы на лобке?