1. Список говнокодов пользователя Lurker

    Всего: 2

  2. VisualBasic / Говнокод #8538

    −94

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    ' ==== Пример №1 ====
strParentAsset = "Parent_Asset_OnetoOneRelationship_Child_NewEarlyStaged"
strChildAsset = "ChildAssetArray_NewEarlyStaged"
strArrAssetList = Split(strParentAsset & "," & strChildAsset, ",")

' ==== Пример №2 ====
strProjectNames="" & strTODO_Project & "1," & strTODO_Project & "2," & strTODO_Project & "3," & strTODO_Project & "4," & strTODO_Project & "5," & strTODO_Project & "6," & strTODO_Project & "7," & strTODO_Project & "8," & strTODO_Project & "9," & strTODO_Project & "10," & strTODO_Project & "11," & strTODO_Project & "12," & strTODO_Project & "13," & strTODO_Project & "14," & strTODO_Project & "15," & strTODO_Project & "16," & strTODO_Project & "17," & strTODO_Project & "18," & strTODO_Project & "19," & strTODO_Project & "20," & strTODO_Project & "21," & strATG_TODO_PROJECT22
strArrProjectNames= Split(strProjectNames,",")

' ==== Пример №3 ====
Dim strWeekday
...
ReDim strWeekday(7)
strWeekday(1)= "Sun":strWeekday(2)= "Mon":strWeekday(3)= "Tue":strWeekday(4)= "Wed":strWeekday(5)= "Thu":strWeekday(6)= "Fri":strWeekday(7)= "Sat"

    Примеры создания массивов из QTP-проекта, написанного индусами

    Lurker, 16 Ноября 2011

    Комментарии (4)

  3. VisualBasic / Говнокод #8534

    −93

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    ' Return the current date & time converted to GMT in string format
Public Function gf_GetGMTDateTimeString
	Dim strDateTime
	strDateTime=FormatDateTime(date(),vbgeneraldate) & " " & FormatDateTime(now(),vblongtime)
	strDateTime=DateAdd("h", -5, strDateTime)
	strDateTime=DateAdd("n", -30, strDateTime)
	gf_GetGMTDateTimeString=strDateTime
End Function

    Код из проекта на QTP, написанного индусами
    P.S. UTC+05:30 это Индия, для тех кто не понял

    Lurker, 16 Ноября 2011

    Комментарии (85)