MyTetra Share
Делитесь знаниями!
басурманский формат даты
16.03.2019
23:43
Текстовые метки: басурманский формат даты
Раздел: !Закладки - VBA - Разобрать

'================================================================================

'##### Преобразует дату в басурманский формат

'

'Sub test_FnDateRu_En()

' strDate = "7/18/2031"

'' strDateNew = FnDateRu_En(strDate)

' strDateNew = FnDateEn_Ru(strDate)

'End Sub

'--------------------------------------------------------------------------------

Function FnDateRu_En(ByVal strDate As String) As String

If Len(strDate) = 0 Then strDate = Now

m = Split(strDate, ".", -1, vbBinaryCompare)

If Left(m(0), 1) = 0 Then m(0) = Right(m(0), Len(m(0) - 1))

If Left(m(1), 1) = 0 Then m(1) = Right(m(1), Len(m(1) - 1))

FnDateRu_En = m(1) & "/" & m(0) & "/" & Left(m(2), 4)

End Function

'================================================================================

'================================================================================

'##### Преобразует из басурманского формата

'

'--------------------------------------------------------------------------------

Function FnDateEn_Ru(ByVal strDate As String) As String

m = Split(strDate, "/", -1, vbBinaryCompare)

If Len(m(0)) = 1 Then m(0) = "0" & m(0)

If Len(m(1)) = 1 Then m(1) = "0" & m(1)

FnDateEn_Ru = m(1) & "." & m(0) & "." & m(2)

End Function

'================================================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования