Chat LIVE With Programming Experts! There Are 23 Online Right Now...

Code Snippets

Visual Basic Source Code

Welcome to Dream.In.Code
	Become a VB Expert! Join 244,058 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 1,405 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: 12,321

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

Advertise on this site through Lake Quincy Media

Forum Index: Programming Help | C and C++ | VB6 | Java | VB.NET | C# | ASP.NET | PHP | ColdFusion | Perl and Python | Ruby | Databases | Other Languages | Game Programming | Mobile Development | 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 | Graphic Design & Photoshop Tutorials | Software Development Tutorials | Database Tutorials | Other Language Tutorials | ASP.NET Tutorials | Game Programming 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

Live VB Help!

Be Social

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Join our IRC Chat

Bye Bye Ads

Monthly Drawing

Top Contributors

Top 10 Kudos This Month