| Author |
Message |
    
Fuhrer
Yavvanam Kaatesina Bewarse
Username: Fuhrer
Post Number: 1657
Registered: 07-2005
Posted From: 129.188.33.221
Rating:N/A
Votes: 0(Vote!) | | Posted on Wednesday, September 21, 2005 - 6:09 am: |    |
ee VB code ni akkada use cheyyalenu mama... anduke danni Pl/SQL ki convert cheyyala lepothey informatic expression kindaki marchali... thanks for your precious time... |
Fuhrer
Yavvanam Kaatesina Bewarse
Username: Fuhrer
Post Number: 1656
Registered: 07-2005
Posted From: 129.188.33.221
Rating:N/A
Votes: 0(Vote!) | | Posted on Wednesday, September 21, 2005 - 6:07 am: | |
naku aa left, right, mid ardham kale.. ippudu ardham avuthunnayie.. neevu cheppina tharuvatha |
Smooth_criminal
Pilla Bewarse
Username: Smooth_criminal
Post Number: 12
Registered: 09-2005
Posted From: 80.121.144.9
Rating:N/A
Votes: 0(Vote!) | | Posted on Wednesday, September 21, 2005 - 6:06 am: | |
hoo naaku theldu mama..neenu general gaa cheppaa...informatica ante yentoo theldhu mama.. |
Fuhrer
Yavvanam Kaatesina Bewarse
Username: Fuhrer
Post Number: 1655
Registered: 07-2005
Posted From: 129.188.33.221
Rating:N/A
Votes: 0(Vote!) | | Posted on Wednesday, September 21, 2005 - 6:05 am: | |
informatica lo ki convert cheyyala mama aa logic ni... PL/SQL anna rayalai.. lepothey informatica expression language anna use cheyyala... so asalu yem chesthundo chuddam ani adiga.. naa work kadu mama evaro adigaru vallaki chesi peduthunna.. meeru vunnaru gada malla think cheyyatam endukule ani ikkada post chesa.. hehe thanks mama |
Smooth_criminal
Pilla Bewarse
Username: Smooth_criminal
Post Number: 11
Registered: 09-2005
Posted From: 80.121.144.9
Rating:N/A
Votes: 0(Vote!) | | Posted on Wednesday, September 21, 2005 - 6:01 am: | |
purar mama deentlo PL SQL akkarledhu kadhaa...
ichina string looo nuchi date read cheesi Y2K condition choosukuni date print chsthunnaru mayya...anthee...idi kooda artham kakapovatam yendhi mama....
mundhu year read chesadu
day read chesadu
week read cheesadu
anni join chesadu...madya loo y2k validate cheesadu....pl sql yentehe dheeniki.... |
Smooth_criminal
Pilla Bewarse
Username: Smooth_criminal
Post Number: 10
Registered: 09-2005
Posted From: 80.121.144.9
Rating:N/A
Votes: 0(Vote!) | | Posted on Wednesday, September 21, 2005 - 5:59 am: | |
neenu vb yeppudu try cheyle but i will try
>>Then 'DCT ... BMC
artham kale yendhoo idi....
>>If yr > Right(Year(Date), 1) Then
tDate = DateValue("01/01/199" & yr)
Else
tDate = DateValue("01/01/200" & yr)
End If
aa logic y2k di....
>>If wk > 52 Then GoTo ErrExit
week logic idhi year loo weeks yekkuva vuntee eror message ku
>>If da > 366 Then GoTo ErrExit
bDate = DateAdd("d", da, tDate)
ElseIf Len(SN) = 11 And IsNumeric(SN) Then 'new one from Jeffrey Goolsby
idi number of days validation..
tdate lo day add chesaru
mama IsNumeric(SN) yeemi chesthadi naaku artham kalee.... |
Fuhrer
Yavvanam Kaatesina Bewarse
Username: Fuhrer
Post Number: 1654
Registered: 07-2005
Posted From: 129.188.33.221
Rating:N/A
Votes: 0(Vote!) | | Posted on Wednesday, September 21, 2005 - 5:52 am: | |
randi babulu evaraina |
Fuhrer
Yavvanam Kaatesina Bewarse
Username: Fuhrer
Post Number: 1652
Registered: 07-2005
Posted From: 129.188.33.221
Rating:N/A
Votes: 0(Vote!) | | Posted on Wednesday, September 21, 2005 - 5:40 am: | |
'÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷ ÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷
Public Function BuilDate(SN As String) As Date
'÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷ ÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷
Dim s As String
Dim bDate As Date
Dim tDate As Date
Dim yr As Integer
Dim da As Integer
Dim wk As Integer
Dim mo As Integer
On Error GoTo ErrExit
bDate = #1/11/1947#
If Left(SN, 2) = "GI" _
Or Left(SN, 2) = "XC" _
Or Left(SN, 3) = "FLS" Then 'DCT ... BMC
yr = Mid(SN, 4, 1)
wk = Mid(SN, 5, 2)
If yr > Right(Year(Date), 1) Then
tDate = DateValue("01/01/199" & yr)
Else
tDate = DateValue("01/01/200" & yr)
End If
If wk > 52 Then GoTo ErrExit
bDate = DateAdd("ww", wk, tDate)
bDate = DateAdd("d", 7 - Weekday(bDate), bDate)
' 123456789012
ElseIf Left(SN, 1) = "M" Then 'NEW DCT SN Format -->M40529ND3169<--
' yyww
yr = Mid(SN, 3, 2)
wk = Mid(SN, 5, 2)
If yr > Right(Year(Date), 1) Then
tDate = DateValue("01/01/199" & yr)
Else
tDate = DateValue("01/01/200" & yr)
End If
If wk > 52 Then GoTo ErrExit
bDate = DateAdd("ww", wk, tDate)
bDate = DateAdd("d", 7 - Weekday(bDate), bDate)
ElseIf Left(SN, 1) = "C" Then 'Skip 'I' as a month
yr = Mid(SN, 2, 1)
mo = Asc(Mid(SN, 3, 1)) - 65
If mo > 8 Then mo = mo - 1
If yr > Right(Year(Date), 1) Then
tDate = DateValue("01/01/199" & yr)
Else
tDate = DateValue("01/01/200" & yr)
End If
If mo > 12 Then GoTo ErrExit
bDate = DateAdd("m", mo, tDate)
ElseIf Not IsNumeric(Left(SN, 1)) _
And Not IsNumeric(Mid(SN, 3, 1)) _
And Len(Trim(SN)) = 13 Then 'C8M
yr = Mid(SN, 2, 1)
mo = Asc(Mid(SN, 3, 1)) - 65
If mo > 8 Then mo = mo - 1
If yr > Right(Year(Date), 1) Then
tDate = DateValue("01/01/199" & yr)
Else
tDate = DateValue("01/01/200" & yr)
End If
If mo > 12 Then GoTo ErrExit
bDate = DateAdd("m", mo, tDate)
ElseIf Len(SN) > 14 And IsNumeric(SN) Then
yr = Mid(SN, 7, 1)
da = Mid(SN, 8, 3)
If mo > 8 Then mo = mo - 1
If yr > Right(Year(Date), 1) Then
tDate = DateValue("01/01/199" & yr)
Else
tDate = DateValue("01/01/200" & yr)
End If
If da > 366 Then GoTo ErrExit
bDate = DateAdd("d", da, tDate)
ElseIf Len(SN) = 11 And IsNumeric(SN) Then 'new one from Jeffrey Goolsby
yr = Mid(SN, 3, 2)
wk = Mid(SN, 5, 2)
If yr > Right(Year(Date), 2) Then
tDate = DateValue("01/01/199" & yr)
Else
tDate = DateValue("01/01/200" & yr)
End If
If wk > 52 Then GoTo ErrExit
bDate = DateAdd("ww", wk, tDate)
bDate = DateAdd("d", 7 - Weekday(bDate), bDate)
End If
ErrExit:
BuilDate = bDate
On Error GoTo 0
End Function
nenu paina vunna function ni PL/SQL lo convert cheyyala... konchem logic steps cheppandi.. paina program yem chesthundo.. simple english lo konchem cheppandi pls.. |
|
|
