Code Snippets

Visual Basic Source Code

Welcome to Dream.In.Code
	Become a VB Expert! Join 149,631 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 2,112 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

Date (in words) to Oracle Date Format

Converts Strings in format "DD MONTH YYYY" to Oracle Date Format. For eg. StrToDate("16 November 2005") returns "16-NOV-2005"

Submitted By: born2c0de

Actions:

Rating:

Views: 10,528

Language: Visual Basic

Last Modified: October 5, 2005

Snippet

' Written by Sanchit Karve
' born2c0de
' born2c0de@hotmail.com
Public Function StrToDate(ByVal strng As String) As String
Dim d As Integer
Dim m As Byte
Dim Y As Integer
Dim i As Integer
Dim tmp As String, tmp1 As String
strng = Trim(strng)
d = Int(Val(strng))
Y = Val(Right(strng, 4))
strng = Mid(strng, 1, Len(strng) - 5)
For i = Len(strng) To 1 Step -1
If Asc(Mid(strng, i, 1)) >= 65 Then tmp = tmp + Mid(strng, i, 1) Else Exit For
Next i
tmp = StrReverse(tmp)
tmp = Left(tmp, 3)
tmp1 = Trim(tmp1)
tmp1 = IIf(d < 10, "0" + Trim(Str(d)), Trim(Str(d)))
tmp1 = Trim(tmp1) + "-" + UCase(tmp) + "-" + Trim(Str(Y))
StrToDate = tmp1
End Function
' EXAMPLE
'
' Msgbox StrToDate("6 February 2005")

Copy & Paste

Comments
There are currently no comments for this snippet. Be the first to comment!

Add comment
You must be registered and logged on to </dream.in.code> to leave comments.

Advertising | Terms of Use | Privacy Policy | About Us | Site Map

Forum Index: Programming Help | C and C++ | Visual Basic | Java | VB.NET | C# | ASP.NET | PHP | ColdFusion | Perl and Python | Ruby | Databases | Other Languages | Game Programming | Software Development | Computer Science | Industry News | Programming Tutorials | C++ Tutorials | Visual Basic Tutorials | Java Tutorials | VB.NET Tutorials | C# Tutorials | Linux Tutorials | PHP Tutorials | ColdFusion Tutorials | Windows Tutorials | HTML/JavaScript Tutorials | CSS Tutorials | Flash Tutorials | Web Promotion Tutorials | Photoshop Tutorials | Software Development Tutorials | Database Tutorials | Other Language Tutorials | ASP.NET Tutorials |

Copyright 2001-2008 MediaGroup1 LLC, All Rights Reserved
A MediaGroup1 LLC Production - Version 6.0.2.1.36
Server: secure2

Search^Updated!w00t

Over 509,000 Pages! Advanced Forum Search

Be Social

Live VB Help!

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Join our IRC Chat

Bye Bye Ads

Monthly Drawing

Top Contributors

Top 10 Kudos This Month