DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Evet.. 1 veya 2. seçenek olabilir. Teşekkürler..O C A K - 2021
O C A K - 2 0 2 1
O C A K - İ K i B İ N Y İ R M İ B İ R
bunlardan biri mi?
Function yazTarih()
' Haluk - 07/02/2021
' https://excelhaluk.blogspot.com/
Dim reg As Object
myDate = UCase(Format(Date, "mmmm yyyy"))
If reg Is Nothing Then
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "(.)"
reg.Global = True
End If
yazTarih = UCase(reg.Replace(myDate, "$1 "))
End Function
=yazTarih()
Ş U B A T 2 0 2 1
Option Explicit
Function K_TARİH(Tarih As Variant) As String
Dim Metin As String, X As Byte
Application.Volatile True
Metin = Format(Tarih, "mmmm-yyyy")
ReDim Veri(1 To 1)
For X = 1 To Len(Metin)
ReDim Preserve Veri(1 To X)
Veri(X) = Mid(Metin, X, 1)
Next
K_TARİH = Evaluate("UPPER(""" & Join(Veri, " ") & """)")
End Function
=EĞER(A1="";"";BÜYÜKHARF(KIRP(PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");1;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");2;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");3;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");4;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");5;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");6;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");7;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");8;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");9;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");10;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");11;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");12;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");13;1)&" "&PARÇAAL(METNEÇEVİR(A1;"aaaa - yyy");14;1))))
Sayın @Korhan AyhanDeneyiniz.
Kullanıcı tanımlı fonksiyondur. Kodu boş bir modüle uygulayıp kullanabilirsiniz.
Örnek kullanım şekilleri;
=K_TARİH(BUGÜN())
=K_TARİH("07.02.2021")
=K_TARİH(A1)
C++:Option Explicit Function K_TARİH(Tarih As Variant) As String Dim Metin As String, X As Byte Application.Volatile True Metin = Format(Tarih, "mmmm-yyyy") ReDim Veri(1 To 1) For X = 1 To Len(Metin) ReDim Preserve Veri(1 To X) Veri(X) = Mid(Metin, X, 1) Next K_TARİH = Evaluate("UPPER(""" & Join(Veri, " ") & """)") End Function