阅读:129
评论:0
阅读:147
评论:0
阅读:110
评论:1
阅读:152
评论:0
阅读:120
评论:0
function strLen(str){ var len=0; for(var i=0;i<str.length;i++){ var intCode=str.charCodeAt(i); if(intCode>=0 && intCode<=128){ len = len + 1; }else{ len = len + 2; } } return len; }
Private Function Length(iTxt) Dim txt: txt = Trim(iTxt) Dim x: x = Len(txt) ...
阅读:227
评论:0
Option Explicit Private Type HOSTENT hName As Long hAliases As Long hAddrType As Integer hLength As Integer hAddrList As Long End Type Private Type WSADATA wversion As Integer wHighVersion As Integer szDescription(0 To 256) As Byte szSystemStatus(0 To 128) As Byte iMaxSockets As Integer iMaxUdpDg As Integer lpszVendorInfo As Long...
阅读:324
评论:0
Private Declare Function GetTickCount& Lib "kernel32" () Dim a As Long Dim b As Long Dim c As Long Dim d As Long Dim e As Long Private Sub Form_Load() ' End Sub Private Sub Timer1_Timer() a = GetTickCount \ 1000 b = GetTickCount \ 1000 \ 60 c = GetTickCount \ 1000 \ 60 \ 60 d = (a - c * 3600) \ 60 e = a - b * 6...
阅读:186
评论:0