SQL Server Data Types and Ranges
(SQL Server 2005 and SQL Server 2000)
Applies to: SQL Server 2000, SQL Server 2005
Protected: My Excel Functions
excel function: inet_aton
inet_aton() converts the Internet host address cp from the standard numbers-and-dots notation into binary data and stores it in the structure that inp points to. inet_aton returns nonzero if the address is valid, zero if not.
Let say for ip A.B.C.D, the formula is :
ip = ((A*256+B)*256+C)*256
For example, if you have an ip of 74.125.45.100 (google.com), the formula would give a result of :
ip = ((74*256+125)*256+45)*256 = 1249717504
extract text from PowerPoint
Sub TextOut()
Dim sld As Integer
Dim shp As Integer
Open "c:\TextOut.txt" For Output As #1
Birlesik Faiz Aylik Taksit Hesaplanmasi Fonksiyonu
Birlesik Faiz Aylik Taksit Hesaplanmasi Fonksiyonu
List all tables and fields in access
Tools -> References ->
Add: ActiveX Data Objects Recordset 2.8 Library, Microsoft DAO 3.6 Object Library, OLE DB Service Component 1.0
Create Table: tblTables_Fieldnames
Fields: TableName, FieldName
Add Module Below and Run
Sub getFieldNames()
Dim db As DAO.Database, rs As DAO.Recordset, rs1 As DAO.Recordset
Dim tdf As DAO.TableDef, fld As DAO.Field
Set db = CurrentDb()
Set rs1 = db.OpenRecordset("tblTables_Fieldnames")
Set rs = db.OpenRecordset("select [name] from MsysObjects where Type=1")
rs.MoveFirst
Do Until rs.EOF
For Each fld In db.TableDefs(rs(0)).Fields
rs1.AddNew
rs1("Tablename") = rs(0)
rs1("FieldName") = fld.Name
rs1.Update
Next
rs.MoveNext
Loop
rs.Close
rs1.Close
End Sub
or,
Open the database, go to
Stationery – File Folder Labels Excel Template / Dosya Sırtlığı excel şablonu
Dar Klasorler icin Excel hucre genişlikleri,
Yükseklik / Height: 84,75 (113pixel)
Genişlik / Width: 93,57 (660 Pixel)
Yükseklik = x 40
Genişlik = x 45
Excel – List Files & Folders in Harddisk
Add module in VBA Editor and copy below codes and paste. then Run the Macro "FindFiles"
Excel – Aralikta Bul Fonksiyonu
ms excel
Option Explicit
Function aralikbak(deger As Double, Table As Range)
' Coded by Taner Subasi
Dim i As Integer
Dim iCount As Integer
Dim rCol As Range
For i = 1 To Table.Rows.Count
If (Int(deger) > Int(Table.Cells(i, 1))) And (Int(deger) < Int(Table.Cells(i, 2))) Then
aralikbak = i & " : " & Table.Cells(i, 3) & " | " & Table.Cells(i, 1) & "-" & Table.Cells(i, 2)
Exit For
Else
aralikbak = 0
End If
Next i
End Function